Changeset 50 for trunk/UCore.pas

Timestamp:

Nov 3, 2019, 12:18:14 PM (5 years ago)

Author:

chronos

Message:

• Added: Support for dark theme.

File:

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

trunk/UCore.pas

@@ -90 +90 @@
   try
     if FormSettings.ShowModal = mrOk then begin
+      FormMain.Redraw;
       FormMain.UpdateInterface;
       UpdateInterface;
@@ -214 +215 @@
       Translator1.Language := Translator1.Languages.SearchByCode(ReadStringWithDefault('LanguageCode', ''))
       else Translator1.Language := Translator1.Languages.SearchByCode('');
+    ThemeManager1.Theme := ThemeManager1.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
   finally
     Free;
@@ -229 +231 @@
       WriteString('LanguageCode', Translator1.Language.Code)
       else DeleteValue('LanguageCode');
+    WriteString('Theme', ThemeManager1.Theme.Name);
   finally
     Free;