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