pfc_apply

pfcdwsrv.pbl   >   pfc_w_zoom   >   pfc_apply

Name	Datatype
lnv_string	n_cst_string

event pfc_apply;call super::pfc_apply;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  pfc_apply
//
//	Description:  Apply zoom factor to requesting DataWindow
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
//	6.0   Added support for datastores
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

n_cst_string	lnv_string

lnv_string.of_GlobalReplace (em_zoom.text, "%", "")
if IsNumber (em_zoom.text) then
	inv_zoomattrib.ii_zoom = Integer (em_zoom.text)
else
	return
end if

if ib_dwrequestor then
	inv_zoomattrib.idw_obj.object.datawindow.print.preview.zoom = inv_zoomattrib.ii_zoom
else
	inv_zoomattrib.ids_obj.object.datawindow.print.preview.zoom = inv_zoomattrib.ii_zoom	
end if

ii_rc = inv_zoomattrib.ii_zoom
cb_apply.enabled = false
end event

Name	Owner
pfc_w_zoom.cb_apply.clicked	cb_apply
pfc_w_zoom.pfc_default	pfc_w_zoom

Name	Owner
systemfunctions.integer	systemfunctions
systemfunctions.isnumber	systemfunctions
pfc_n_cst_string.of_globalreplace	pfc_n_cst_string
pfc_w_response.pfc_apply	pfc_w_response

Full name
pfc_w_zoom
pfc_w_zoom.cb_apply