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

2025-08-06 09:21:43 +03:00
parent 7e77775cd4
commit d68064187d
16 changed files with 1518 additions and 1012 deletions
@@ -0,0 +1,107 @@
+unit uCreateChat;
+
+interface
+
+uses
+  System.SysUtils, System.Types, System.UITypes, System.Classes,
+  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;
+
+type
+  TfCreateChat = class(TForm)
+    frChatSettings1: TfrColorSettings;
+    GroupBox1: TGroupBox;
+    GroupBox2: TGroupBox;
+    frFontSettings1: TfrFontSettings;
+    GroupBox10: TGroupBox;
+    Label27: TLabel;
+    Label38: TLabel;
+    sbMaxMsg: TSpinBox;
+    sbTimeMsg: TSpinBox;
+    Label39: TLabel;
+    cbFreez: TCheckBox;
+    sbWebServerPort: TSpinBox;
+    edtWebChatTest: TEdit;
+    btnWebChatTest: TButton;
+    btnCreateWebChat: TButton;
+    procedure FormCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  fCreateChat: TfCreateChat;
+
+implementation
+
+uses uGeneral;
+
+{$R *.fmx}
+
+procedure TfCreateChat.FormCreate(Sender: TObject);
+  procedure LoadFontList;
+  var
+    SearchRec: TSearchRec;
+    n: Integer;
+  begin
+    if not DirectoryExists(myConst.fontsPath) then
+      CreateDir(myConst.fontsPath);
+
+    n := 1;
+    if FindFirst(IncludeTrailingPathDelimiter(myConst.fontsPath) + '*.*',
+      faArchive, SearchRec) = 0 then
+      try
+        repeat
+          if (SearchRec.Attr and faAnyFile) = SearchRec.Attr then
+          begin
+            fCreateChat.frFontSettings1.cbFontStyleDefault.Items.Add
+              (SearchRec.Name);
+            Inc(n);
+          end;
+        until FindNext(SearchRec) <> 0;
+      finally
+        System.SysUtils.FindClose(SearchRec);
+      end;
+  end;
+
+  procedure LoadChatOBSSettings;
+  var
+    I: Integer;
+    c: TComponent;
+    ColorStr: string;
+    SavedColor: TAlphaColor;
+  begin
+    for I := 0 to frChatSettings1.ComponentCount - 1 do
+    begin
+      c := frChatSettings1.Components[I];
+      if c is TComboBox then
+        TComboBox(c).ItemIndex :=
+          strtoint(db.ReadSetting(TComboBox(c).Name, '0'))
+      else if c is TColorComboBox then
+        TColorComboBox(c).ItemIndex :=
+          strtoint(db.ReadSetting(TComboBox(c).Name, '147'))
+      else if c is TSpinBox then
+        TSpinBox(c).text := db.ReadSetting(TSpinBox(c).Name,
+          IfThen(TSpinBox(c).Name = 'sbWebServerPort', '8080', '1'))
+      else if c is TCheckBox then
+        TCheckBox(c).IsChecked := db.ReadSetting(TCheckBox(c).Name, '0') = '1';
+    end;
+
+    ColorStr := db.ReadSetting('cpStyleBlockColor', 'FF000000');
+    if TryStrToUInt('$' + ColorStr, Cardinal(SavedColor)) then
+      frChatSettings1.cpStyleBlockColor.Color := SavedColor
+    else
+      frChatSettings1.cpStyleBlockColor.Color := TAlphaColorRec.Black;
+  end;
+
+begin
+  LoadChatOBSSettings;
+  LoadFontList;
+
+end;
+
+end.