Procedure TWPVertRuler.MouseMove(Shift:TShiftState; x:Integer; y:Integer)Unit: WPRulerClass: WPRuler.TWPVertRulerParameters Shift:TShiftState x:Integer y:Integer