Exakte(re) Breite eines via TextOut ausgegebenen Strings

[salat]

Hallo Delphi-Praktiker,

ich kämpfe mit Delphi 2005 (Win32) an folgendem Problem:

Es soll ein Text passend auf ein Blatt gedruckt werden. Falls der Text zu breit wird, stauche ich die Schrift:

Minicodeschnippsel:

Delphi-Quellcode:

lf: TLogfont;
myfontWidth, tempwidth, i: Integer;
Textfeld : String;
faktor : Real;

...
lf.lfWidth := myfontWidth;
lf.lfQuality := ANTIALIASED_QUALITY;
...
faktor := 200.0 / (i); 
tempWidth := ceil((C.TextWidth(Textfeld) * faktor);
...

Der Text wird per Schleife an die maximale Seitenbreite angepasst (gestaucht). Dabei muss ich mittels eines Streckfaktor momentan die Breite der Zeile in Pixeln berechnen, weil Canvas.TextWidth die geänderte Breite nicht die Bohne interessiert (Man kann sich ein Rectangle drum ausgeben lassen - das bleibt eben "groß"). Außerdem scheint TextWidth recht unpräzise zu sein - bei manchen TrueType-Fonts kommen absurde Werte raus (die Typographen wissen warum).

Nun gibt es bei .NET einige nette Funktionen im Berech GDI+ - z.B. läßt sich anscheinend das Padding in der BoundingBox mittels TextFormatFlags ausschalten (siehe Beispielprogramm von MS unter http://msdn.microsoft.com/msdnmag/is...g/default.aspx ).
Ich vermute, wäre die Box korrekt, stimmten auch die Ausgaben von TextWidth - also:

Kriegt man das auch direkt unter Win32 hin?

Was ich sonst schon gesehen habe: Den Text auf ein Bitmap ausgeben und dann die Bitmap "vermessen".. Das scheint allerding wirklich nicht sehr effizient zu sein.

Für jeden Tipp dankbar

salat (der grüne!)

[DGL-luke]

DrawText, GetTextExtent sollten dir helfen.

[Muetze1]

Zitat von salat:

Dabei muss ich mittels eines Streckfaktor momentan die Breite der Zeile in Pixeln berechnen, weil Canvas.TextWidth die geänderte Breite nicht die Bohne interessiert (Man kann sich ein Rectangle drum ausgeben lassen - das bleibt eben "groß"). Außerdem scheint TextWidth recht unpräzise zu sein - bei manchen TrueType-Fonts kommen absurde Werte raus (die Typographen wissen warum).

Deine TLogFont Struktur hast du auch einen Font Handle mit CreateFontIndirect() angelegt und auch dem Canvas.Font gegeben? Canvas.TextWidth() bezieht immer den aktuellen Font des Canvas (DC) mit ein, und dass ist die Font Eigenschaft des Canvas. Ein SelectObject(DC, DeinFont) hilft nichts, da dies z.T. vor Operationen mit einem neuen SelectObject() auf das Font Objekt ausgeführt im TCanvas. Die Fontangaben und auch TextExtent/TextWidth/TextHeight Angaben waren bei mir bisher immer korrekt, von daher kann ich deine Angaben nicht nachvollziehen.

[salat]

Zitat von Muetze1:

Deine TLogFont Struktur hast du auch einen Font Handle mit CreateFontIndirect() angelegt und auch dem Canvas.Font gegeben? Canvas.TextWidth() bezieht immer den aktuellen Font des Canvas (DC) mit ein, und dass ist die Font Eigenschaft des Canvas.

'türlich - der Text wird ja korrekt gestaucht gezeichnet. In der Schleife selbst rufe ich geflissentlich mein SetFont auf:

Delphi-Quellcode:

procedure TMyPage.SetFont(AFont: TFont);
begin
   with C.Font do
   begin
      Assign(AFont);
      Size := fmmFontSize * 10 div PixelsPerInch;
      FontHeight := Abs(Height);
      Font.PixelsPerInch := GetDeviceCaps(C.Handle, LOGPIXELSY);
      GetObject(Handle, sizeof(lf), @lf);
      lf.lfEscapement  := DrawAngle * 10;
      lf.lfOrientation := DrawAngle * 10;
      lf.lfWidth := 100 * lf.lfHeight div (fFontWidth);
      lf.lfQuality := ANTIALIASED_QUALITY;   
      NewFont := CreateFontIndirect(lf);
      OldFont := SelectObject(C.Handle, NewFont);

   end;
end;

Zitat:

Ein SelectObject(DC, DeinFont) hilft nichts, da dies z.T. vor Operationen mit einem neuen SelectObject() auf das Font Objekt ausgeführt im TCanvas. Die Fontangaben und auch TextExtent/TextWidth/TextHeight Angaben waren bei mir bisher immer korrekt, von daher kann ich deine Angaben nicht nachvollziehen.

100%-korrekt? Bei verschiedenen TrueType-Fonts? Mal mit 'ner Box (BeginPath / EndPath) drumrum probiert? Das stimmt hinten und vorne nicht, besonders wenn mit lfWidth manipuliert wurde! GetTextExtentPoint32 lieferte mir leider die gleiche (falsche) Angabe wie Canvas.TextWidth - hab ich schon "nachprogrammiert"..

(EDIT):
Auf http://www.codeproject.com/gdi/italicText.asp ist zu sehen, das TextWidth und GetTextExtentPoint32 eben NICHT das gewünschte liefern. Dort wird wie oben beschrieben ein Bitmap erzeugt und dann vermessen - das klingt allerding recht bescheurt..