Changeset 622 for trunk/LocalPlayer/TechTree.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/LocalPlayer/TechTree.pas (modified) (1 diff)

trunk/LocalPlayer/TechTree.pas

@@ -214 +214 @@
 
   // Fit window to image, center image in window, center window to screen
-  NewWidth := Min(Screen.Width - 40, Image.Width + LeftBorder + RightBorder +
+  NewWidth := Min(Screen.PrimaryMonitor.Width - 40, Image.Width + LeftBorder + RightBorder +
     2 * BlackBorder);
-  NewHeight := Min(Screen.Height - 40, Image.Height + TopBorder + BottomBorder +
+  NewHeight := Min(Screen.PrimaryMonitor.Height - 40, Image.Height + TopBorder + BottomBorder +
     2 * BlackBorder);
-  BoundsRect := Bounds((Screen.Width - NewWidth) div 2,
-    (Screen.Height - NewHeight) div 2, NewWidth, NewHeight);
+  BoundsRect := Bounds(Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - NewWidth) div 2,
+    Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - NewHeight) div 2, NewWidth, NewHeight);
   CloseBtn.Left := Width - CloseBtn.Width - BlackBorder - 8;
   CloseBtn.Top := BlackBorder + 8;