Changeset 243 for trunk/Forms/UFormSettings.pas

Timestamp:

Sep 21, 2018, 2:09:10 PM (6 years ago)

Author:

chronos

Message:

• Added: Support for color themes.
• Added: Remember dimensions for more forms.

File:

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

trunk/Forms/UFormSettings.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Spin, ComCtrls;
+  Spin, ComCtrls, ExtCtrls;
 
 type
@@ -16 +16 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    CheckBox2: TCheckBox;
+    CheckBoxAutoSaveTurn: TCheckBox;
+    CheckBoxDevelMode: TCheckBox;
     CheckBoxReopenLastFile: TCheckBox;
-    CheckBoxAutoSaveTurn: TCheckBox;
-    CheckBox2: TCheckBox;
-    CheckBoxDevelMode: TCheckBox;
     ComboBoxLanguage: TComboBox;
+    ComboBoxTheme: TComboBox;
     Label1: TLabel;
     Label2: TLabel;
@@ -26 +27 @@
     Label4: TLabel;
     Label5: TLabel;
+    Label6: TLabel;
     PageControl1: TPageControl;
+    Panel1: TPanel;
+    Panel2: TPanel;
+    SpinEditAnimSpeed: TSpinEdit;
     SpinEditX: TSpinEdit;
     SpinEditY: TSpinEdit;
-    SpinEditAnimSpeed: TSpinEdit;
     TabSheetGeneral: TTabSheet;
     TabSheetDebug: TTabSheet;
     procedure CheckBox2Change(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -50 +55 @@
 
 uses
-  UCore, ULanguages;
+  UCore, ULanguages, UTheme;
 
 { TFormSettings }
@@ -60 +65 @@
 end;
 
+procedure TFormSettings.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  Core.PersistentForm.Save(Self);
+end;
+
 procedure TFormSettings.FormCreate(Sender: TObject);
 begin
   PageControl1.TabIndex := 0;
   Core.CoolTranslator1.TranslateComponentRecursive(Self);
+  Core.ThemeManager1.Themes.LoadToStrings(ComboBoxTheme.Items);
+  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
 end;
 
 procedure TFormSettings.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm.Load(Self);
+  Core.ThemeManager1.UseTheme(Self);
   {$IFDEF DEBUG}
   TabSheetDebug.TabVisible := True;
@@ -77 +92 @@
 procedure TFormSettings.Load;
 begin
-  Core.CoolTranslator1.LanguageListToStrings(ComboBoxLanguage.Items);
   ComboBoxLanguage.ItemIndex := ComboBoxLanguage.Items.IndexOfObject(Core.CoolTranslator1.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;
   CheckBoxDevelMode.Checked := Core.DevelMode;
   SpinEditAnimSpeed.Value := Core.AnimationSpeed;
@@ -93 +109 @@
   if ComboBoxLanguage.ItemIndex <> -1 then
     Core.CoolTranslator1.Language := TLanguage(ComboBoxLanguage.Items.Objects[ComboBoxLanguage.ItemIndex]);
+   if ComboBoxTheme.ItemIndex <> -1 then
+    Core.ThemeManager1.Theme := TTheme(ComboBoxTheme.Items.Objects[ComboBoxTheme.ItemIndex]);
   Core.DevelMode := CheckBoxDevelMode.Checked;
   Core.AnimationSpeed := SpinEditAnimSpeed.Value;