Procedure TWPCustomToolPanel.DoZoomClick(Sender:TObject)Unit: WPTbarClass: WPTbar.TWPCustomToolPanelParameters Sender:TObject