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

trunk/Packages/CevoComponents/BaseWin.pas

@@ -103 +103 @@
   TitleHeight := WideFrame;
   ModalFrameIndent := 45;
-  UserLeft := (Screen.Width - Width) div 2;
-  UserTop := (Screen.Height - Height) div 2;
+  UserLeft := Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - Width) div 2;
+  UserTop := Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - Height) div 2;
 end;