реструктуризация файлов, добавление вебчатов

2025-08-14 10:50:33 +03:00
parent 04b5259737
commit 3ac578b6e6
79 changed files with 10256 additions and 1284 deletions
@@ -0,0 +1,83 @@
+unit fContruct;
+
+interface
+
+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;
+
+type
+  TfrContruct = class(TFrame)
+    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;
+    procedure btnAddUserNameClick(Sender: TObject);
+    procedure btnGetDateFollowClick(Sender: TObject);
+    procedure btnGetAgeAccauntClick(Sender: TObject);
+    procedure btnGetChannelStatClick(Sender: TObject);
+    procedure btnGPTClick(Sender: TObject);
+    procedure btnAIPicClick(Sender: TObject);
+    procedure btnRandomUserNameClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.fmx}
+
+procedure TfrContruct.btnAddUserNameClick(Sender: TObject);
+begin
+mResponse.Lines.text := mResponse.Lines.text + '[USERNAME]';
+end;
+
+procedure TfrContruct.btnAIPicClick(Sender: TObject);
+begin
+mResponse.Lines.text := mResponse.Lines.text + ' [Kandinsky]';
+end;
+
+procedure TfrContruct.btnGetAgeAccauntClick(Sender: TObject);
+begin
+  mResponse.Lines.text := mResponse.Lines.text + ' [AGE]';
+end;
+
+procedure TfrContruct.btnGetChannelStatClick(Sender: TObject);
+begin
+ mResponse.Lines.text := mResponse.Lines.text + ' [STAT]';
+end;
+
+procedure TfrContruct.btnGetDateFollowClick(Sender: TObject);
+begin
+   mResponse.Lines.text := mResponse.Lines.text + ' [FOLLOW]';
+end;
+
+procedure TfrContruct.btnGPTClick(Sender: TObject);
+begin
+  mResponse.Lines.text := mResponse.Lines.text + ' [AI]';
+end;
+
+procedure TfrContruct.btnRandomUserNameClick(Sender: TObject);
+begin
+mResponse.Lines.text := mResponse.Lines.text + ' [RANDOMUSER]';
+end;
+
+end.