init

2025-08-05 20:19:01 +03:00
commit cffb877b39
46 changed files with 27769 additions and 0 deletions
@@ -0,0 +1,67 @@
+unit fChatOBS;
+
+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.Grid, FMX.ScrollBox, FMX.Edit, FMX.Colors,
+  FMX.ListBox, FMX.EditBox, FMX.SpinBox, FMX.Controls.Presentation;
+
+type
+  TfrChatOBS = class(TFrame)
+    GroupBox13: TGroupBox;
+    Label41: TLabel;
+    sbFontSize: TSpinBox;
+    ccbFontColor: TColorComboBox;
+    Label49: TLabel;
+    cbFontStyleDefault: TComboBox;
+    Label46: TLabel;
+    ccbBColor: TColorComboBox;
+    Label1: TLabel;
+    btnChangeBGColor: TButton;
+    GroupBox12: TGroupBox;
+    cpStyleBlockColor: TColorPanel;
+    Label40: TLabel;
+    Label42: TLabel;
+    ccbStyleBorderColor: TColorComboBox;
+    Label44: TLabel;
+    sbStyleBlockPadding: TSpinBox;
+    sbStyleBlockBorderSize: TSpinBox;
+    Label48: TLabel;
+    GroupBox10: TGroupBox;
+    Label27: TLabel;
+    Label38: TLabel;
+    sbMaxMsg: TSpinBox;
+    sbTimeMsg: TSpinBox;
+    Label39: TLabel;
+    cbFreez: TCheckBox;
+    sbWebServerPort: TSpinBox;
+    btnWebChatTest: TButton;
+    edtWebChatTest: TEdit;
+    btnCreateWebChat: TButton;
+    btnDeleteWebChat: TButton;
+    sgWebChats: TStringGrid;
+    StringColumn1: TStringColumn;
+    IntegerColumn1: TIntegerColumn;
+    IntegerColumn2: TIntegerColumn;
+    CheckColumn1: TCheckColumn;
+    StringColumn2: TStringColumn;
+    StringColumn3: TStringColumn;
+    IntegerColumn5: TIntegerColumn;
+    IntegerColumn4: TIntegerColumn;
+    StringColumn4: TStringColumn;
+    StringColumn5: TStringColumn;
+    StringColumn6: TStringColumn;
+    IntegerColumn3: TIntegerColumn;
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+implementation
+
+{$R *.fmx}
+
+end.