trichview.support
Re: Inserting page # in footer |
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 > > |
Powered by ABC Amber Outlook Express Converter