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

добавил часть модулей, нужно переделать БД на records

Browse Source
This commit is contained in:
PC1\PTyTb
2025-08-06 14:54:32 +03:00
parent d68064187d
commit dacd2e6050
23 changed files with 2610 additions and 201 deletions
Download Patch File Download Diff File Expand all files Collapse all files
uGeneral.pas
+53 -25
View File
@@ -13,13 +13,13 @@ uses
windows, System.Skia, FMX.Skia, uCreateChat, uCreateNotify, fOBS;
type
TForm1 = class(TForm)
TTTW_Bot = class(TForm)
V: TTabControl;
TabItem1: TTabItem;
TabItem2: TTabItem;
TabItem3: TTabItem;
TabItem4: TTabItem;
fSettings: TfrSettings;
frSettings1: TfrSettings;
ImageList1: TImageList;
TabItem5: TTabItem;
Panel1: TPanel;
@@ -59,6 +59,9 @@ type
procedure SpeedButton2Click(Sender: TObject);
procedure frChatOBS1btnCreateChatClick(Sender: TObject);
procedure frOBS1btnCreateOBSNotifyClick(Sender: TObject);
procedure frOBS1btnCreateOBSKandinskyClick(Sender: TObject);
procedure frSettings1btnDAStartClick(Sender: TObject);
procedure frCommands1btnRandAddClick(Sender: TObject);
private
{ Private declarations }
procedure ReadDB();
@@ -67,7 +70,7 @@ type
end;
var
Form1: TForm1;
TTW_Bot: TTTW_Bot;
myConst: TConst;
db: TSettingsDatabase;
appconst: TBotAppCfg;
@@ -76,7 +79,7 @@ implementation
{$R *.fmx}
procedure TForm1.cbThemeChange(Sender: TObject);
procedure TTTW_Bot.cbThemeChange(Sender: TObject);
begin
cbTheme.ItemIndex := cbTheme.Items.IndexOf(cbTheme.text);
if cbTheme.ItemIndex <> -1 then
@@ -84,7 +87,7 @@ begin
// db.WriteSetting('cbTheme', inttostr(cbTheme.ItemIndex));
end;
procedure TForm1.FormCreate(Sender: TObject);
procedure TTTW_Bot.FormCreate(Sender: TObject);
var
Path: string;
SearchRec: TSearchRec;
@@ -141,17 +144,46 @@ begin
end;
procedure TForm1.frChatOBS1btnCreateChatClick(Sender: TObject);
procedure TTTW_Bot.frChatOBS1btnCreateChatClick(Sender: TObject);
begin
fCreateChat.Show;
end;
procedure TForm1.frOBS1btnCreateOBSNotifyClick(Sender: TObject);
procedure TTTW_Bot.frCommands1btnRandAddClick(Sender: TObject);
begin
frCommands1.btnRandAddClick(Sender);
end;
procedure TTTW_Bot.frOBS1btnCreateOBSKandinskyClick(Sender: TObject);
var dport:integer;
I: Integer;
begin
dport:=8080;
for I := 0 to frOBS1.sgWebChats.RowCount-1 do
begin
if strtoint(frOBS1.sgWebChats.Cells[0,i]) >= dport then
dport:=strtoint(frOBS1.sgWebChats.Cells[0,i])+1;
end;
frOBS1.sgWebChats.RowCount:=frOBS1.sgWebChats.RowCount+1;
frOBS1.sgWebChats.Cells[0,frOBS1.sgWebChats.RowCount-1]:=inttostr(dport);
frOBS1.sgWebChats.Cells[1,frOBS1.sgWebChats.RowCount-1]:='Kandinsky';
frOBS1.sgWebChats.Cells[2,frOBS1.sgWebChats.RowCount-1]:='http://127.0.0.1:'+inttostr(dport);
end;
procedure TTTW_Bot.frOBS1btnCreateOBSNotifyClick(Sender: TObject);
begin
fCreateNotify.Show;
end;
procedure TForm1.ReadDB;
procedure TTTW_Bot.frSettings1btnDAStartClick(Sender: TObject);
begin
frSettings1.btnDAStartClick(Sender);
end;
procedure TTTW_Bot.ReadDB;
var
I: Integer;
c: TComponent;
@@ -213,25 +245,26 @@ var
I: Integer;
c: TComponent;
begin
for I := 0 to fSettings.ComponentCount - 1 do
for I := 0 to frSettings1.ComponentCount - 1 do
begin
c := fSettings.Components[I];
c := frSettings1.Components[I];
if c is TEdit then
TEdit(c).text := db.ReadSetting(TEdit(c).Name)
else if c is TCheckBox then
TCheckBox(c).IsChecked := (db.ReadSetting(TCheckBox(c).Name) = 'True');
end;
db.FChannel := fSettings.edtChannel.text;
db.FChannel := frSettings1.edtChannel.text;
end;
// Çàãðóçêà äàííûõ â ãðèäû êîìàíä
procedure LoadGridsData;
begin
db.LoadGridFromTable('sgRandomInt', frCommands1.sgRandomInt);
DB.LoadRecordArray<TRandomCounters>('RandomCounters', frCommands1.RandomCounters);
{ db.LoadGridFromTable('sgRandomInt', frCommands1.sgRandomInt);
db.LoadGridFromTable('sgCommands', frCommands1.sgCommands);
db.LoadGridFromTable('sgSAFiles', frCommands1.sgSAFiles);
db.LoadGridFromTable('sgTFiles', frCommands1.sgTFiles);
db.LoadGridFromTable('sgAIGen', frCommands1.sgAIGen);
db.LoadGridFromTable('sgAIGen', frCommands1.sgAIGen); }
end;
// Çàãðóçêà ñïèñêà ãðóïï
@@ -282,21 +315,17 @@ var
end;
end;
fSettings.btnGetClientID.Visible := (appconst.TTV_ClientID <> '');
frSettings1.btnGetClientID.Visible := (appconst.TTV_ClientID <> '');
frAI1.btnGetAIDef.Visible := ((appconst.AI_GigaChat_AC <> '') and
(appconst.AI_GigaChat_ClientID <> '')) or
(appconst.AI_ChatGPT_Token <> '') or (appconst.AI_DeepSeec_Token <> '');
fSettings.btnGetDADef.Visible := (appconst.DA_ClientID <> '') and
frSettings1.btnGetDADef.Visible := (appconst.DA_ClientID <> '') and
(appconst.DA_Sicret <> '') and (appconst.DA_URL <> '');
finally
sl.Free;
end;
end;
// Çàãðóçêà íàñòðîåê óâåäîìëåíèé
procedure LoadNotifySettings;
var
@@ -318,9 +347,6 @@ var
end;
end;
// Çàãðóçêà íàñòðîåê ÈÈ
procedure LoadAISettings;
var
@@ -399,6 +425,8 @@ var
3:
SetupCustomAISettings;
end;
frSettings1.init;
end;
@@ -423,20 +451,20 @@ begin
LoadAutoActionsGrids;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
procedure TTTW_Bot.SpeedButton1Click(Sender: TObject);
begin
ShellExecute(0, 'open', pwidechar('https://www.twitch.tv/incadence'),
nil, nil, 1);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
procedure TTTW_Bot.SpeedButton2Click(Sender: TObject);
begin
// https://www.twitch.tv/kuznecogr
ShellExecute(0, 'open', pwidechar('https://www.twitch.tv/kuznecogr'),
nil, nil, 1);
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
procedure TTTW_Bot.SpeedButton3Click(Sender: TObject);
begin
// https://www.flaticon.com/ru/authors/karacis
ShellExecute(0, 'open',