Changeset 50 for trunk/Forms/UFormSettings.pas

Timestamp:

Nov 3, 2019, 12:18:14 PM (5 years ago)

Author:

chronos

Message:

• Added: Support for dark theme.

File:

• trunk/Forms/UFormSettings.pas (modified) (5 diffs)

trunk/Forms/UFormSettings.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ComCtrls,
-  ULanguages;
+  ULanguages, UTheme;
 
 type
@@ -17 +17 @@
     ButtonCancel: TButton;
     ComboBoxLanguage: TComboBox;
+    ComboBoxTheme: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
     TrackBar1: TTrackBar;
     procedure ButtonCancelClick(Sender: TObject);
@@ -62 +64 @@
     Core.Translator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
   end;
+  if ComboBoxTheme.ItemIndex <> -1 then
+    Core.ThemeManager1.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]);
   ModalResult := mrOk;
 end;
@@ -75 +79 @@
   Core.Translator1.TranslateComponentRecursive(Self);
   Core.Translator1.LanguageListToStrings(ComboBoxLanguage.Items);
+  Core.ThemeManager1.UseTheme(Self);
+  Core.ThemeManager1.Themes.LoadToStrings(ComboBoxTheme.Items);
 end;
 
@@ -83 +89 @@
   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.Translator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
+  ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.ThemeManager1.Theme);
+  if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0;
 end;