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
forms/uGeneral.pas
+37 -3
View File
@@ -74,7 +74,6 @@ type
frPlayerWeb1: TfrPlayerWeb;
frEvents1: TfrEvents;
GroupBox2: TGroupBox;
cbHelloTTS: TCheckBox;
GroupBox3: TGroupBox;
frRevards1: TfrRevards;
procedure cbThemeChange(Sender: TObject);
@@ -89,6 +88,9 @@ type
procedure frTTS1btnSendClick(Sender: TObject);
procedure btnConnectingClick(Sender: TObject);
procedure frAutoActions1btnCounterAddClick(Sender: TObject);
procedure frAutoActions1btnCounterEditClick(Sender: TObject);
procedure frAutoActions1btnCounterDeleteClick(Sender: TObject);
private
{ Private declarations }
procedure toSpeech(aText: string);
@@ -723,7 +725,7 @@ begin
UpdateWordCounters(processedText);
CheckBannedWords(processedText, aRecord.DisplayName, aRecord.UserId);
if (frCommands1.cbTextToSpeach.IsChecked) and (processedText[1] = '!') and
if (frCommands1.frContruct1.cbTextToSpeach.IsChecked) and (processedText[1] = '!') and
(processedText[2] = '!') and (processedText[3] = '!') then
begin
s := StringReplace(processedText, '!!!', '', [rfReplaceAll]);
@@ -732,7 +734,7 @@ begin
exit;
end;
if (TTW_Bot.cbHelloTTS.IsChecked) and (aRecord.FirstMsg = 1) then
if (frCommands1.frContruct1.cbHelloTTS.IsChecked) and (aRecord.FirstMsg = 1) then
toSpeech('приветствую, ' + IfThen(aRecord.DisplayName <> '',
aRecord.DisplayName, aRecord.Username));
@@ -803,6 +805,33 @@ begin
end;
end;
procedure TTTW_Bot.frAutoActions1btnCounterAddClick(Sender: TObject);
var i:integer;
begin
frAutoActions1.btnCounterAddClick(Sender);
frCommands1.frContruct1.cbCounterName.Items.Clear;
for i:=0 to high(frAutoActions1.listCounters) do
frCommands1.frContruct1.cbCounterName.Items.Add(frAutoActions1.listCounters[i].counterName);
end;
procedure TTTW_Bot.frAutoActions1btnCounterDeleteClick(Sender: TObject);
var i:integer;
begin
frAutoActions1.btnCounterDeleteClick(Sender);
frCommands1.frContruct1.cbCounterName.Items.Clear;
for i:=0 to high(frAutoActions1.listCounters) do
frCommands1.frContruct1.cbCounterName.Items.Add(frAutoActions1.listCounters[i].counterName);
end;
procedure TTTW_Bot.frAutoActions1btnCounterEditClick(Sender: TObject);
var i:integer;
begin
frAutoActions1.btnCounterEditClick(Sender);
frCommands1.frContruct1.cbCounterName.Items.Clear;
for i:=0 to high(frAutoActions1.listCounters) do
frCommands1.frContruct1.cbCounterName.Items.Add(frAutoActions1.listCounters[i].counterName);
end;
procedure TTTW_Bot.frCommands1btnRandAddClick(Sender: TObject);
begin
frCommands1.btnRandAddClick(Sender);
@@ -1065,10 +1094,15 @@ procedure TTTW_Bot.ReadDB;
// Загрузка гридов автоматических действий
procedure LoadAutoActionsGrids;
var i:integer;
begin
db.LoadRecordArray<TListTimer>('listTimer', frAutoActions1.listTimer);
db.LoadRecordArray<TBanWord>('listBanWords', frAutoActions1.listBanWords);
db.LoadRecordArray<TCounter>('listCounters', frAutoActions1.listCounters);
for I := 0 to High(frAutoActions1.listCounters) do
frCommands1.frContruct1.cbCounterName.items.Add(frAutoActions1.listCounters[i].counterName);
frCommands1.frContruct1.cbTextToSpeach.IsChecked:=db.ReadSetting('cbTextToSpeach', 'False') = 'True';
frCommands1.frContruct1.cbHelloTTS.IsChecked:= db.ReadSetting('cbHelloTTS', 'False') = 'True';
frAutoActions1.initTimers;
frAutoActions1.UpdateGridFromArray;
end;