PC1\PTyTb
96 lines
2.4 KiB
ObjectPascal
96 lines
2.4 KiB
ObjectPascal
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.
|