Changeset 96 for trunk/UCore.pas


Ignore:
Timestamp:
Aug 2, 2018, 10:41:11 AM (6 years ago)
Author:
chronos
Message:
  • Added: Theming support.
  • Modified: Items in Options dialog divided to two pages.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UCore.pas

    r93 r96  
    88  Classes, SysUtils, FileUtil, UApplicationInfo, ULastOpenedList, UProject,
    99  UCoolTranslator, UTarget, URegistry, Registry, Graphics, Controls, UScaleDPI,
    10   UPersistentForm, UBFTarget;
     10  UPersistentForm, UTheme, UBFTarget;
    1111
    1212type
    … …  
    2121    PersistentForm1: TPersistentForm;
    2222    ScaleDPI1: TScaleDPI;
     23    ThemeManager: TThemeManager;
    2324    procedure DataModuleCreate(Sender: TObject);
    2425    procedure DataModuleDestroy(Sender: TObject);
    … …  
    109110    MemorySize := ReadIntegerWithDefault('MemorySize', 30000);
    110111    CellSize := ReadIntegerWithDefault('CellSize', 256);
     112    ThemeManager.Theme := ThemeManager.Themes.FindByName(ReadStringWithDefault('Theme', 'System'));
    111113  finally
    112114    Free;
    … …  
    134136      WriteString('LanguageCode', CoolTranslator1.Language.Code)
    135137      else DeleteValue('LanguageCode');
     138    WriteString('Theme', ThemeManager.Theme.Name);
    136139  finally
    137140    Free;
Note: See TracChangeset for help on using the changeset viewer.