Länge eines Textes in Pixel ermitteln

[Zacherl]

Nach langer Recherche endlich was passendes gefunden. DT_CALCRECT heißt das Zauberwort. Für alle, die das selbe Problem haben:

Delphi-Quellcode:

function TDXFont.GetTextHeight(Text: AnsiString): Integer;
var
  Rect: TRect;
begin
  FFont.DrawTextA(nil, PAnsiChar(Text), Length(Text), @Rect, DT_CALCRECT,
    FColor);
  Result := Rect.Height;
end;

function TDXFont.GetTextWidth(Text: AnsiString): Integer;
var
  Rect: TRect;
begin
  FFont.DrawTextA(nil, PAnsiChar(Text), Length(Text), @Rect, DT_CALCRECT,
    FColor);
  Result := Rect.Width;
end;

FFont ist mein Feld vom Typ ID3DXFont.