Schriftgröße in Pixel ermitteln (TMemo)

[negaH]

probier mal folgendes:

Delphi-Quellcode:

var
  R: TRect;
  TextHeight: Integer;
begin
  R := Bounds(0, 0, MaxInt, MaxInt);
  DrawText(Memo.Canvas.Handle, 'G'#13#10'g', 4, R, dt_CalcRect or dt_SingleLine);
  TextHeight := (R.Bottom - R.Top) div 2;
end;

Gruß hagen