Changeset 74 for trunk/LocalPlayer/Term.pas

Timestamp:

Jan 15, 2017, 5:04:32 PM (8 years ago)

Author:

chronos

Message:

• Modified: Changed registry key path '\SOFTWARE\C-evo'.
• Modified: Use everythere same root registry key constant AppRegistryKey.

File:

• trunk/LocalPlayer/Term.pas (modified) (4 diffs)

trunk/LocalPlayer/Term.pas

@@ -3411 +3411 @@
   with Reg do
   try
-    OpenKey('SOFTWARE\cevo\RegVer9', false);
+    OpenKey(AppRegistryKey, false);
     if ValueExists('TileWidth') then xxt := ReadInteger('TileWidth') div 2
       else xxt := 48;
@@ -3423 +3423 @@
       else CityRepMask := Cardinal(not chPopIncrease and not chNoGrowthWarning and
           not chCaptured);
-    CloseKey;
     if OptionChecked and (7 shl 16) = 0 then
       OptionChecked := OptionChecked or (1 shl 16);
@@ -7993 +7992 @@
   with Reg do
   try
-    OpenKey('SOFTWARE\cevo\RegVer9', true);
+    OpenKey(AppRegistryKey, true);
     WriteInteger('TileWidth', xxt * 2);
     WriteInteger('TileHeight', yyt * 2);
@@ -7999 +7998 @@
     WriteInteger('MapOptionChecked', MapOptionChecked);
     WriteInteger('CityReport', integer(CityRepMask));
-    CloseKey;
   finally
     Free;