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

trunk/LocalPlayer/UnitStat.pas

@@ -77 +77 @@
   NoMap := TIsoMap.Create;
   AgePrepared := -2;
-  TitleHeight := Screen.Height;
+  TitleHeight := Screen.PrimaryMonitor.Height;
   InitButtons;
 
@@ -164 +164 @@
   if Kind in [dkOwnModel, dkEnemyModel] then
   begin
-    Left := UserLeft;
-    Top := UserTop;
+    BoundsRect := Bounds(UserLeft, UserTop, Width, Height);
   end else begin
-    Left := (Screen.Width - Width) div 2;
-    Top := (Screen.Height - Height) div 2;
+    BoundsRect := Bounds(Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - Width) div 2,
+      Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - Height) div 2,
+      Width, Height);
   end;