PTyTb/ttw_fmx_v10
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
PTyTb
2025-12-12 07:23:21 +03:00
parent 2518f9326e
commit b9343e93f0
20 changed files with 289 additions and 423 deletions
Download Patch File Download Diff File Expand all files Collapse all files
frames/fAutoActions.fmx
+32 -32
View File
@@ -12,7 +12,7 @@ object frAutoActions: TfrAutoActions
TabOrder = 1
object edtMessage: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 38
TabOrder = 37
Position.X = 8.000000000000000000
Position.Y = 257.000000000000000000
Size.Width = 406.000000000000000000
@@ -21,7 +21,7 @@ object frAutoActions: TfrAutoActions
end
object edtInterval: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 39
TabOrder = 38
Text = '10'
Position.X = 412.000000000000000000
Position.Y = 257.000000000000000000
@@ -32,7 +32,7 @@ object frAutoActions: TfrAutoActions
object btnAddMessage: TButton
Position.X = 8.000000000000000000
Position.Y = 287.000000000000000000
TabOrder = 40
TabOrder = 39
Text = #1044#1086#1073#1072#1074#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnAddMessageClick
@@ -40,7 +40,7 @@ object frAutoActions: TfrAutoActions
object btnRmMessage: TButton
Position.X = 184.000000000000000000
Position.Y = 287.000000000000000000
TabOrder = 41
TabOrder = 40
Text = #1059#1076#1072#1083#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnRmMessageClick
@@ -48,7 +48,7 @@ object frAutoActions: TfrAutoActions
object btnEditMessage: TButton
Position.X = 96.000000000000000000
Position.Y = 287.000000000000000000
TabOrder = 42
TabOrder = 41
Text = #1048#1079#1084#1077#1085#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnEditMessageClick
@@ -59,7 +59,7 @@ object frAutoActions: TfrAutoActions
Size.Width = 55.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 43
TabOrder = 42
Text = #1058#1077#1089#1090
TextSettings.Trimming = None
OnClick = btnNotifyTestClick
@@ -72,12 +72,12 @@ object frAutoActions: TfrAutoActions
Size.Width = 463.000000000000000000
Size.Height = 225.000000000000000000
Size.PlatformDefault = False
TabOrder = 44
TabOrder = 43
RowCount = 0
OnEditingDone = sgTimersEditingDone
OnCellClick = sgTimersCellClick
Viewport.Width = 459.000000000000000000
Viewport.Height = 200.000000000000000000
Viewport.Width = 463.000000000000000000
Viewport.Height = 225.000000000000000000
object ccTimerEnable: TCheckColumn
Header = #1042#1082#1083
HeaderSettings.TextSettings.WordWrap = False
@@ -110,7 +110,7 @@ object frAutoActions: TfrAutoActions
TabOrder = 2
object edtBanWords: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 38
TabOrder = 37
Position.X = 8.000000000000000000
Position.Y = 257.000000000000000000
Size.Width = 297.000000000000000000
@@ -120,7 +120,7 @@ object frAutoActions: TfrAutoActions
object btnBanWordsAdd: TButton
Position.X = 8.000000000000000000
Position.Y = 367.000000000000000000
TabOrder = 39
TabOrder = 38
Text = #1044#1086#1073#1072#1074#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnBanWordsAddClick
@@ -128,7 +128,7 @@ object frAutoActions: TfrAutoActions
object btnBanWordsEdt: TButton
Position.X = 96.000000000000000000
Position.Y = 367.000000000000000000
TabOrder = 40
TabOrder = 39
Text = #1048#1079#1084#1077#1085#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnBanWordsEdtClick
@@ -136,7 +136,7 @@ object frAutoActions: TfrAutoActions
object btnBanWordsDel: TButton
Position.X = 184.000000000000000000
Position.Y = 367.000000000000000000
TabOrder = 41
TabOrder = 40
Text = #1059#1076#1072#1083#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnBanWordsDelClick
@@ -149,11 +149,11 @@ object frAutoActions: TfrAutoActions
Size.Width = 297.000000000000000000
Size.Height = 225.000000000000000000
Size.PlatformDefault = False
TabOrder = 42
TabOrder = 41
RowCount = 0
OnCellClick = sgBanWordsCellClick
Viewport.Width = 293.000000000000000000
Viewport.Height = 200.000000000000000000
Viewport.Width = 297.000000000000000000
Viewport.Height = 225.000000000000000000
object scRegEx: TStringColumn
Header = #1056#1077#1075#1091#1083#1103#1088#1085#1086#1077' '#1074#1099#1088#1072#1078#1077#1085#1080#1077
HeaderSettings.TextSettings.WordWrap = False
@@ -164,7 +164,7 @@ object frAutoActions: TfrAutoActions
object btnBanWordsCheck: TButton
Position.X = 225.000000000000000000
Position.Y = 312.000000000000000000
TabOrder = 43
TabOrder = 42
Text = #1055#1088#1086#1074#1077#1088#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnBanWordsCheckClick
@@ -174,11 +174,11 @@ object frAutoActions: TfrAutoActions
Position.Y = 287.000000000000000000
TextSettings.Trimming = None
Text = #1055#1088#1086#1074#1077#1088#1082#1072':'
TabOrder = 44
TabOrder = 43
end
object edtBanWordsCheck: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 45
TabOrder = 44
Position.X = 8.000000000000000000
Position.Y = 312.000000000000000000
Size.Width = 209.000000000000000000
@@ -193,14 +193,14 @@ object frAutoActions: TfrAutoActions
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = #1056#1077#1079#1091#1083#1100#1090#1072#1090':'
TabOrder = 46
TabOrder = 45
end
object lBanWordsCheck: TLabel
Position.X = 81.000000000000000000
Position.Y = 342.000000000000000000
TextSettings.Trimming = None
Text = #1085#1077#1090' '#1073#1072#1085#1074#1086#1088#1076#1072
TabOrder = 47
TabOrder = 46
end
end
object GroupBox17: TGroupBox
@@ -213,7 +213,7 @@ object frAutoActions: TfrAutoActions
TabOrder = 0
object edtCounterName: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 41
TabOrder = 40
Position.X = 8.000000000000000000
Position.Y = 153.000000000000000000
Size.Width = 102.000000000000000000
@@ -222,7 +222,7 @@ object frAutoActions: TfrAutoActions
end
object edtCounterTrigger: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 39
TabOrder = 38
Position.X = 118.000000000000000000
Position.Y = 153.000000000000000000
Size.Width = 290.000000000000000000
@@ -231,7 +231,7 @@ object frAutoActions: TfrAutoActions
end
object edtCounterCount: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 38
TabOrder = 37
Text = '0'
Position.X = 416.000000000000000000
Position.Y = 153.000000000000000000
@@ -242,7 +242,7 @@ object frAutoActions: TfrAutoActions
object btnCounterAdd: TButton
Position.X = 8.000000000000000000
Position.Y = 183.000000000000000000
TabOrder = 40
TabOrder = 39
Text = #1044#1086#1073#1072#1074#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnCounterAddClick
@@ -250,7 +250,7 @@ object frAutoActions: TfrAutoActions
object btnCounterDelete: TButton
Position.X = 184.000000000000000000
Position.Y = 183.000000000000000000
TabOrder = 42
TabOrder = 41
Text = #1059#1076#1072#1083#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnCounterDeleteClick
@@ -261,7 +261,7 @@ object frAutoActions: TfrAutoActions
Size.Width = 25.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 43
TabOrder = 42
Text = '+'
TextSettings.Trimming = None
OnClick = btnCounterPClick
@@ -272,7 +272,7 @@ object frAutoActions: TfrAutoActions
Size.Width = 24.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 44
TabOrder = 43
Text = '-'
TextSettings.Trimming = None
OnClick = btnCounterMClick
@@ -280,7 +280,7 @@ object frAutoActions: TfrAutoActions
object btnCounterEdit: TButton
Position.X = 96.000000000000000000
Position.Y = 183.000000000000000000
TabOrder = 45
TabOrder = 44
Text = #1048#1079#1084#1077#1085#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnCounterEditClick
@@ -293,11 +293,11 @@ object frAutoActions: TfrAutoActions
Size.Width = 463.000000000000000000
Size.Height = 121.000000000000000000
Size.PlatformDefault = False
TabOrder = 46
TabOrder = 45
RowCount = 0
OnCellClick = sgCounterCellClick
Viewport.Width = 459.000000000000000000
Viewport.Height = 96.000000000000000000
Viewport.Width = 463.000000000000000000
Viewport.Height = 121.000000000000000000
object scCounterName: TStringColumn
Header = #1053#1072#1079#1074#1072#1085#1080#1077
HeaderSettings.TextSettings.WordWrap = False
frames/fColorSettings.fmx
+6 -6
View File
@@ -12,7 +12,7 @@ object frColorSettings: TfrColorSettings
Size.Width = 120.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 39
TabOrder = 37
end
object cpStyleBlockColor: TColorPanel
Color = claWhite
@@ -38,25 +38,25 @@ object frColorSettings: TfrColorSettings
Position.Y = 10.000000000000000000
TextSettings.Trimming = None
Text = #1062#1074#1077#1090' '#1088#1072#1084#1082#1080
TabOrder = 37
TabOrder = 36
end
object Label44: TLabel
Position.X = 177.000000000000000000
Position.Y = 120.000000000000000000
TextSettings.Trimming = None
Text = #1054#1090#1089#1090#1091#1087#1099
TabOrder = 41
TabOrder = 39
end
object Label48: TLabel
Position.X = 177.000000000000000000
Position.Y = 65.000000000000000000
TextSettings.Trimming = None
Text = #1058#1086#1083#1097#1080#1085#1072' '#1088#1072#1084#1082#1080
TabOrder = 42
TabOrder = 41
end
object sbStyleBlockBorderSize: TSpinBox
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 44
TabOrder = 42
Cursor = crIBeam
Value = 2.000000000000000000
Position.X = 177.000000000000000000
@@ -67,7 +67,7 @@ object frColorSettings: TfrColorSettings
end
object sbStyleBlockPadding: TSpinBox
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 45
TabOrder = 44
Cursor = crIBeam
Value = 10.000000000000000000
Position.X = 177.000000000000000000
frames/fCommands.fmx
+29 -8
View File
@@ -49,8 +49,32 @@ object frCommands: TfrCommands
Viewport.Height = 161.000000000000000000
end
inherited GroupBox7: TGroupBox
inherited btnAddUserName: TButton
TabOrder = 37
end
inherited btnGetDateFollow: TButton
TabOrder = 38
end
inherited btnGetAgeAccaunt: TButton
TabOrder = 39
end
inherited btnCounterAddtoText: TButton
TabOrder = 40
end
inherited cbCounterName: TComboBox
TabOrder = 41
end
inherited btnGPT: TButton
TabOrder = 42
end
inherited btnRandomUserName: TButton
TabOrder = 43
end
inherited btnGetChannelStat: TButton
TabOrder = 44
end
inherited btnAIPic: TButton
TabOrder = 46
TabOrder = 45
end
end
inherited btnAddCommand: TButton
@@ -62,9 +86,6 @@ object frCommands: TfrCommands
inherited btnRmCommand: TButton
OnClick = frContruct1btnRmCommandClick
end
inherited cbHelloTTS: TCheckBox
OnClick = nil
end
end
end
object GroupBox9: TGroupBox
@@ -94,16 +115,16 @@ object frCommands: TfrCommands
Viewport.Height = 116.000000000000000000
end
inherited btnRandomAdd: TButton
TabOrder = 31
TabOrder = 30
end
inherited btnRandomDel: TButton
TabOrder = 32
TabOrder = 31
end
inherited btnRmGroup: TButton
TabOrder = 34
TabOrder = 33
end
inherited Label4: TLabel
TabOrder = 36
TabOrder = 35
end
end
end
frames/fPlayerWeb.fmx
+1
View File
@@ -13,6 +13,7 @@ object frPlayerWeb: TfrPlayerWeb
Size.Width = 187.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = #1057#1089#1099#1083#1082#1072' '#1076#1083#1103' OBS '#1044#1086#1082'-'#1087#1072#1085#1077#1083#1080
TabOrder = 3
end
frames/fPlayerWeb.pas
+3 -3
View File
@@ -7,7 +7,7 @@ uses
System.Variants, FMX.Styles, IdHTTPWebBrokerBridge, IdGlobal, Web.HTTPApp,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
FMX.Controls.Presentation, FMX.Layouts, FMX.ListBox, uPlayerThread,
bass_simple, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Edit;
{bass_simple,} FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Edit;
type
TfrPlayerWeb = class(TFrame)
@@ -15,7 +15,7 @@ type
Edit1: TEdit;
private
mp: TBassSimple;
{ mp: TBassSimple;}
Player: TPlayerThread;
FServer: TIdHTTPWebBrokerBridge;
procedure StartServer;
@@ -33,7 +33,7 @@ begin
FServer.Active := False;
FServer.Bindings.Clear;
Player.Free;
mp.Free;
{mp.Free;}
end;
procedure TfrPlayerWeb.init;
frames/fSettings.fmx
+12 -12
View File
@@ -173,7 +173,7 @@ object frSettings: TfrSettings
Size.PlatformDefault = False
TextSettings.Trimming = None
Text = 'API Token '#1057#1090#1088#1080#1084#1077#1088#1072
TabOrder = 38
TabOrder = 37
end
object cbTTVAutoLogin: TCheckBox
Position.X = 8.000000000000000000
@@ -197,7 +197,7 @@ object frSettings: TfrSettings
object btnDAGetCode: TButton
Position.X = 200.000000000000000000
Position.Y = 216.000000000000000000
TabOrder = 34
TabOrder = 33
Text = #1055#1086#1083#1091#1095#1080#1090#1100
TextSettings.Trimming = None
OnClick = btnDAGetCodeClick
@@ -207,11 +207,11 @@ object frSettings: TfrSettings
Position.Y = 24.000000000000000000
TextSettings.Trimming = None
Text = 'Client ID'
TabOrder = 29
TabOrder = 28
end
object edtDAClientID: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 31
TabOrder = 30
Password = True
Position.X = 8.000000000000000000
Position.Y = 49.000000000000000000
@@ -225,11 +225,11 @@ object frSettings: TfrSettings
Position.Y = 79.000000000000000000
TextSettings.Trimming = None
Text = 'Client Secret'
TabOrder = 30
TabOrder = 29
end
object edtDAClientSecret: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 32
TabOrder = 31
Password = True
Position.X = 8.000000000000000000
Position.Y = 104.000000000000000000
@@ -243,11 +243,11 @@ object frSettings: TfrSettings
Position.Y = 134.000000000000000000
TextSettings.Trimming = None
Text = 'Redirect URL'
TabOrder = 33
TabOrder = 32
end
object edtDARedirectURL: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 35
TabOrder = 34
Password = True
Position.X = 8.000000000000000000
Position.Y = 159.000000000000000000
@@ -258,7 +258,7 @@ object frSettings: TfrSettings
end
object edtDACode: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 36
TabOrder = 35
Password = True
Position.X = 8.000000000000000000
Position.Y = 214.000000000000000000
@@ -271,7 +271,7 @@ object frSettings: TfrSettings
Position.Y = 189.000000000000000000
TextSettings.Trimming = None
Text = 'Code'
TabOrder = 38
TabOrder = 37
end
object btnDAStart: TButton
Position.X = 8.000000000000000000
@@ -279,7 +279,7 @@ object frSettings: TfrSettings
Size.Width = 121.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 40
TabOrder = 39
Text = #1055#1086#1076#1082#1083#1102#1095#1080#1090#1100#1089#1103
TextSettings.Trimming = None
OnClick = btnDAStartClick
@@ -291,7 +291,7 @@ object frSettings: TfrSettings
Size.Width = 209.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 44
TabOrder = 43
Text = #1055#1086#1083#1091#1095#1080#1090#1100' '#1076#1072#1085#1085#1099#1077' Donation Alerts'
TextSettings.Trimming = None
Visible = False
frames/fTTS.fmx
+3
View File
@@ -5,6 +5,7 @@ object frTTS: TfrTTS
object Label1: TLabel
Position.X = 8.000000000000000000
Position.Y = 8.000000000000000000
TextSettings.Trimming = None
Text = #1043#1086#1083#1086#1089
TabOrder = 0
end
@@ -31,6 +32,7 @@ object frTTS: TfrTTS
object Label2: TLabel
Position.X = 8.000000000000000000
Position.Y = 63.000000000000000000
TextSettings.Trimming = None
Text = #1058#1077#1082#1089#1090' '#1076#1083#1103' '#1086#1079#1074#1091#1095#1082#1080
TabOrder = 3
end
@@ -46,6 +48,7 @@ object frTTS: TfrTTS
object Label3: TLabel
Position.X = 8.000000000000000000
Position.Y = 118.000000000000000000
TextSettings.Trimming = None
Text = #1048#1089#1090#1086#1095#1085#1080#1082
TabOrder = 5
end
frames/fTTS.pas
+1 -1
View File
@@ -6,7 +6,7 @@ uses
System.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants, winapi.shellapi,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
FMX.Edit, FMX.ListBox, FMX.Controls.Presentation, uTTS, bass_simple;
FMX.Edit, FMX.ListBox, FMX.Controls.Presentation, uTTS;
type
TfrTTS = class(TFrame)