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