добавил обработку таймеров и сами таймеры в автоматические действия

This commit is contained in:
PC1\PTyTb
2025-08-08 01:49:45 +03:00
parent 7d9eaaac4e
commit f2c012dd28
12 changed files with 500 additions and 71 deletions
+55 -24
View File
@@ -17,7 +17,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 970.000000000000000000
Size.Height = 744.000000000000000000
Size.PlatformDefault = False
TabIndex = 4
TabIndex = 7
TabOrder = 0
TabPosition = PlatformDefault
Sizes = (
@@ -283,13 +283,13 @@ object TTW_Bot: TTTW_Bot
Viewport.Height = 116.000000000000000000
end
inherited btnRandomAdd: TButton
TabOrder = 34
TabOrder = 33
end
inherited btnRandomDel: TButton
TabOrder = 35
TabOrder = 34
end
inherited btnRmGroup: TButton
TabOrder = 37
inherited Label4: TLabel
TabOrder = 35
end
inherited Label5: TLabel
TabOrder = 43
@@ -432,7 +432,7 @@ object TTW_Bot: TTTW_Bot
item
end>
TextSettings.Trimming = None
IsSelected = True
IsSelected = False
ImageIndex = 10
Size.Width = 136.000000000000000000
Size.Height = 26.000000000000000000
@@ -450,8 +450,8 @@ object TTW_Bot: TTTW_Bot
inherited sgWebChats: TStringGrid
Size.Width = 970.000000000000000000
Size.Height = 282.000000000000000000
Viewport.Width = 970.000000000000000000
Viewport.Height = 282.000000000000000000
Viewport.Width = 966.000000000000000000
Viewport.Height = 257.000000000000000000
inherited StringColumn2: TStringColumn
Size.Width = 200.000000000000000000
end
@@ -472,7 +472,7 @@ object TTW_Bot: TTTW_Bot
OnClick = frOBS1btnDeleteeChatClick
end
inherited Label1: TLabel
TabOrder = 8
TabOrder = 9
end
inherited btnCreateOBSNotify: TButton
Images = ImageList1
@@ -585,7 +585,7 @@ object TTW_Bot: TTTW_Bot
item
end>
TextSettings.Trimming = None
IsSelected = False
IsSelected = True
ImageIndex = 23
Size.Width = 101.000000000000000000
Size.Height = 26.000000000000000000
@@ -601,25 +601,36 @@ object TTW_Bot: TTTW_Bot
Size.Height = 718.000000000000000000
Size.PlatformDefault = False
inherited GroupBox20: TGroupBox
inherited edtMessage: TEdit
TabOrder = 38
end
inherited edtInterval: TEdit
TabOrder = 39
end
inherited btnAddMessage: TButton
Images = ImageList1
ImageIndex = 0
TabOrder = 40
end
inherited btnRmMessage: TButton
Images = ImageList1
ImageIndex = 4
TabOrder = 41
end
inherited btnEditMessage: TButton
Images = ImageList1
ImageIndex = 3
TabOrder = 42
end
inherited btnNotifyTest: TButton
Images = ImageList1
ImageIndex = 25
TabOrder = 43
end
inherited sgTimers: TStringGrid
Viewport.Width = 463.000000000000000000
Viewport.Height = 225.000000000000000000
TabOrder = 44
Viewport.Width = 459.000000000000000000
Viewport.Height = 200.000000000000000000
inherited scTimerMessage: TStringColumn
Size.Width = 301.000000000000000000
end
@@ -629,21 +640,28 @@ object TTW_Bot: TTTW_Bot
end
end
inherited GroupBox23: TGroupBox
inherited edtBanWords: TEdit
TabOrder = 38
end
inherited btnBanWordsAdd: TButton
Images = ImageList1
ImageIndex = 0
TabOrder = 39
end
inherited btnBanWordsEdt: TButton
Images = ImageList1
ImageIndex = 3
TabOrder = 40
end
inherited btnBanWordsDel: TButton
Images = ImageList1
ImageIndex = 4
TabOrder = 41
end
inherited sgBanWords: TStringGrid
Viewport.Width = 297.000000000000000000
Viewport.Height = 225.000000000000000000
TabOrder = 42
Viewport.Width = 293.000000000000000000
Viewport.Height = 200.000000000000000000
inherited scRegEx: TStringColumn
Size.Width = 265.000000000000000000
end
@@ -654,34 +672,47 @@ object TTW_Bot: TTTW_Bot
Position.X = 217.000000000000000000
Size.Width = 88.000000000000000000
Size.PlatformDefault = False
TabOrder = 43
end
inherited Label6: TLabel
TabOrder = 44
end
inherited edtBanWordsCheck: TEdit
TabOrder = 45
Size.Width = 201.000000000000000000
end
inherited Label7: TLabel
TabOrder = 46
end
inherited lBanWordsCheck: TLabel
TabOrder = 47
end
end
inherited GroupBox17: TGroupBox
inherited edtCounterName: TEdit
TabOrder = 42
end
inherited edtCounterTrigger: TEdit
TabOrder = 38
TabOrder = 39
end
inherited edtCounterCount: TEdit
TabOrder = 37
TabOrder = 38
end
inherited btnCounterAdd: TButton
Images = ImageList1
ImageIndex = 0
TabOrder = 39
TabOrder = 40
end
inherited btnCounterDelete: TButton
Images = ImageList1
ImageIndex = 4
TabOrder = 40
end
inherited btnCounterP: TButton
Images = ImageList1
ImageIndex = 0
Position.X = 416.000000000000000000
Size.Width = 22.000000000000000000
TabOrder = 42
TabOrder = 43
Text = ''
end
inherited btnCounterM: TButton
@@ -689,18 +720,18 @@ object TTW_Bot: TTTW_Bot
ImageIndex = 12
Position.X = 449.000000000000000000
Size.Width = 22.000000000000000000
TabOrder = 43
TabOrder = 44
Text = ''
end
inherited btnCounterEdit: TButton
Images = ImageList1
ImageIndex = 3
TabOrder = 44
TabOrder = 45
end
inherited sgCounter: TStringGrid
TabOrder = 45
Viewport.Width = 463.000000000000000000
Viewport.Height = 121.000000000000000000
TabOrder = 46
Viewport.Width = 459.000000000000000000
Viewport.Height = 96.000000000000000000
inherited scCounterTrigger: TStringColumn
Size.Width = 236.000000000000000000
end