Hallo,
ich habe beschlossen, Textboxen nicht im Header, sondern im Text anzulegen.
Im OnGetSpecialText muss ich aber nun herausfinden, ob für die betreffende Seite die Textboxen bereits erzeugt wurden.
Im Header geht das einfach per
Code
if Kind = wpIsHeader then
begin
aName := 'HEADER#' + inttostr(pagenr);
SpecialText := WPRichText1.HeaderFooter.Get(wpIsHeader, wpraNamed, aName);
if SpecialText.Empty then
begin
...
wie aber kann ich erkennen, ob auf der Seite im Bodytext etwas vorhanden ist?
Die Textboxen werden im OnGetSpecialText erzeugt
Code
txtObj := WPRichText1.TextObjects.InsertTextBox(3000, 500, RTFData);
txtObj.PositionMode := wpotPage;
txtObj.ExtraProp['Seite'] := pagenr.ToString;
was funktioniert, aber wenn ich alle TextObjekte durchlaufe
Code
WPRichText1.TextObjectsGetList(list, wpobjTextObject, true);
for i := 0 to list.Count - 1 do
begin
if list[i].ExtraProp['Seite'] = 'Seite' + pagenr.tostring then
begin
pagevorhanden := true;
break;
end;
end;
ist die ExtraProp immer leer!
Was läuft da schief?
Ciao
Stefan