Changeset 219 for trunk/Start.pas

Timestamp:

May 11, 2020, 10:06:08 PM (5 years ago)

Author:

chronos

Message:

• Fixed: Apply correctly fullscreen mode to MainScreen.

File:

• trunk/Start.pas (modified) (2 diffs)

trunk/Start.pas

@@ -694 +694 @@
     Location := Point((Screen.Width - 800) * 3 div 8,
       Screen.Height - Height - (Screen.Height - 600) div 3);
-    Left := Location.X;
-    Top := Location.Y;
+    BoundsRect := Bounds(Location.X, Location.Y, Width, Height);
 
     r0 := CreateRectRgn(0, 0, Width, Height);
@@ -708 +707 @@
     DeleteObject(r0); // causes crash with Windows 95
   end else begin
-    Left := (Screen.Width - Width) div 2;
-    Top := (Screen.Height - Height) div 2;
+    BoundsRect := Bounds((Screen.Width - Width) div 2,
+      (Screen.Height - Height) div 2, Width, Height)
   end;
 end;