TRVPrint.OnFormatting

Occurs while FormatPages method is executed.

type

TRVPrintingEvent = procedure(Sender: TCustomRichView;

PageCompleted: Integer;

Step:TRVPrintingStep) of object;

property OnFormatting: TRVPrintingEvent;

In the first time, this event is generated with

PageCompleted=0, Step=rvpsStarting.

Next, this event occurs several times with

PageCompleted=<number of page which was formatted>, Step=rvpsProceeding.

In the last time, it occurs with

PageCompleted=0, Step=rvpsFinished.

Note1: Sender is a special RichView, internally contained in TRVPrint object.

Note2: The first step (preliminary formatting) takes 90% of time; subsequent repagination is quick.