Procedure TWPRuler.MouseMove(Shift:TShiftState; x:Integer; y:Integer)Unit: WPRulerClass: WPRuler.TWPRulerParameters Shift:TShiftState x:Integer y:Integer