Changeset 123 for tags/1.0.0/UCore.pas

Timestamp:

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

Author:

chronos

Message:

Merged revision(s) 121-122 from trunk:

• Modified: Updated CoolTranslator package.
• Fixed: Set correct Windows registry path for storing form size.
• Fixed: Set correct path for Config.xml file.

Location:

tags/1.0.0

Files:

• . (modified) (1 prop)
• UCore.pas (modified) (4 diffs)

tags/1.0.0/UCore.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, XMLConf, FileUtil, ActnList, Controls, Dialogs, Forms,
-  UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator;
+  UGame, UApplicationInfo, UPersistentForm, UScaleDPI, UCoolTranslator, URegistry,
+  Registry;
 
 type
@@ -50 +51 @@
     FInitialized: Boolean;
     StoredDimension: TControlDimension;
+    RegistryContext: TRegistryContext;
     procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce,
       CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
@@ -85 +87 @@
   UFormHelp;
 
+const
+  DefaultRegKey = '\Software\Chronosoft\xTactics';
+
 resourcestring
   SPlayerWins = 'Player %s wins';
@@ -157 +162 @@
 procedure TCore.LoadConfig;
 begin
+  RegistryContext := RegContext(HKEY_CURRENT_USER, DefaultRegKey);
+  PersistentForm.RegistryContext := RegistryContext;
+  XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
+
   LastMapFileName := XMLConfig1.GetValue('LastMapFileName', '');
   DevelMode := XMLConfig1.GetValue('DevelMode', false);