how can remove the zoom event of TRVPrintPreview?

Return to index

Author

Message

chen

Posted: 02/13/2003 8:36:39

I want to draw some lines on the TRvPrintPreview canvas .

I have added

property OnMouseMove;

property OnMouseDown;

property OnMouseUp;

property Canvas;

in TRvPrintPreview(Rvpp.pas)

I can use the mousedown mouseMove  mouseup event to draw some lines

but ,the document will resize when mousedown event is invoked.

I want the document's size can not be changed.

how can i do it ?

thx

                   mike

the code is followed

procedure TForm1.RVPrintPreview1MouseMove(Sender: TObject;

  Shift: TShiftState; X, Y: Integer);

begin

if beginDraw then

RVPrintPreview1.Canvas.LineTo(X,Y);

end;

procedure TForm1.RVPrintPreview1MouseDown(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

beginDraw := true;

RVPrintPreview1.Canvas.MoveTo(X,Y);

end;

procedure TForm1.RVPrintPreview1MouseUp(Sender: TObject;

  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

beginDraw := false;

end;