Changeset 15 for trunk/Forms/UFormSettings.pas

Timestamp:

Feb 27, 2018, 6:11:44 PM (7 years ago)

Author:

chronos

Message:

• Added: Partial support for color theming.
• Added: Allow to edit contact properties in the list of all.

File:

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

trunk/Forms/UFormSettings.pas

@@ -20 +20 @@
     CheckBoxAutomaticDPI: TCheckBox;
     ComboBoxLanguage: TComboBox;
+    ComboBoxTheme: TComboBox;
     Label1: TLabel;
+    Label2: TLabel;
     LabelDPI: TLabel;
     SpinEditDPI: TSpinEdit;
@@ -39 +41 @@
   FormSettings: TFormSettings;
 
+
 implementation
 
@@ -44 +47 @@
 
 uses
-  UCore;
+  UCore, UTheme;
 
 { TFormSettings }
@@ -53 +56 @@
   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.Language);
   if ComboBoxLanguage.ItemIndex = -1 then ComboBoxLanguage.ItemIndex := 0;
+
+  Core.ThemeManager1.Themes.LoadToStrings(ComboBoxTheme.Items);
+  ComboBoxTheme.ItemIndex := ComboBoxTheme.Items.IndexOfObject(Core.ThemeManager1.Theme);
+  if ComboBoxTheme.ItemIndex = -1 then ComboBoxTheme.ItemIndex := 0;
 end;
 
@@ -58 +65 @@
 begin
   if ComboBoxLanguage.ItemIndex <> -1 then
-    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+    Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxTheme.ItemIndex]);
+  if ComboBoxTheme.ItemIndex <> -1 then
+    Core.ThemeManager1.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]);
 end;
 
@@ -74 +83 @@
 begin
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
+  Core.ThemeManager1.UseTheme(Self);
 end;