Hallo,
ich erzeuge Textobjekte mit folgendem Code:
Code
SpecialText := HeaderFooter.Get(wpIsHeader, wpraOnFirstPage);
if SpecialText.Empty then
begin
X := WPCentimeterToTwips(2);
Y := WPCentimeterToTwips(2);
b := WPCentimeterToTwips(5);
H := WPCentimeterToTwips(3);
// Textbox erzeugen
RTFData := nil;
ActiveText := HeaderFooter.Get(wpIsHeader, wpraOnFirstPage);
txtobj := TextObjects.InsertTextBox(b, H, RTFData);
txtobj.PositionMode := wpotPage;
txtobj.RelX := X;
txtobj.Rely := Y - Header.MarginHeader;
txtobj.Frame := [];
if RTFData <> nil then
begin
ms.Position := 0;
RTFData.RtfText.LoadFromStream(ms);
end;
end;
Alles anzeigen
Dabei steckt der Textobjektinhalt in einem Stream der dabei geladen wird.
Die Anzeige der Textbox ist nach der Erzeugung korrekt und enthält Text sowie ein Bild.
Nach einem SaveToFile und einem LoadFromFile (beides im WPT-Format) ist der Text wieder in der Textbox enthalten, die Position stimmt auch aber das Bild aber ist weg!
Wo liegt mein Fehler?
Ciao
Stefan