wie vom Caret die Höhe erhalten oder Zeilen...

[shmia]

Delphi-Quellcode:

function TrueFontHeight(fnt: TFont): integer;
// written by Udo Nesshoever, Jan 2001
var
   dc: hdc;
   tm: TTextMetric;
begin
   DC := GetDC(0);
   SelectObject(DC, fnt.Handle);
   GetTextMetrics(DC, tm);
   ReleaseDC(0, DC);
   Result:= tm.tmHeight;
end;

function TrueFontWidth(fnt: TFont; const text:string): Integer;
var
   dc: hdc;
   tsize : Windows.TSize;
begin
   dc := GetDC(0);
   SelectObject(DC, fnt.Handle);
   GetTextExtentPoint32(dc, PChar(text), Length(text), tsize);
   ReleaseDC(0, DC);
   Result := tsize.cx;
end;