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

frames/fContruct.pas

@@ -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.