загрузка в новый гит с мелкими правками

This commit is contained in:
2025-12-12 07:23:21 +03:00
parent 2518f9326e
commit b9343e93f0
20 changed files with 289 additions and 423 deletions
+61 -55
View File
@@ -64,6 +64,7 @@ object TTW_Bot: TTTW_Bot
inherited btnGetToken: TButton
Images = ImageList1
ImageIndex = 10
OnClick = frSettings1btnGetTokenClick
end
inherited btnGetClientID: TButton
Images = ImageList1
@@ -78,6 +79,7 @@ object TTW_Bot: TTTW_Bot
Images = ImageList1
ImageIndex = 10
TabOrder = 30
OnClick = frSettings1btnGetTokenStreamerClick
end
inherited edtBotTokenStreamer: TEdit
TabOrder = 33
@@ -90,32 +92,33 @@ object TTW_Bot: TTTW_Bot
inherited btnDAGetCode: TButton
Images = ImageList1
ImageIndex = 10
TabOrder = 33
end
inherited Label63: TLabel
TabOrder = 26
end
inherited edtDAClientID: TEdit
TabOrder = 28
end
inherited Label64: TLabel
TabOrder = 27
end
inherited edtDAClientSecret: TEdit
TabOrder = 29
end
inherited Label65: TLabel
TabOrder = 32
TabOrder = 30
end
inherited edtDACode: TEdit
TabOrder = 34
end
inherited Label66: TLabel
TabOrder = 36
inherited edtDARedirectURL: TEdit
TabOrder = 31
end
inherited btnDAStart: TButton
Images = ImageList1
ImageIndex = 18
TabOrder = 40
OnClick = frSettings1btnDAStartClick
end
inherited btnGetDADef: TButton
Images = ImageList1
TabOrder = 38
TabOrder = 37
end
end
inherited btnOpenRomaning: TButton
@@ -130,6 +133,7 @@ object TTW_Bot: TTTW_Bot
Position.X = 8.000000000000000000
Position.Y = 351.000000000000000000
Size.Width = 201.000000000000000000
OnClick = frSettings1btnImportSettingsClick
end
inherited btnExportSettings: TButton
Images = ImageList1
@@ -198,7 +202,7 @@ object TTW_Bot: TTTW_Bot
TabOrder = 40
end
inherited edtKandiSecret: TEdit
TabOrder = 42
TabOrder = 46
end
end
end
@@ -244,35 +248,46 @@ object TTW_Bot: TTTW_Bot
inherited btnAddUserName: TButton
Images = ImageList1
ImageIndex = 11
TabOrder = 38
end
inherited btnGetDateFollow: TButton
Images = ImageList1
ImageIndex = 15
TabOrder = 39
end
inherited btnGetAgeAccaunt: TButton
Images = ImageList1
ImageIndex = 15
TabOrder = 40
end
inherited btnCounterAddtoText: TButton
Images = ImageList1
ImageIndex = 23
TabOrder = 41
end
inherited cbCounterName: TComboBox
TabOrder = 42
end
inherited btnGPT: TButton
Images = ImageList1
ImageIndex = 19
TabOrder = 43
end
inherited btnRandomUserName: TButton
Images = ImageList1
ImageIndex = 11
TabOrder = 44
end
inherited btnGetChannelStat: TButton
Images = ImageList1
ImageIndex = 22
Size.Width = 136.000000000000000000
TabOrder = 45
end
inherited btnAIPic: TButton
Images = ImageList1
ImageIndex = 5
TabOrder = 46
end
end
inherited btnAddCommand: TButton
@@ -287,6 +302,9 @@ object TTW_Bot: TTTW_Bot
Images = ImageList1
ImageIndex = 12
end
inherited cbHelloTTS: TCheckBox
Position.X = 241.000000000000000000
end
end
end
inherited GroupBox9: TGroupBox
@@ -302,17 +320,17 @@ object TTW_Bot: TTTW_Bot
inherited btnRandomAdd: TButton
Images = ImageList1
ImageIndex = 0
TabOrder = 29
TabOrder = 28
end
inherited btnRandomDel: TButton
Images = ImageList1
ImageIndex = 12
TabOrder = 30
TabOrder = 29
end
inherited btnRmGroup: TButton
Images = ImageList1
ImageIndex = 4
TabOrder = 32
TabOrder = 30
end
inherited Label4: TLabel
TabOrder = 33
@@ -407,8 +425,8 @@ object TTW_Bot: TTTW_Bot
end
end
inherited OpenDialog1: TOpenDialog
Left = 664
Top = 368
Left = 672
Top = 320
end
inherited GroupBox2: TGroupBox
TabOrder = 7
@@ -524,6 +542,14 @@ object TTW_Bot: TTTW_Bot
ImageIndex = 12
Position.X = 737.000000000000000000
end
inherited PopupMenu1: TPopupMenu
Left = 616
Top = 32
end
inherited OpenDialog1: TOpenDialog
Left = 432
Top = 24
end
inherited pVKGenerate: TPanel
Visible = True
end
@@ -634,7 +660,7 @@ object TTW_Bot: TTTW_Bot
OnClick = frOBS1btnDeleteeChatClick
end
inherited Label1: TLabel
TabOrder = 20
TabOrder = 23
end
inherited btnCreateOBSNotify: TButton
Images = ImageList1
@@ -645,12 +671,11 @@ object TTW_Bot: TTTW_Bot
Images = ImageList1
ImageIndex = 5
Position.X = 264.000000000000000000
TabOrder = 19
TabOrder = 22
end
inherited btnCreateOBSGame: TButton
Images = ImageList1
ImageIndex = 20
TabOrder = 5
end
object btnCreateChat: TButton
Images = ImageList1
@@ -743,8 +768,7 @@ object TTW_Bot: TTTW_Bot
Text = ''
end
inherited OpenDialog1: TOpenDialog
Left = 472
Top = 32
Left = 424
end
end
end
@@ -785,34 +809,23 @@ object TTW_Bot: TTTW_Bot
Size.Height = 718.000000000000000000
Size.PlatformDefault = False
inherited GroupBox20: TGroupBox
inherited edtMessage: TEdit
TabOrder = 37
end
inherited edtInterval: TEdit
TabOrder = 38
end
inherited btnAddMessage: TButton
Images = ImageList1
ImageIndex = 0
TabOrder = 39
end
inherited btnRmMessage: TButton
Images = ImageList1
ImageIndex = 4
TabOrder = 40
end
inherited btnEditMessage: TButton
Images = ImageList1
ImageIndex = 3
TabOrder = 41
end
inherited btnNotifyTest: TButton
Images = ImageList1
ImageIndex = 25
TabOrder = 42
end
inherited sgTimers: TStringGrid
TabOrder = 43
Viewport.Width = 463.000000000000000000
Viewport.Height = 225.000000000000000000
inherited scTimerMessage: TStringColumn
@@ -824,26 +837,19 @@ object TTW_Bot: TTTW_Bot
end
end
inherited GroupBox23: TGroupBox
inherited edtBanWords: TEdit
TabOrder = 37
end
inherited btnBanWordsAdd: TButton
Images = ImageList1
ImageIndex = 0
TabOrder = 38
end
inherited btnBanWordsEdt: TButton
Images = ImageList1
ImageIndex = 3
TabOrder = 39
end
inherited btnBanWordsDel: TButton
Images = ImageList1
ImageIndex = 4
TabOrder = 40
end
inherited sgBanWords: TStringGrid
TabOrder = 41
Viewport.Width = 297.000000000000000000
Viewport.Height = 225.000000000000000000
inherited scRegEx: TStringColumn
@@ -856,26 +862,25 @@ object TTW_Bot: TTTW_Bot
Position.X = 217.000000000000000000
Size.Width = 88.000000000000000000
Size.PlatformDefault = False
TabOrder = 42
end
inherited Label6: TLabel
TabOrder = 43
end
inherited edtBanWordsCheck: TEdit
TabOrder = 44
Size.Width = 201.000000000000000000
end
inherited Label7: TLabel
TabOrder = 45
end
inherited lBanWordsCheck: TLabel
TabOrder = 46
end
end
inherited GroupBox17: TGroupBox
inherited edtCounterName: TEdit
TabOrder = 41
end
inherited edtCounterTrigger: TEdit
TabOrder = 39
end
inherited edtCounterCount: TEdit
TabOrder = 38
end
inherited btnCounterAdd: TButton
Images = ImageList1
ImageIndex = 0
TabOrder = 40
OnClick = frAutoActions1btnCounterAddClick
end
inherited btnCounterDelete: TButton
@@ -889,7 +894,6 @@ object TTW_Bot: TTTW_Bot
ImageIndex = 0
Position.X = 416.000000000000000000
Size.Width = 22.000000000000000000
TabOrder = 42
Text = ''
end
inherited btnCounterM: TButton
@@ -897,17 +901,14 @@ object TTW_Bot: TTTW_Bot
ImageIndex = 12
Position.X = 449.000000000000000000
Size.Width = 22.000000000000000000
TabOrder = 43
Text = ''
end
inherited btnCounterEdit: TButton
Images = ImageList1
ImageIndex = 3
TabOrder = 44
OnClick = frAutoActions1btnCounterEditClick
end
inherited sgCounter: TStringGrid
TabOrder = 45
Viewport.Width = 463.000000000000000000
Viewport.Height = 121.000000000000000000
inherited scCounterTrigger: TStringColumn
@@ -1059,6 +1060,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 65.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = #1058#1086#1082#1077#1085' '#1073#1086#1090#1072':'
TabOrder = 8
end
@@ -1068,6 +1070,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 97.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = #1058#1086#1082#1077#1085' '#1089#1090#1088#1080#1084#1077#1088#1072':'
TabOrder = 9
end
@@ -1077,6 +1080,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 32.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = '0'
TabOrder = 10
end
@@ -1086,6 +1090,7 @@ object TTW_Bot: TTTW_Bot
Size.Width = 48.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = '0'
TabOrder = 11
end
@@ -1093,6 +1098,7 @@ object TTW_Bot: TTTW_Bot
Anchors = [akTop, akRight]
Position.X = 819.000000000000000000
Position.Y = 8.000000000000000000
TextSettings.Trimming = None
Text = #1054#1090#1076#1077#1083#1100#1085#1086#1077' '#1089#1087#1072#1089#1080#1073#1086':'
TabOrder = 12
end
@@ -22455,7 +22461,7 @@ object TTW_Bot: TTTW_Bot
SourceRect.Bottom = 512.000000000000000000
end>
end>
Left = 520
Top = 42
Left = 536
Top = 66
end
end
+21
View File
@@ -93,6 +93,9 @@ type
procedure frAutoActions1btnCounterDeleteClick(Sender: TObject);
procedure frSettings1btnOpenRomaningClick(Sender: TObject);
procedure frSettings1btnOpenStreamClick(Sender: TObject);
procedure frSettings1btnGetTokenClick(Sender: TObject);
procedure frSettings1btnGetTokenStreamerClick(Sender: TObject);
procedure frSettings1btnImportSettingsClick(Sender: TObject);
private
{ Private declarations }
procedure toSpeech(aText: string);
@@ -890,6 +893,24 @@ begin
end;
procedure TTTW_Bot.frSettings1btnGetTokenClick(Sender: TObject);
begin
frSettings1.btnGetTokenClick(Sender);
end;
procedure TTTW_Bot.frSettings1btnGetTokenStreamerClick(Sender: TObject);
begin
frSettings1.btnGetTokenStreamerClick(Sender);
end;
procedure TTTW_Bot.frSettings1btnImportSettingsClick(Sender: TObject);
begin
frSettings1.btnImportSettingsClick(Sender);
end;
procedure TTTW_Bot.frSettings1btnOpenRomaningClick(Sender: TObject);
begin
frSettings1.btnOpenRomaningClick(Sender);