Changeset 34 for trunk/UCore.pas

Timestamp:

Dec 10, 2016, 10:00:19 PM (7 years ago)

Author:

chronos

Message:

• Added: Interface localization support.
• Added: Global settings dialog.

File:

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

trunk/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, Controls, UProject, UPhysDrive,
-  UCoolTranslator, UPersistentForm, UApplicationInfo;
+  UCoolTranslator, UPersistentForm, UApplicationInfo, URegistry, UScaleDPI;
 
 type
@@ -18 +18 @@
     ImageList1: TImageList;
     PersistentForm1: TPersistentForm;
+    ScaleDPI1: TScaleDPI;
     XMLConfig1: TXMLConfig;
     procedure DataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
   private
-    { private declarations }
+    RegistryContext: TRegistryContext;
   public
+    DevelMode: Boolean;
     DriveList: TDriveList;
     Project: TProject;
+    procedure LoadConfig;
+    procedure SaveConfig;
   end;
 
@@ -51 +55 @@
 end;
 
+procedure TCore.LoadConfig;
+begin
+  RegistryContext := RegContext(Integer(ApplicationInfo1.RegistryRoot), ApplicationInfo1.RegistryKey);
+  PersistentForm1.RegistryContext := RegistryContext;
+  XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
+
+  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode(XMLConfig1.GetValue('Language', ''));
+end;
+
+procedure TCore.SaveConfig;
+begin
+  XMLConfig1.SetValue('Language', CoolTranslator1.Language.Code);
+end;
+
 end.