Changeset 25 for branches/delphi/Start.pas

Timestamp:

Jan 8, 2017, 5:55:04 PM (7 years ago)

Author:

chronos

Message:

• Modified: Put AI library binary files to build directory.
• Fixed: Load registry value correctly.

File:

• branches/delphi/Start.pas (modified) (1 diff)

branches/delphi/Start.pas

@@ -253 +253 @@
   else
   begin
+    ScreenMode := 1;
     Reg.OpenKey('SOFTWARE\cevo\RegVer9', false);
     try
-      ScreenMode := Reg.ReadInteger('ScreenMode');
+      if Reg.ValueExists('ScreenMode') then
+        ScreenMode := Reg.ReadInteger('ScreenMode');
       FullScreen := ScreenMode > 0;
       if Reg.ValueExists('ResolutionX') then