добавил навыки и привязал к ним донаты и баллы канала

2025-08-15 15:13:19 +03:00
parent 2335bf1656
commit 7a6934c825
15 changed files with 1120 additions and 78 deletions
@@ -20,6 +20,8 @@ type
    cbOutput: TComboBox;
    procedure btnUpdateVoicesClick(Sender: TObject);
    procedure btnSendClick(Sender: TObject);
+    procedure cbVoicesChange(Sender: TObject);
+    procedure cbOutputChange(Sender: TObject);
  private
    { Private declarations }
    tts: TTTS;
@@ -83,4 +85,14 @@ begin
  end;
 end;

+procedure TfrTTS.cbOutputChange(Sender: TObject);
+begin
+db.WriteSetting('cbOutput',inttostr(cbOutput.ItemIndex));
+end;
+
+procedure TfrTTS.cbVoicesChange(Sender: TObject);
+begin
+db.WriteSetting('cbVoices',inttostr(cbVoices.ItemIndex));
+end;
+
 end.