Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Text drucken (https://www.delphipraxis.net/70745-text-drucken.html)

Luckie 3. Jun 2006 23:46


Text drucken
 
Ich habe einen unbestimmt langen Text. Und ich habe die Breite des Papiers in Milimetern. Jetzt müsste ich den Text in einzelne Zeilen zerlegen, so dass ich ihn mit der API Funktion TextOut in einer Schleife ausdrucken kann. Mit GetTextExtentPoint bekomme ich die Breite eines Strings. Aber ich müsste die Breite vorgeben und dann die Anzahlzeichen bekommen, die dort reinpassen. (Und am Besten noch bis zum letzten Leerzeichen, da ich nicht mitten im Wort umbrechen will.)

Hat da jemand eine Idee, wie man das machen könnte?

Mystic 3. Jun 2006 23:49

Re: Text drucken
 
Bei Schriftarten mit variabler Zeichenbreite hilft glaube ich nur Ausprobieren (Den Umbruchpunkt solange verschieben bis die Zeile aufs Papier passt).

Luckie 3. Jun 2006 23:51

Re: Text drucken
 
Puh, das wollte ich eigentlich vermeiden. Aber im Moment, sehe ich auch keine andere Lösung.

Mystic 3. Jun 2006 23:57

Re: Text drucken
 
Ich glaub ich hab was gefunden. Schau dir mal MSDN-Library durchsuchenGetTextExtentExPoint an.

sniper_w 4. Jun 2006 00:22

Re: Text drucken
 
Siehe auch DrawText


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:37 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz