Re: Inserting page # in footer

Return to index

Author

Message

Stef Mientki

Posted: 10/16/2003 18:25:35

from one of the examples:

succes,

Stef Mientki

procedure TfrmPreview.RVPrint1PagePrepaint(Sender: TRVPrint;

   PageNo: Integer; Canvas: TCanvas; Preview: Boolean; PageRect,

   PrintAreaRect: TRect);

(*******************************************************************************

*******************************************************************************)

var w,h: Integer;

     s: String;

begin

   // This is a temporary solution for drawing page numbers and

similalar stuff

   // This example outputs string just above RichView contents

   s := Format ('-- Page %d of %d --', [PageNo, Sender.PagesCount]);

   Canvas.Brush.Style := bsClear;

   Canvas.Font.Assign(form1.RVStyle1.TextStyles[0]);

   w := Canvas.TextWidth(s);

   h := Canvas.TextHeight(s);

   TextOut(Canvas.Handle, (PrintAreaRect.Right+PrintAreaRect.Left-w) div

               2,PrintAreaRect.Top - h - 10, PChar(s), Length(s));

end;

David Kroll wrote:

> How would I put the page # in the footer, i.e. Page 1 of 2.

>

> Thanks,

>

> David

>

>