Changeset 470 for trunk/Components/ControlsUtility.pas

Timestamp:

Mar 2, 2023, 1:57:29 AM (2 years ago)

Author:

ataylor

Message:

Adjustments to dialog scaling logic.

File:

• trunk/Components/ControlsUtility.pas (modified) (2 diffs)

trunk/Components/ControlsUtility.pas

@@ -757 +757 @@
   UseWidth: double;
   UseHeight: double;
-begin
+  InitW: longint;
+  InitH: longint;
+begin
+  InitW := Form.Width;
+  InitH := Form.Height;
+
   if ScaledForms.IndexOf( Form ) <> -1 then
     // already scaled this form.
@@ -778 +783 @@
                 XFactor,
                 YFactor );
+
+  // Adjust the bottom left position by half of the width/height increase
+  if Form.Position in [ poDefault, poDefaultPosOnly, poScreenCenter ] then
+  begin
+    Form.Left := Form.Left - (( Form.Width - InitW ) div 2 );
+    Form.Bottom := Form.Bottom - (( Form.Height - InitH ) div 2 );
+  end;
 
 end;