In the working code example below I expect that the header and footer on the second document (wp2) shows with the text "Header 2" and "Footer 2". Instead the header and footer from the first document (wp1) is copied to wp2 even thought you can see in my code that the wp2 is processed with a different header and footer and different text. Am i missing something simple with the AppendAsSection feature? I need to create many dynamic documents, build them into 1 and then display all pages as 1 document to the user. I need to be able to have different text in the header and footer with different formatting on each page(s).
Code
procedure TestHeaderFooter;
var
par:TParagraph;
wpall,wp1,wp2:TWPCustomRichText;
begin
wpall := TWPCustomRichText.CreateDynamic;
wp1 := TWPCustomRichText.CreateDynamic;
wp2 := TWPCustomRichText.CreateDynamic;
// DOC 1
par := wp1.FirstPar;
par.SetText('HEADER 1');
wp1.HeaderFooter.Get(wpHeader,wpraOnAllPages,'HEADER 1').AppendPar(par);
par := wp1.ActiveText.AppendNewPar(True);
par.SetText('BODY 1');
par := wp1.ActiveText.AppendNewPar(True);
par.SetText('FOOTER 1');
wp1.HeaderFooter.Get(wpFooter,wpraOnAllPages,'FOOTER 1').AppendPar(par);
// DOC 2
par := wp2.FirstPar;
par.SetText('HEADER 2');
wp2.HeaderFooter.Get(wpHeader,wpraOnAllPages,'HEADER 2').AppendPar(par);
par := wp2.ActiveText.AppendNewPar(True);
par.SetText('BODY 2');
par := wp2.ActiveText.AppendNewPar(True);
par.SetText('FOOTER 2');
wp2.HeaderFooter.Get(wpFooter,wpraOnAllPages,'FOOTER 2').AppendPar(par);
wpall.AppendAsSection(wp1);
wpall.AppendAsSection(wp2);
wpall.ReformatAll(True);
// PREVIEW
with TWPPreviewDlg.Create(Application) do
begin
EditBox:= wpall;
Execute;
Free;
end; // WITH
FreeAndNil(wp1);
FreeAndNil(wp2);
FreeAndNil(wpall);
end;