Seit gestern versuche ich das.
Gegeben sei ein RTF-Text sowie ein imaginäres TRichEdit mit einer definierten Breite. Dahinein plaziere ich den RTF-formatierten Text. Ich benötige die Höhe des formatierten Textes. Das geht bei einem
nicht imaginären TRichEdit über den Aufruf
Delphi-Quellcode:
Var
P : TPoint;
Begin
reContainer.Perform (EM_POSFROMCHAR,LongInt (@P), 32767)
...
In P.Y steht dann die Höhe des Texts (wenn dieser mit einer Leerzeile abschliesst).
Super, das will ich jetzt OHNE ein TRichEdit realisieren. Wenn ich mir einfach eine Instanz erstelle (Parent = Nil), wird sofort die Notbremse (
Exception) beim Setzen der Lines-Eigenschaft gezogen.
Weiss jemand wie ich das sonst hinbekomme, oder mir ein TRichEdit mit einem Parent bastle, ohne Bezug zu einem Formular nehmen zu müssen?
Ich möchte sozusagen eine Funktion implementieren:
Function RTF_GetFormatedTextRect (Const aText : String; aCanvasRect : TRect) : TRect;
Sie liefert dann den Umriss des formatierten Texts in Pixeln.
Danke für die Mühe
[edit]EM_GETRECT in EM_POSFROMCHAR geändert[/edit]