TRVRTFReaderProperties.SetFooter

Top Previous Next

Specifies the document to read page footer in. Call with nil parameter to remove this link.

procedure SetFooter(RVData: TCustomRVData);

Example:

RichView1.Clear;

RichView2.Clear;

RichView1.RTFReadProperties.SetFooter(RichView2.RVData);

RichView1.LoadRTF('test.rtf');

RichView1.Format; // contains document

RichView2.Format; // contains footer

RVPrint1.AssignSource(RichView1);

if RichView1.RTFReadProperties.FooterYMM>=0 then begin

RVPrint1.FooterYMM := RichView1.RTFReadProperties.FooterYMM;

RVPrint1.SetFooter(RichView2.RVData);

end

else

RVPrint1.SetFooter(nil);

RVPrint1.FormatPages(rvdoAll);

RVPrint1.Print('Doc with footer', 1, False);