TRVRTFReaderProperties.SetHeader

Top Previous Next

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

procedure SetHeader(RVData: TCustomRVData);

Example:

RichView1.Clear;

RichView2.Clear;

RichView1.RTFReadProperties.SetHeader(RichView2.RVData);

RichView1.LoadRTF('test.rtf');

RichView1.Format; // contains document

RichView2.Format; // contains header

RVPrint1.AssignSource(RichView1);

if RichView1.RTFReadProperties.HeaderYMM>=0 then begin

RVPrint1.HeaderYMM := RichView1.RTFReadProperties.HeaderYMM;

RVPrint1.SetHeader(RichView2.RVData);

end

else

RVPrint1.SetHeader(nil);

RVPrint1.FormatPages(rvdoAll);

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