Lazarus Pascal - Hoe bepaal je de breedte of hoogte van een scrollbar

Hans — Fri, 28 Aug 2020 08:00:36 +0000

Soms wil je weten hoe breed of hoe hoog een scrollbalk/scrollbar is van een bepaalde control (b.v. TStringGrid, TDBGrid, etc).
Vooral voor een crossplatform toepassing kan dit lastig zijn, zeker met de verschillende OS versies, en mogelijk gebruik van thema's, omdat deze waarde geen vaste waarde is.

Hier een voorbeeld hoe je deze waarden kunt bepalen zonder veel moeite (zou moeten werken onder Windows, MacOS, Linux/GTK, QT):

uses
  LCLIntf, LCLType;

var
  h, b: Integer;

...

  h := GetSystemMetrics(SM_CYHSCROLL); // scrollbar hoogte
  b := GetSystemMetrics(SM_CXVSCROLL); // scrollbar breedte

Lazarus Pascal - Hoe bepaal je de breedte of hoogte van een scrollbar - Delphi, Lazarus, Free Pascal

Lazarus Pascal - Hoe bepaal je de breedte of hoogte van een scrollbar