Procedure TWPCustomToolCtrl.UpdateZoomDisplay(val:Integer)Unit: WPCTRRichClass: WPCTRRich.TWPCustomToolCtrlParameters val:Integer