Caption vertikal zentrieren

[Hawkeye219]

Hallo,

mit der API-Funktion DrawTextEx kann man auch messen:

Delphi-Quellcode:

var
  s : string;
  R : TRect;
begin
  s := 'Dies ist ein Text,'#10'der sich über drei Zeilen erstreckt.'#10'Dies ist die letzte Zeile.';

  ZeroMemory(@R, SizeOf(R));
  DrawTextEx(Canvas.Handle, PChar(s), Length(s), R, DT_CALCRECT, nil);

  ShowMessage (Format('cx=%d, cy=%d', [R.Right, R.Bottom]));
end;

Gruß Hawkeye