Changeset 622 for trunk/LocalPlayer/Select.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/Select.pas (modified) (2 diffs)

trunk/LocalPlayer/Select.pas

@@ -1545 +1545 @@
 var
   I: Integer;
+  NewTop, NewLeft: Integer;
 begin
   Result := -1;
@@ -1643 +1644 @@
   begin { center on screen }
     if Kind = kTribe then
-      Left := (Screen.Width - 800) * 3 div 8 + 130
+      NewLeft := Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - 800) * 3 div 8 + 130
     else
-      Left := (Screen.Width - Width) div 2;
-    Top := (Screen.Height - Height) div 2;
+      NewLeft := Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - Width) div 2;
+    NewTop := Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - Height) div 2;
     if Kind = kProject then
-      Top := Top + 48;
+      NewTop := NewTop + 48;
+    BoundsRect := Bounds(NewLeft, NewTop, Width, Height);
   end;