Um die Höhe eines Textes zu ermitteln, benutze ich folgende Funktion
Delphi-Quellcode:
FUNCTION GetFontHeight(FontHandle:HFont):integer;
var DC:HDC; OldFont:HFONT; Metrics:TTextMetric;
begin
DC:=GetDC(0);
try
OldFont:=SelectObject(
DC,FontHandle);
GetTextMetrics(
DC, Metrics);
SelectObject(
DC,OldFont);
finally
ReleaseDC(0,
DC);
end;
Result:=Metrics.tmHeight;
end;
Nun möchte ich die Höhe des Textes bei gegebenem Font, aber mit einem anderen Font.Size und/oder Font.Style ermitteln OHNE den Font.Size/Style des betreffenden Controls zu verändern.
Wie kann ich das am einfachsten realisieren?