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.