Changeset 490

Timestamp:

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

Author:

ataylor

Message:

Account for taller titlebar when rescaling forms.

Location:

trunk

Files:

• Components/ControlsUtility.pas (modified) (2 diffs)
• i18n/Changes.txt (modified) (1 diff)

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

trunk/i18n/Changes.txt

@@ -7 +7 @@
    is off-screen (such as on another virtual desktop).
 - Fix: Dropping a locale from the Locale Palette onto NewView should work now.
+- Fix: Account for increase in titlebar height when rescaling forms for larger fonts.
 
 V2.19.8