Changeset 74 for trunk/ScreenTools.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

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

trunk/ScreenTools.pas

@@ -215 +215 @@
 
   UniFont: array [TFontType] of TFont;
+  AppRegistryKey: string = '\SOFTWARE\C-evo';
 
 implementation
@@ -1516 +1517 @@
 procedure UnitInit;
 begin
-  Reg := TRegistry.create;
+  Reg := TRegistry.Create;
   with Reg do
   try
-    OpenKey('SOFTWARE\cevo\RegVer9', true);
+    OpenKey(AppRegistryKey, True);
     if ValueExists('Gamma') then
       Gamma := ReadInteger('Gamma')
@@ -1634 +1635 @@
   with Reg do
   try
-    OpenKey('SOFTWARE\cevo\RegVer9', true);
+    OpenKey(AppRegistryKey, True);
     WriteString('Locale', LocaleCode);
+    WriteInteger('Gamma', Gamma);
   finally
     Free;