Breite eines Textes exakt bestimmen

[RSE]

Hallo,

ich brauche die genaue Breite eines Textes. Canvas.TextWidth liefert nur die Breite auf der Grundlinie. Um diesen Wert muss man X erhöhen, um weitere Buchstaben anzuhängen. Bei kursiver Schrift steht der Text aber über diesen Wert hinaus. Mit DrawText(Canvas.Handle,PChar(Text),Length(Text),r, DT_CALCRECT + DT_NOPREFIX + DT_SINGLELINE); kann ich mir die gewünschte Breite des gesamten Textes ausgeben lassen (sozusagen die Bounding Box Größe). Das funktioniert aber nur bei Rasterfonts. TrueType Fonts geben keinen Overhang (kursive Schrift ist um Overhang breiter als nicht-kursive) zurück, deswegen liefert DrawText hier einen Wert, der genau um Overhang zu klein ist.

Wie bekomme ich die Breite des gesamten Textes heraus, egal was für ein Font-Typ gerade aktiv ist? Ich suche einfach nur die Breite über alles...