Hallo,
ich schreibe den Inhalt eines kleinen WPRichText in einen Stream und speichere den Stream extern ab.
Code
WPRichtext.SaveToStream(myStream, 'WPT');Der Stream beinhaltet formatierten Text, hat aber auch ggf. Bilder enthalten.
Nun erzeuge ich eine Textbox im Header eines leeren WPRichText:
Code
procedure WPRichText.WPRichTextGetSpecialText(Sender: TObject;
par: TParagraph; posinpar, PageNr: integer; Kind: TWPPagePropertyKind;
var IsLastPage, UseThis: boolean; var SpecialText: TWPRTFDataBlock);
var
RTFData: TWPRTFDataBlock;
TxtObj: TWPTextObj;
X, Y, b, H: integer;
begin
if Kind = wpIsHeader then
begin
aName := 'HEADER#' + inttostr(PageNr);
SpecialText := WPRichText.HeaderFooter.Get(wpIsHeader, wpraNamed, aName);
if SpecialText.Empty then
begin
X := 2000;
Y := 2000;
b := 3000;
H := 500;
RTFData := nil;
TxtObj := WPRichText.TextObjects.InsertTextBox(b, H, RTFData, SpecialText.FirstPar);
TxtObj.PositionMode := wpotPage;
TxtObj.RelX := X;
TxtObj.Rely := Y - WPRichText.Header.MarginHeader;
TxtObj.Frame := [wpframeFine];
if RTFData <> nil then
begin
myStream.Position := 0;
RTFData.FirstPar.LoadFromStream
(myStream, 'WPT');
end;
end;
UseThis := true;
end; // is HeaderTexte erscheinen wie gewünscht in der Textbox, die ggf. enthaltenen Bilder nicht, was ist da falsch an meiner Vorgehensweise?
Ciao
Stefan