Changeset 4 for trunk/Start.pas

Timestamp:

Jan 7, 2017, 11:14:34 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Read registry keys only if they exist.

File:

• trunk/Start.pas (modified) (1 diff)

trunk/Start.pas

@@ -238 +238 @@
     ScreenMode:=Reg.ReadInteger('ScreenMode');
     FullScreen:= ScreenMode>0;
-    ResolutionX:=Reg.ReadInteger('ResolutionX');
-    ResolutionY:=Reg.ReadInteger('ResolutionY');
-    ResolutionBPP:=Reg.ReadInteger('ResolutionBPP');
-    ResolutionFreq:=Reg.ReadInteger('ResolutionFreq');
+    if Reg.ValueExists('ResolutionX') then
+      ResolutionX:=Reg.ReadInteger('ResolutionX');
+    if Reg.ValueExists('ResolutionY') then
+        ResolutionY:=Reg.ReadInteger('ResolutionY');
+    if Reg.ValueExists('ResolutionBPP') then
+        ResolutionBPP:=Reg.ReadInteger('ResolutionBPP');
+    if Reg.ValueExists('ResolutionFreq') then
+        ResolutionFreq:=Reg.ReadInteger('ResolutionFreq');
     if ScreenMode=2 then
       ChangeResolution(ResolutionX,ResolutionY,ResolutionBPP,ResolutionFreq);