Changeset 622 for trunk/Packages/CevoComponents/DrawDlg.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/Packages/CevoComponents/DrawDlg.pas (modified) (3 diffs)

trunk/Packages/CevoComponents/DrawDlg.pas

@@ -35 +35 @@
     destructor Destroy; override;
     procedure SmartInvalidate; virtual;
+    procedure CenterToScreen; overload;
+    procedure CenterToScreen(AWidth, AHeight: Integer); overload;
   end;
 
@@ -210 +212 @@
 end;
 
+procedure TDrawDlg.CenterToScreen;
+begin
+  BoundsRect := Bounds(
+    Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - Width) div 2,
+    Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - Height) div 2,
+    Width, Height);
+end;
+
+procedure TDrawDlg.CenterToScreen(AWidth, AHeight: Integer);
+begin
+  BoundsRect := Bounds(
+    Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - AWidth) div 2,
+    Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - AHeight) div 2,
+    Width, Height);
+end;
+
 { TBaseMessgDlg }
 
 procedure TBaseMessgDlg.FormCreate(Sender: TObject);
 begin
-  Left := (Screen.Width - Width) div 2;
+  Left := Screen.PrimaryMonitor.Left + (Screen.PrimaryMonitor.Width - Width) div 2;
   Canvas.Font.Assign(UniFont[ftNormal]);
   Canvas.Brush.Style := TBrushStyle.bsClear;
   MessgText := '';
   TopSpace := 0;
-  TitleHeight := Screen.Height;
+  TitleHeight := Screen.PrimaryMonitor.Height;
   if csDesigning in ComponentState then Exit;
   InitButtons;
@@ -287 +305 @@
 var
   I: Integer;
-begin
-  Height := 72 + Border + TopSpace + Lines * MessageLineSpacing;
-  Top := (Screen.Height - Height) div 2;
-  for i := 0 to ControlCount - 1 do
-    Controls[i].Top := Height - (34 + Border);
+  NewHeight: Integer;
+  NewTop: Integer;
+begin
+  NewHeight := 72 + Border + TopSpace + Lines * MessageLineSpacing;
+  NewTop := Screen.PrimaryMonitor.Top + (Screen.PrimaryMonitor.Height - NewHeight) div 2;
+  BoundsRect := Bounds(Left, NewTop, Width, NewHeight);
+  for I := 0 to ControlCount - 1 do
+    Controls[I].Top := NewHeight - (34 + Border);
 end;