Changeset 622 for trunk/Packages/DpiControls/Dpi.Forms.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/DpiControls/Dpi.Forms.pas (modified) (7 diffs)

trunk/Packages/DpiControls/Dpi.Forms.pas

@@ -202 +202 @@
   end;
 
+  { TMonitor }
+
+  TMonitor = class
+  private
+    function GetLeft: Integer;
+    function GetHeight: Integer;
+    function GetTop: Integer;
+    function GetWidth: Integer;
+    function GetBoundsRect: TRect;
+  public
+    NativeMonitor: Forms.TMonitor;
+    property Left: Integer read GetLeft;
+    property Height: Integer read GetHeight;
+    property Top: Integer read GetTop;
+    property Width: Integer read GetWidth;
+    property BoundsRect: TRect read GetBoundsRect;
+  end;
+
   { TScreen }
 
@@ -209 +227 @@
     FActiveForm: TForm;
     FPrevActiveForms: TForms;
+    FPrimaryMonitor: TMonitor;
     FForms: TForms;
     procedure AddForm(AForm: TForm);
@@ -215 +234 @@
     function GetDesktopTop: Integer;
     function GetDesktopWidth: Integer;
+    function GetPrimaryMonitor: TMonitor;
     procedure RemoveForm(AForm: TForm);
     function GetActiveForm: TForm;
@@ -248 +268 @@
     property DesktopWidth: Integer read GetDesktopWidth;
     property DesktopHeight: Integer read GetDesktopHeight;
+    property PrimaryMonitor: TMonitor read GetPrimaryMonitor;
   end;
 
@@ -477 +498 @@
 begin
   Result := Application.MessageBox(Text, Caption, Flags);
+end;
+
+{ TMonitor }
+
+function TMonitor.GetLeft: Integer;
+begin
+  Result := ScaleFromNative(NativeMonitor.Left);
+end;
+
+function TMonitor.GetHeight: Integer;
+begin
+  Result := ScaleFromNative(NativeMonitor.Height);
+end;
+
+function TMonitor.GetTop: Integer;
+begin
+  Result := ScaleFromNative(NativeMonitor.Top);
+end;
+
+function TMonitor.GetWidth: Integer;
+begin
+  Result := ScaleFromNative(NativeMonitor.Width);
+end;
+
+function TMonitor.GetBoundsRect: TRect;
+begin
+  Result := ScaleRectFromNative(NativeMonitor.BoundsRect);
 end;
 
@@ -944 +992 @@
 end;
 
+function TScreen.GetPrimaryMonitor: TMonitor;
+begin
+  if not Assigned(FPrimaryMonitor) then begin
+    FPrimaryMonitor := TMonitor.Create;
+    FPrimaryMonitor.NativeMonitor := LCLScreen.PrimaryMonitor;
+  end;
+  Result := FPrimaryMonitor;
+end;
+
 procedure TScreen.RemoveForm(AForm: TForm);
 begin
@@ -1006 +1063 @@
   FreeAndNil(FForms);
   FreeAndNil(FPrevActiveForms);
+  if Assigned(FPrimaryMonitor) then
+    FreeAndNil(FPrimaryMonitor);
   inherited;
 end;