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

обработка счетчиков и сохранение галочек озвучки и приветствия

Browse Source
This commit is contained in:
PC1\PTyTb
2025-08-17 08:43:42 +03:00
parent d7bf17daa2
commit f71b621821
6 changed files with 104 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files
frames/fCommands.fmx
+7 -34
View File
@@ -49,32 +49,8 @@ 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 = 45
TabOrder = 46
end
end
inherited btnAddCommand: TButton
@@ -86,11 +62,8 @@ object frCommands: TfrCommands
inherited btnRmCommand: TButton
OnClick = frContruct1btnRmCommandClick
end
object cbTextToSpeach: TCheckBox
Position.X = 272.000000000000000000
Position.Y = 8.000000000000000000
TabOrder = 47
Text = #1054#1079#1074#1091#1095#1082#1072' '#1087#1086#1089#1083#1077' !!!'
inherited cbHelloTTS: TCheckBox
OnClick = nil
end
end
end
@@ -121,16 +94,16 @@ object frCommands: TfrCommands
Viewport.Height = 116.000000000000000000
end
inherited btnRandomAdd: TButton
TabOrder = 33
TabOrder = 31
end
inherited btnRandomDel: TButton
TabOrder = 34
TabOrder = 32
end
inherited btnRmGroup: TButton
TabOrder = 36
TabOrder = 34
end
inherited Label4: TLabel
TabOrder = 38
TabOrder = 36
end
end
end
frames/fCommands.pas
+1 -2
View File
@@ -4,7 +4,7 @@ interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes,
System.Variants,
System.Variants, StrUtils,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
System.Rtti, FMX.Grid.Style, FMX.Memo.Types, FMX.Grid, FMX.Layouts, uRecords,
FMX.ListBox, FMX.Memo, FMX.Edit, FMX.Controls.Presentation, FMX.ScrollBox,
@@ -36,7 +36,6 @@ type
frsgNeiro: TfrSimpleGrid;
frContruct1: TfrContruct;
frGroupsRequest1: TfrGroupsRequest;
cbTextToSpeach: TCheckBox;
procedure btnRandAddClick(Sender: TObject);
procedure btnRandDelClick(Sender: TObject);
procedure frsgSoundsbtnSoundDelClick(Sender: TObject);
frames/fContruct.fmx
+17 -5
View File
@@ -86,6 +86,7 @@ object frContruct: TfrContruct
TabOrder = 41
Text = #1057#1095#1077#1090#1095#1080#1082
TextSettings.Trimming = None
OnClick = btnCounterAddtoTextClick
end
object cbCounterName: TComboBox
Position.X = 111.000000000000000000
@@ -155,13 +156,24 @@ object frContruct: TfrContruct
Text = #1059#1076#1072#1083#1080#1090#1100
TextSettings.Trimming = None
end
object cbTextToSpeech: TCheckBox
Position.X = 167.000000000000000000
Size.Width = 217.000000000000000000
object cbTextToSpeach: TCheckBox
Position.X = 240.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 152.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 46
Text = #1054#1079#1074#1091#1095#1080#1074#1072#1090#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1103' '#1087#1086#1089#1083#1077' "!!!"'
Visible = False
Text = #1054#1079#1074#1091#1095#1080#1090#1100' '#1087#1086#1089#1083#1077' !!!'
OnExit = cbTextToSpeachExit
end
object cbHelloTTS: TCheckBox
Position.X = 240.000000000000000000
Position.Y = 35.000000000000000000
Size.Width = 151.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 47
Text = #1055#1088#1080#1074#1077#1090#1089#1090#1074#1086#1074#1072#1090#1100' '#1085#1086#1074#1099#1093
OnExit = cbHelloTTSExit
end
end
frames/fContruct.pas
+25 -2
View File
@@ -6,7 +6,7 @@ uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
FMX.Memo.Types, FMX.ListBox, FMX.ScrollBox, FMX.Memo, FMX.Edit,
FMX.Controls.Presentation;
FMX.Controls.Presentation, StrUtils;
type
TfrContruct = class(TFrame)
@@ -27,7 +27,8 @@ type
btnAddCommand: TButton;
btnEditCommand: TButton;
btnRmCommand: TButton;
cbTextToSpeech: TCheckBox;
cbTextToSpeach: TCheckBox;
cbHelloTTS: TCheckBox;
procedure btnAddUserNameClick(Sender: TObject);
procedure btnGetDateFollowClick(Sender: TObject);
procedure btnGetAgeAccauntClick(Sender: TObject);
@@ -35,6 +36,9 @@ type
procedure btnGPTClick(Sender: TObject);
procedure btnAIPicClick(Sender: TObject);
procedure btnRandomUserNameClick(Sender: TObject);
procedure btnCounterAddtoTextClick(Sender: TObject);
procedure cbTextToSpeachExit(Sender: TObject);
procedure cbHelloTTSExit(Sender: TObject);
private
{ Private declarations }
public
@@ -45,6 +49,8 @@ implementation
{$R *.fmx}
uses ugeneral;
procedure TfrContruct.btnAddUserNameClick(Sender: TObject);
begin
mResponse.Lines.text := mResponse.Lines.text + '[USERNAME]';
@@ -55,6 +61,13 @@ begin
mResponse.Lines.text := mResponse.Lines.text + ' [Kandinsky]';
end;
procedure TfrContruct.btnCounterAddtoTextClick(Sender: TObject);
begin
if cbCounterName.Text = '' then
exit;
mResponse.Lines.text := mResponse.Lines.text + '``'+cbCounterName.Text+'``';
end;
procedure TfrContruct.btnGetAgeAccauntClick(Sender: TObject);
begin
mResponse.Lines.text := mResponse.Lines.text + ' [AGE]';
@@ -80,4 +93,14 @@ begin
mResponse.Lines.text := mResponse.Lines.text + ' [RANDOMUSER]';
end;
procedure TfrContruct.cbHelloTTSExit(Sender: TObject);
begin
db.WriteSetting('cbHelloTTS', ifthen(cbHelloTTS.IsChecked,'True','False'));
end;
procedure TfrContruct.cbTextToSpeachExit(Sender: TObject);
begin
db.WriteSetting('cbTextToSpeach', ifthen(cbTextToSpeach.IsChecked,'True','False'));
end;
end.