Lazarus Pascal - Determine titlebar height crossplatform quick and easy

Hans — Sat, 23 Sep 2023 16:45:53 +0000

Seems hard to determine the height of the titlebar/caption of a form.
I've seen some calls that are Windows specific only, and some tricks that maximize the form to determine the size (flicker), or system calls that simply do not work on all platforms.

452

So after tinkering with that issue for a bit, I figured; why not use the "translation" of a pixel on a form to its location on the screen and determine how much it's off? (a.k.a. the titlebar height)

Tested this under Windows (11), macOS (Monterey and Sonoma), GTK2 and QT5 ... and it just works ...

function DetermineTitlebarHeight(aForm:Tform):integer;
var
  global_pos : TPoint;
begin
  global_pos := aForm.ClientToScreen(Point (1,1));
  Result     := global_pos.Y - aForm.Top;
end;

I've tested this at onFormPaint and onFormChangeBounds, and even when changing themes (Linux) it adapts.

For testing I've added a little project that has 2 units, where the 2nd unit stays aligned to the bottom of the first unit.

453

Lazarus Pascal - Determine titlebar height crossplatform quick and easy - Delphi, Lazarus, Free Pascal

Lazarus Pascal - Determine titlebar height crossplatform quick and easy