Procedure TWPToolbar.UpdateZoomDisplay(val:Integer)Unit: WPTbarClass: WPTbar.TWPToolbarParameters val:Integer