Changeset 470

Timestamp:

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

Author:

ataylor

Message:

Adjustments to dialog scaling logic.

Location:

trunk/Components

Files:

• ACLDialogs.pas (modified) (1 diff)
• ControlsUtility.pas (modified) (2 diffs)

trunk/Components/ACLDialogs.pas

@@ -356 +356 @@
 procedure TACLQueryDialog.SetupShow;
 begin
-  ScaleForm( self, 11, 16 );
+  ScaleForm( self, 8, 16 );
   FOKButton.Default := true;
   FEdit.Focus;

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;