добавил часть модулей, нужно переделать БД на records
This commit is contained in:
PC1\PTyTb
+106
-23
@@ -1,4 +1,4 @@
|
||||
object Form1: TForm1
|
||||
object TTW_Bot: TTTW_Bot
|
||||
Left = 480
|
||||
Top = 0
|
||||
Caption = 'Form1'
|
||||
@@ -54,7 +54,7 @@ object Form1: TForm1
|
||||
Text = #1053#1072#1089#1090#1088#1086#1081#1082#1080
|
||||
ExplicitSize.cx = 96.000000000000000000
|
||||
ExplicitSize.cy = 26.000000000000000000
|
||||
inline fSettings: TfrSettings
|
||||
inline frSettings1: TfrSettings
|
||||
Align = Client
|
||||
Size.Width = 1042.000000000000000000
|
||||
Size.Height = 718.000000000000000000
|
||||
@@ -64,6 +64,10 @@ object Form1: TForm1
|
||||
Images = ImageList1
|
||||
ImageIndex = 10
|
||||
end
|
||||
inherited btnGetClientID: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 10
|
||||
end
|
||||
inherited btnOpenStream: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 17
|
||||
@@ -77,9 +81,6 @@ object Form1: TForm1
|
||||
inherited edtBotTokenStreamer: TEdit
|
||||
TabOrder = 35
|
||||
end
|
||||
inherited Label53: TLabel
|
||||
TabOrder = 37
|
||||
end
|
||||
end
|
||||
inherited GroupBox22: TGroupBox
|
||||
inherited btnDAGetCode: TButton
|
||||
@@ -115,8 +116,10 @@ object Form1: TForm1
|
||||
Images = ImageList1
|
||||
ImageIndex = 18
|
||||
TabOrder = 44
|
||||
OnClick = frSettings1btnDAStartClick
|
||||
end
|
||||
inherited btnGetDADef: TButton
|
||||
Images = ImageList1
|
||||
TabOrder = 45
|
||||
end
|
||||
end
|
||||
@@ -202,8 +205,8 @@ object Form1: TForm1
|
||||
Size.Height = 718.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
inherited sgCommands: TStringGrid
|
||||
Viewport.Width = 602.000000000000000000
|
||||
Viewport.Height = 168.000000000000000000
|
||||
Viewport.Width = 606.000000000000000000
|
||||
Viewport.Height = 193.000000000000000000
|
||||
inherited scCommand: TStringColumn
|
||||
Size.Width = 134.000000000000000000
|
||||
end
|
||||
@@ -212,56 +215,84 @@ object Form1: TForm1
|
||||
end
|
||||
end
|
||||
inherited GroupBox1: TGroupBox
|
||||
inherited Label12: TLabel
|
||||
TabOrder = 37
|
||||
end
|
||||
inherited edtCommand: TEdit
|
||||
TabOrder = 38
|
||||
end
|
||||
inherited mResponse: TMemo
|
||||
Viewport.Width = 372.000000000000000000
|
||||
Viewport.Height = 173.000000000000000000
|
||||
TabOrder = 39
|
||||
Viewport.Width = 376.000000000000000000
|
||||
Viewport.Height = 177.000000000000000000
|
||||
end
|
||||
inherited Label14: TLabel
|
||||
TabOrder = 40
|
||||
end
|
||||
inherited GroupBox7: TGroupBox
|
||||
TabOrder = 41
|
||||
inherited btnAddUserName: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 11
|
||||
TabOrder = 37
|
||||
end
|
||||
inherited btnGetDateFollow: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 15
|
||||
TabOrder = 38
|
||||
end
|
||||
inherited btnGetAgeAccaunt: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 15
|
||||
TabOrder = 39
|
||||
end
|
||||
inherited btnCounterAddtoText: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 0
|
||||
TabOrder = 40
|
||||
end
|
||||
inherited cbCounterName: TComboBox
|
||||
TabOrder = 41
|
||||
end
|
||||
inherited btnGPT: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 19
|
||||
TabOrder = 42
|
||||
end
|
||||
inherited btnRandomUserName: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 11
|
||||
TabOrder = 43
|
||||
end
|
||||
inherited btnGetChannelStat: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 20
|
||||
Size.Width = 128.000000000000000000
|
||||
TabOrder = 44
|
||||
end
|
||||
inherited btnAIPic: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 5
|
||||
TabOrder = 45
|
||||
end
|
||||
end
|
||||
inherited btnAddCommand: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 0
|
||||
TabOrder = 42
|
||||
end
|
||||
inherited btnEditCommand: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 3
|
||||
TabOrder = 43
|
||||
end
|
||||
inherited btnRmCommand: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 4
|
||||
TabOrder = 44
|
||||
end
|
||||
inherited cbTextToSpeech: TCheckBox
|
||||
TabOrder = 45
|
||||
end
|
||||
end
|
||||
inherited GroupBox9: TGroupBox
|
||||
@@ -281,10 +312,18 @@ object Form1: TForm1
|
||||
inherited btnRandomDel: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 12
|
||||
TabOrder = 37
|
||||
end
|
||||
inherited btnRmGroup: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 4
|
||||
TabOrder = 38
|
||||
end
|
||||
inherited Label4: TLabel
|
||||
TabOrder = 39
|
||||
end
|
||||
inherited Label5: TLabel
|
||||
TabOrder = 41
|
||||
end
|
||||
end
|
||||
inherited GroupBox8: TGroupBox
|
||||
@@ -292,6 +331,7 @@ object Form1: TForm1
|
||||
Images = ImageList1
|
||||
ImageIndex = 0
|
||||
TabOrder = 32
|
||||
OnClick = frCommands1btnRandAddClick
|
||||
end
|
||||
inherited btnRandDel: TButton
|
||||
Images = ImageList1
|
||||
@@ -299,8 +339,8 @@ object Form1: TForm1
|
||||
end
|
||||
inherited sgRandomInt: TStringGrid
|
||||
TabOrder = 35
|
||||
Viewport.Width = 153.000000000000000000
|
||||
Viewport.Height = 119.000000000000000000
|
||||
Viewport.Width = 157.000000000000000000
|
||||
Viewport.Height = 144.000000000000000000
|
||||
inherited scRIntName: TStringColumn
|
||||
Size.Width = 70.000000000000000000
|
||||
end
|
||||
@@ -316,23 +356,37 @@ object Form1: TForm1
|
||||
inherited btnSoundAdd: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 0
|
||||
TabOrder = 37
|
||||
end
|
||||
inherited btnSoundDel: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 12
|
||||
TabOrder = 38
|
||||
end
|
||||
inherited edtSoundName: TEdit
|
||||
TabOrder = 39
|
||||
end
|
||||
inherited edtSoundFileName: TEdit
|
||||
TabOrder = 40
|
||||
end
|
||||
inherited btnSoundOpen: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 14
|
||||
TabOrder = 41
|
||||
Text = ''
|
||||
end
|
||||
inherited tbSoundVolume: TTrackBar
|
||||
TabOrder = 42
|
||||
end
|
||||
inherited btnSoundTest: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 25
|
||||
TabOrder = 43
|
||||
end
|
||||
inherited sgSAFiles: TStringGrid
|
||||
Viewport.Width = 341.000000000000000000
|
||||
Viewport.Height = 124.000000000000000000
|
||||
TabOrder = 44
|
||||
Viewport.Width = 345.000000000000000000
|
||||
Viewport.Height = 149.000000000000000000
|
||||
inherited sgSAFile: TStringColumn
|
||||
Size.Width = 220.000000000000000000
|
||||
end
|
||||
@@ -342,19 +396,29 @@ object Form1: TForm1
|
||||
inherited btnTextAdd: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 0
|
||||
TabOrder = 37
|
||||
end
|
||||
inherited btnTextDel: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 12
|
||||
TabOrder = 38
|
||||
end
|
||||
inherited edtTextName: TEdit
|
||||
TabOrder = 39
|
||||
end
|
||||
inherited edtTextFileName: TEdit
|
||||
TabOrder = 40
|
||||
end
|
||||
inherited btnTextOpen: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 14
|
||||
TabOrder = 41
|
||||
Text = ''
|
||||
end
|
||||
inherited sgTFiles: TStringGrid
|
||||
Viewport.Width = 293.000000000000000000
|
||||
Viewport.Height = 124.000000000000000000
|
||||
TabOrder = 44
|
||||
Viewport.Width = 297.000000000000000000
|
||||
Viewport.Height = 149.000000000000000000
|
||||
inherited scTFileFile: TStringColumn
|
||||
Size.Width = 170.000000000000000000
|
||||
end
|
||||
@@ -367,23 +431,33 @@ object Form1: TForm1
|
||||
inherited GroupBox2: TGroupBox
|
||||
TabOrder = 7
|
||||
inherited sgAIGen: TStringGrid
|
||||
Viewport.Width = 301.000000000000000000
|
||||
Viewport.Height = 124.000000000000000000
|
||||
TabOrder = 37
|
||||
Viewport.Width = 305.000000000000000000
|
||||
Viewport.Height = 149.000000000000000000
|
||||
inherited StringColumn2: TStringColumn
|
||||
Size.Width = 180.000000000000000000
|
||||
end
|
||||
end
|
||||
inherited edtAIGenName: TEdit
|
||||
TabOrder = 38
|
||||
end
|
||||
inherited edtAIGenRequest: TEdit
|
||||
TabOrder = 39
|
||||
end
|
||||
inherited btnAIGenAdd: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 0
|
||||
TabOrder = 40
|
||||
end
|
||||
inherited btnAIGenDel: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 12
|
||||
TabOrder = 41
|
||||
end
|
||||
inherited btnAIGetTextUser: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 11
|
||||
TabOrder = 42
|
||||
end
|
||||
end
|
||||
end
|
||||
@@ -427,8 +501,8 @@ object Form1: TForm1
|
||||
inherited sgWebChats: TStringGrid
|
||||
Size.Width = 1042.000000000000000000
|
||||
Size.Height = 282.000000000000000000
|
||||
Viewport.Width = 1038.000000000000000000
|
||||
Viewport.Height = 257.000000000000000000
|
||||
Viewport.Width = 1042.000000000000000000
|
||||
Viewport.Height = 282.000000000000000000
|
||||
inherited StringColumn2: TStringColumn
|
||||
Size.Width = 200.000000000000000000
|
||||
end
|
||||
@@ -448,7 +522,7 @@ object Form1: TForm1
|
||||
TabOrder = 3
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
TabOrder = 5
|
||||
TabOrder = 6
|
||||
end
|
||||
object btnCreateChat: TButton [4]
|
||||
Images = ImageList1
|
||||
@@ -465,10 +539,16 @@ object Form1: TForm1
|
||||
end
|
||||
inherited btnCreateOBSNotify: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 5
|
||||
ImageIndex = 24
|
||||
Position.X = 110.000000000000000000
|
||||
OnClick = frOBS1btnCreateOBSNotifyClick
|
||||
end
|
||||
inherited btnCreateOBSKandinsky: TButton
|
||||
Images = ImageList1
|
||||
ImageIndex = 5
|
||||
Position.X = 264.000000000000000000
|
||||
OnClick = frOBS1btnCreateOBSKandinskyClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object TabItem6: TTabItem
|
||||
@@ -531,6 +611,9 @@ object Form1: TForm1
|
||||
ImageIndex = 14
|
||||
Text = ''
|
||||
end
|
||||
inherited OpenDialog1: TOpenDialog
|
||||
Top = 32
|
||||
end
|
||||
end
|
||||
end
|
||||
object TabItem7: TTabItem
|
||||
@@ -22198,7 +22281,7 @@ object Form1: TForm1
|
||||
SourceRect.Bottom = 512.000000000000000000
|
||||
end>
|
||||
end>
|
||||
Left = 344
|
||||
Top = 194
|
||||
Left = 520
|
||||
Top = 42
|
||||
end
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user