Changeset 622 for trunk/Start.pas

Timestamp:

Sep 15, 2024, 10:04:45 PM (4 days ago)

Author:

chronos

Message:

• Modified: Show windows by default on primary screen if multiple monitors present.

File:

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

trunk/Start.pas

@@ -252 +252 @@
     end; // default AI not found, use any
 
-  DirectDlg.Left := (Screen.Width - DirectDlg.Width) div 2;
-  DirectDlg.Top := (Screen.Height - DirectDlg.Height) div 2;
+  DirectDlg.CenterToScreen;
 
   UpdateInterface;
@@ -509 +508 @@
 begin
   if FullScreen then begin
-    Location := Point((Screen.Width - 800) * 3 div 8,
-      Screen.Height - Height - (Screen.Height - 600) div 3);
+    Location := Point(Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - 800) * 3 div 8,
+      Screen.PrimaryMonitor.Top + Screen.PrimaryMonitor.Height - Height - (Screen.PrimaryMonitor.Height - 600) div 3);
     BoundsRect := Bounds(Location.X, Location.Y, Width, Height);
 
@@ -524 +523 @@
     DeleteObject(r0); // causes crash with Windows 95
   end else begin
-    BoundsRect := Bounds((Screen.Width - Width) div 2,
-      (Screen.Height - Height) div 2, Width, Height);
+    CenterToScreen;
   end;
 end;