Changeset 622 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

Sep 15, 2024, 10:04:45 PM (2 months ago)

Author:

chronos

Message:

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

File:

• trunk/LocalPlayer/MessgEx.pas (modified) (1 diff)

trunk/LocalPlayer/MessgEx.pas

@@ -169 +169 @@
     0:
       begin
-        Left := (Screen.Width - Width) div 2;
-        Top := (Screen.Height - Height) div 2 - MapCenterUp;
+        Left := Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - Width) div 2;
+        Top := Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - Height) div 2 - MapCenterUp;
       end;
     1:
       begin
-        Left := (Screen.Width - Width) div 4;
-        Top := (Screen.Height - Height) * 2 div 3 - MapCenterUp;
+        Left := Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - Width) div 4;
+        Top := Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - Height) * 2 div 3 - MapCenterUp;
       end;
     -1:
       begin
-        Left := (Screen.Width - Width) div 4;
-        Top := (Screen.Height - Height) div 3 - MapCenterUp;
+        Left := Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - Width) div 4;
+        Top := Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - Height) div 3 - MapCenterUp;
       end;
   end;