Hallo
folgender Code erzeugt eine Textbox im OnMeasureTextPage, wenn die Seite neu ist (was ich mir merke) :
Code
fWPRichText.TextCursor.MoveTo(par, 0, false, true);
txtobj := fWPRichText.TextObjects.InsertTextBox(b, h, RTFDataBlock);
// Set contents
RTFDataBlock.RtfText.AsString := text; // HTML would be possible or RTF !
txtobj.Source := text;
txtobj.PositionMode := wpotPage;
txtobj.Wrap := wpwrNone;
// Rahmen abschalten
txtobj.Frame := [];
txtobj.RelX := X; // X in twips !
txtobj.RelY := Y; // Y in twips !
txtobj.Mode := txtobj.Mode + [wpobjDisableAutoSize, wpobjWithinEditable];
Alles anzeigen
erzeuge ich den Text im Dokument langsam einzeln und lass dem WPRichText dazwischen Zeit, wird auf jeder neuen Seite oben die Textbox dargestellt.
Erzeuge ich aber viel Text über mehrere Seiten per Code, sind die Textboxen unsichtbar, auch wenn man im Dokument scrollt.
Erst wenn man irgendwo ins Dokument hineinklickt werden sie sichtbar!
Ich habe WPRichText.Repaint, WPRichText.Refresh, WPRichText.Memo.Repaint, WPRichText.Memo.Refresh nach der Texterzeugung probiert, alles ohne Wirkung!
Gibt es noch einen Trick?
Ciao
Stefan