init

2025-08-05 20:19:01 +03:00
commit cffb877b39
46 changed files with 27769 additions and 0 deletions
@@ -0,0 +1,95 @@
+unit fCommands;
+
+interface
+
+uses
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
+  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
+  System.Rtti, FMX.Grid.Style, FMX.Memo.Types, FMX.Grid, FMX.Layouts,
+  FMX.ListBox, FMX.Memo, FMX.Edit, FMX.Controls.Presentation, FMX.ScrollBox;
+
+type
+  TfrCommands = class(TFrame)
+    sgCommands: TStringGrid;
+    scCommand: TStringColumn;
+    scResponse: TStringColumn;
+    GroupBox1: TGroupBox;
+    Label12: TLabel;
+    edtCommand: TEdit;
+    mResponse: TMemo;
+    Label14: TLabel;
+    GroupBox7: TGroupBox;
+    btnAddUserName: TButton;
+    btnGetDateFollow: TButton;
+    btnGetAgeAccaunt: TButton;
+    btnCounterAddtoText: TButton;
+    cbCounterName: TComboBox;
+    btnGPT: TButton;
+    btnRandomUserName: TButton;
+    btnGetChannelStat: TButton;
+    btnAIPic: TButton;
+    btnAddCommand: TButton;
+    btnEditCommand: TButton;
+    btnRmCommand: TButton;
+    cbTextToSpeech: TCheckBox;
+    GroupBox9: TGroupBox;
+    lbRandomGroup: TListBox;
+    lbRandomRespons: TListBox;
+    edtRandomGroup: TEdit;
+    edtRandomRespons: TEdit;
+    btnRandomAdd: TButton;
+    btnRandomDel: TButton;
+    btnRmGroup: TButton;
+    Label4: TLabel;
+    Label5: TLabel;
+    GroupBox8: TGroupBox;
+    edtRandomName: TEdit;
+    edtOt: TEdit;
+    edtTo: TEdit;
+    btnRandAdd: TButton;
+    btnRandDel: TButton;
+    sgRandomInt: TStringGrid;
+    scRIntName: TStringColumn;
+    IntegerColumn1: TIntegerColumn;
+    scRIntTo: TIntegerColumn;
+    GroupBox11: TGroupBox;
+    btnSoundAdd: TButton;
+    btnSoundDel: TButton;
+    edtSoundName: TEdit;
+    edtSoundFileName: TEdit;
+    btnSoundOpen: TButton;
+    tbSoundVolume: TTrackBar;
+    btnSoundTest: TButton;
+    sgSAFiles: TStringGrid;
+    sgSAName: TStringColumn;
+    sgSAFile: TStringColumn;
+    GroupBox24: TGroupBox;
+    btnTextAdd: TButton;
+    btnTextDel: TButton;
+    edtTextName: TEdit;
+    edtTextFileName: TEdit;
+    btnTextOpen: TButton;
+    sgTFiles: TStringGrid;
+    scTFileName: TStringColumn;
+    scTFileFile: TStringColumn;
+    OpenDialog1: TOpenDialog;
+    GroupBox2: TGroupBox;
+    sgAIGen: TStringGrid;
+    StringColumn1: TStringColumn;
+    StringColumn2: TStringColumn;
+    edtAIGenName: TEdit;
+    edtAIGenRequest: TEdit;
+    btnAIGenAdd: TButton;
+    btnAIGenDel: TButton;
+    btnAIGetTextUser: TButton;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.fmx}
+
+end.