Changeset 174 for trunk/UCore.pas

Timestamp:

Feb 14, 2018, 10:39:55 AM (7 years ago)

Author:

chronos

Message:

• Added: Basic color theming support. Colors can be changed only for some controls.

File:

• trunk/UCore.pas (modified) (5 diffs)

trunk/UCore.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, UAcronym, UCoolTranslator, UPersistentForm,
   UJobProgressView, UScaleDPI, Forms, Controls, ExtCtrls, Menus, LazFileUtils,
-  URegistry, UApplicationInfo, Registry;
+  URegistry, UApplicationInfo, Registry, UTheme;
 
 type
@@ -47 +47 @@
     InitializeStarted: Boolean;
     InitializeFinished: Boolean;
+    ThemeManager: TThemeManager;
     procedure Initialize;
     procedure LoadConfig;
@@ -78 +79 @@
   InitializeFinished := False;
   StoredDimension := TControlDimension.Create;
+  ThemeManager := TThemeManager.Create(nil);
 end;
 
 procedure TCore.DataModuleDestroy(Sender: TObject);
 begin
+  FreeAndNil(ThemeManager);
   FreeAndNil(StoredDimension);
   FreeAndNil(AcronymDb);
@@ -178 +181 @@
     StartMinimizedToTray := ReadBoolWithDefault('StartMinimizedToTray', False);
     ReopenLastFileOnStart := ReadBoolWithDefault('ReopenLastFileOnStart', True);
+    ThemeManager.Theme := ThemeManager.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
   finally
     Free;
@@ -200 +204 @@
     WriteBool('StartMinimizedToTray', StartMinimizedToTray);
     WriteBool('ReopenLastFileOnStart', ReopenLastFileOnStart);
+    WriteString('Theme', ThemeManager.Theme.Name);
   finally
     Free;