Thema: Delphi Textzeilen umbrechen

Einzelnen Beitrag anzeigen

xaromz

Registriert seit: 18. Mär 2005
1.682 Beiträge
 
Delphi 2006 Enterprise
 
#1

Textzeilen umbrechen

  Alt 23. Jul 2005, 10:29
Hallo,

ich schreibe gerade eine Edit-Komponente. Sie soll ähnlich wie RichEdit Formatierungen beherrschen. Klappt auch ganz gut. Ich möchte das Ganze aber beschleunigen (ist nämlich immer eine gute Idee ). Dafür hab ich mir den Zeilenumbruch ausgesucht. Das ist eine ziemlich blöde Sache, ich messe und kürze solange meinen Text (TextExtend), bis der Text kleiner als der verfügbare Platz ist. Das können bei einem langen Text schon mal einige Aufrufe sein. Nun meine Frage:
Gibt es eine API-Funktion, die mir sowas ähnliches sagt:
Zitat:
Mit dem Font "Arial" in der Größe "10pt" passen die ersten 12 Zeichen deines Textes "Ceterum censeo" in eine Breite von 50 Pixel.
Ich stelle mir sowas vor:
function GetLinebreak(DC: HDC; S: PChar; Length: Integer; Width: Integer): Integer; Wenn es sowas nicht gibt, hat jemand einen Algorithmus, um diesen Wert schnell zu finden?

Gruß
xaromz
  Mit Zitat antworten Zitat