Добавил интеграции с ОБС

uCreateChat.pas

@@ -7,7 +7,7 @@ uses
   System.Variants, FMX.ListBox, FMX.Colors, FMX.SpinBox,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
   fColorSettings, fFontSettings, FMX.Controls.Presentation, FMX.StdCtrls,
-  FMX.Edit, FMX.EditBox, StrUtils;
+  FMX.Edit, FMX.EditBox, StrUtils, uRecords;
 
 type
   TfCreateChat = class(TForm)
@@ -27,8 +27,10 @@ type
     btnWebChatTest: TButton;
     btnCreateWebChat: TButton;
     procedure FormCreate(Sender: TObject);
+    procedure btnCreateWebChatClick(Sender: TObject);
   private
     { Private declarations }
+    function GetColorFromColorPanel(aColor: TAlphaColor): string;
   public
     { Public declarations }
   end;
@@ -42,6 +44,49 @@ uses uGeneral;
 
 {$R *.fmx}
 
+function TfCreateChat.GetColorFromColorPanel(aColor: TAlphaColor): string;
+var
+  Color: TAlphaColor;
+  r, G, B: Byte;
+  A: Real;
+  FS: TFormatSettings;
+begin
+  Color := aColor;
+  r := TAlphaColorRec(Color).r;
+  G := TAlphaColorRec(Color).G;
+  B := TAlphaColorRec(Color).B;
+  A := TAlphaColorRec(Color).A / 255; // Ïðåîáðàçóåì àëüôà-êàíàë â äèàïàçîí 0..1
+
+  // Óñòàíàâëèâàåì òî÷êó â êà÷åñòâå äåñÿòè÷íîãî ðàçäåëèòåëÿ
+  FS := TFormatSettings.Create;
+  FS.DecimalSeparator := '.';
+
+  result := Format('rgba(%d, %d, %d, %.2f)', [r, G, B, A], FS);
+end;
+
+procedure TfCreateChat.btnCreateWebChatClick(Sender: TObject);
+var
+  OBSChat: TOBSChat;
+begin
+  OBSChat.ColorBlock := GetColorFromColorPanel
+    (frChatSettings1.cpStyleBlockColor.Color);
+  OBSChat.ColorBorder := frChatSettings1.ccbStyleBorderColor.ItemIndex;
+  OBSChat.ColorBackground := frChatSettings1.ccbBColor.ItemIndex;
+  OBSChat.SolidBorder := round(frChatSettings1.sbStyleBlockBorderSize.Value);
+  OBSChat.Paddings := round(frChatSettings1.sbStyleBlockPadding.Value);
+
+  OBSChat.ColorFont := frFontSettings1.ccbFontColor.ItemIndex;
+  OBSChat.SizeFont := round(frFontSettings1.sbFontSize.Value);
+  OBSChat.StyleFont := frFontSettings1.cbFontStyleDefault.ItemIndex;
+
+  OBSChat.MaxCountMess := round(sbMaxMsg.Value);
+  OBSChat.TimeMess := round(sbTimeMsg.Value);
+  OBSChat.Port := round(sbWebServerPort.Value);
+
+  TTW_Bot.frOBS1.AddChat(OBSChat);
+  close;
+end;
+
 procedure TfCreateChat.FormCreate(Sender: TObject);
   procedure LoadFontList;
   var