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...

[rollstuhlfahrer]

Erstelle ein Label mit AutoSize, deiner Schriftart und der Schriftgröße. Jetzt muss nur noch der Text rein und am Ende sollte in .Width die tatsächliche Größe stehen. Ich glaube, das TLabel arbeitet ziemlich korrekt.

Bernhard

[Lannes]

Hallo,

mit dem Problem durfte ich mich vor Kurzem auch beschäftigen, die Lösung lag in der Funktion GetCharABCWidths. Die Funktion liefert Dir ein Array of TABC, auf dem Screen meines Testprogramms kannst Du die Rückgabewerte und die Zusammenhänge sehen. Es gibt aber auch Schriften bei denen ein A-Wert(oder auch C-Wert) im Minusbereich größer ist als ein komplettes Zeichen breit ist, man kann also nicht allein das erste und/oder letzte Zeichen eines Strings betrachten, im Regelfall reicht aber die Auswertung des ersten und letzten Zeichens.
Die Funktion kann man auf zwei Arten verwenden, willst du nur ein Zeichen prüfen reicht eine Dimensionierung auf 0..0, im Beispiel wird der A-Wert des Zeichen 'x' ausgelesen:

Delphi-Quellcode:

var ArrABC: array[0..0] of TABC;
begin
  GetCharABCWidths(Canvas.Handle,Ord('x'),Ord('x'),ArrABC);
  Result := ArrABC[0].abcA;

Man kann aber auch einen Zeichenbereich mit entsprechender Dimensionierung festlegen und beispielsweise so nutzen:

Delphi-Quellcode:

var ArrABC: array[0..25] of TABC;
//
GetCharABCWidths(Canvas.Handle,Ord('A'),Ord('Z'),ArrABC);
Result := ArrABC[1].abcA; //A-Wert des Zeichens 'B'

GetCharABCWidths liefert auch einen Boolean-Wert zurück, daran kann man erkennen ob es True Type ist oder eben nicht.
http://www.delphipraxis.net/attachme...1&d=1277142582

[RSE]

Hallo Lannes,

vielen Dank für das Bild. Jetzt wird mir klar, was diese ABC-Werte ausdrücken. Der MSDN-Artikel dazu fand ich schon etwas kryptisch... Mit deiner Erklärung werde ich das wohl jetzt hinbekommen.