Hallo,
ich schreibe den Inhalt eines kleinen WPRichText in einen Stream und speichere den Stream extern ab.
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 Header
Alles anzeigen
Texte erscheinen wie gewünscht in der Textbox, die ggf. enthaltenen Bilder nicht, was ist da falsch an meiner Vorgehensweise?
Ciao
Stefan