Re: how can remove the zoom event of TRVPrintPreview?

Return to index

Author

Message

chen

Posted: 02/13/2003 12:27:09

I have remove the zoom by change the source of rvpp.pas

Now ,I can draw some line on the RVPrintPreview.canvas

procedure TCustomRVPrintPreview.Click;

begin

  inherited;

   ZoomMode := rvzmCustom;

//  if ZoomPercent=100 then

//    ZoomPercent := SavedZoomPercent

//  else

   ZoomPercent := 100;

end;

but i can not print the lines ,so ,i record the lines and paint them

in onPagePrepaint event.

beacause the the RVPrintPreview.canvas is different from the canvas in

onPagePrepaint event,

the print result is different from the RVPrintPreview.

in one word

I want to draw some line by mouse on document and print it .

the postion of lines on the document can not be moved when the document is

printed.

can u give me some advice?

thx.