Changeset 243 for trunk/UCore.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/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -8 +8 @@
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
   UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator,
-  URegistry, ULastOpenedList, Registry, Menus, UFormClient, UPlayer,
+  URegistry, ULastOpenedList, UTheme, Registry, Menus, UFormClient, UPlayer,
   UGameServer, UGameClient, fgl, UServerList;
 
@@ -42 +42 @@
     SaveDialog1: TSaveDialog;
     ScaleDPI1: TScaleDPI;
+    ThemeManager1: TThemeManager;
     XMLConfig1: TXMLConfig;
     procedure AAboutExecute(Sender: TObject);
@@ -185 +186 @@
   XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
 
+  ThemeManager1.Theme := ThemeManager1.Themes.FindByName(String(XmlConfig1.GetValue('Theme', 'System')));
   LastOpenedList1.LoadFromXMLConfig(XMLConfig1, 'RecentFiles');
   DevelMode := XMLConfig1.GetValue('DevelMode', false);
@@ -199 +201 @@
 begin
   XMLConfig1.SetValue('Language', WideString(CoolTranslator1.Language.Code));
+  XMLConfig1.SetValue('Theme', WideString(ThemeManager1.Theme.Name));
   LastOpenedList1.SaveToXMLConfig(XMLConfig1, 'RecentFiles');
   XMLConfig1.SetValue('DevelMode', DevelMode);
@@ -376 +379 @@
       Server.SaveConfig(XMLConfig1, 'Server');
       XMLConfig1.Flush;
+      ThemeManager1.UseTheme(FormMain);
     end;
   finally