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

trunk/UCore.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, Controls, ActnList, Forms, Dialogs,
   ULastOpenedList, UApplicationInfo, UPersistentForm, UScaleDPI, UCommon,
-  UCoolTranslator, UDataFile, Menus, URegistry, Registry;
+  UCoolTranslator, UDataFile, Menus, URegistry, UTheme, Registry;
 
 type
@@ -45 +45 @@
     SaveDialog1: TSaveDialog;
     ScaleDPI1: TScaleDPI;
+    ThemeManager1: TThemeManager;
     procedure AAboutExecute(Sender: TObject);
     procedure AExitExecute(Sender: TObject);
@@ -179 +180 @@
   try
     FormSettings.LoadData;
-    if FormSettings.ShowModal = mrOK then
+    if FormSettings.ShowModal = mrOK then begin
       FormSettings.SaveData;
+      ThemeManager1.UseTheme(FormMain);
+      ThemeManager1.UseTheme(FormContacts);
+    end;
   finally
     FormSettings.Free;
@@ -308 +312 @@
   NewContact: TContact;
   I: Integer;
-  CountNew: Integer;
-  CountUpdated: Integer;
 begin
   Result.Clear;
@@ -368 +370 @@
       CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
       else CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('');
+    if ValueExists('Theme') then
+      ThemeManager1.Theme := ThemeManager1.Themes.FindByName(ReadStringWithDefault('Theme', 'System'))
+      else ThemeManager1.Theme := ThemeManager1.Themes.FindByName('System');
     FormMain.MenuItemToolbar.Checked := ReadBoolWithDefault('ToolBarVisible', True);
     ReopenLastFileOnStart := ReadBoolWithDefault('ReopenLastFileOnStart', True);
@@ -386 +391 @@
       WriteString('LanguageCode', CoolTranslator1.Language.Code)
       else DeleteValue('LanguageCode');
+    if Assigned(ThemeManager1.Theme) and (ThemeManager1.Theme.Name <> '') then
+      WriteString('Theme', ThemeManager1.Theme.Name)
+      else DeleteValue('Theme');
     WriteBool('ToolBarVisible', FormMain.MenuItemToolbar.Checked);
     WriteBool('ReopenLastFileOnStart', ReopenLastFileOnStart);