Changeset 490 for trunk/Components/ControlsUtility.pas

Timestamp:

Dec 24, 2023, 7:15:31 PM (20 months ago)

Author:

ataylor

Message:

Account for taller titlebar when rescaling forms.

File:

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

trunk/Components/ControlsUtility.pas

@@ -759 +759 @@
   InitW: longint;
   InitH: longint;
+  TBarHeight: integer;
 begin
   InitW := Form.Width;
@@ -783 +784 @@
                 XFactor,
                 YFactor );
+
+  // Increase overall window height to allow for a taller-than-normal titlebar
+  TBarHeight := WinQuerySysValue( HWND_DESKTOP, SV_CYTITLEBAR );
+  if TBarHeight > 23 then
+    //Form.Height := Form.Height + TBarHeight - 23;
+    Form.Height := Form.Height + Round( 23 * YFactor ) - 20;
 
   // Adjust the bottom left position by half of the width/height increase