Re: Header/Footer again...

Return to index

Author

Message

Sergey Tkachenko

Posted: 03/10/2003 23:14:47

Use OnSaveRTFExtra:

procedure TForm3.RichViewEdit1SaveRTFExtra(Sender: TCustomRichView;

  Area: TRVRTFSaveArea; Obj: TObject; Index1, Index2: Integer;

  InStyleSheet: Boolean; var RTFCode: String);

begin

  if Area=rv_rtfs_Doc then

    RTFCode :=

     '{\header\pard\plain\posxc THIS IS HEADER WITH PAGENUMBER:

{\field{\*\fldinst PAGE}{\fldrslt 1}}\par}'+

     '{\footer\pard\plain\posxr THIS IS FOOTER\par}';

end;

In this example:

\posxc - keyword for aligning header/footer to center

\posxr - keyword for aligning header/footer to right

{\field{\*\fldinst PAGE}{\fldrslt 1}} - code for inserting page number

> Sergey,

>

> I will be very much appreciated if you can provide that code.

>

>

> Thanks,

> Oleg Mironov

>