open

pfcdwsrv.pbl   >   pfc_w_zoom   >   open

Name	Datatype
lbl_dw	blob
li_initialzoom	integer

event open;call super::open;//////////////////////////////////////////////////////////////////////////////
//	Event:  open
//	Description:  Gets the zoom object passed to this window and initializes the zoom window
//////////////////////////////////////////////////////////////////////////////
//	Rev. History	Version
//						5.0   Initial version
//						6.0   Added support for datastores
// 					7.0	Fix problem with dynamically created datawindow
//////////////////////////////////////////////////////////////////////////////
//	Copyright © 1996-1999 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.
//////////////////////////////////////////////////////////////////////////////
integer	li_initialzoom
blob lbl_dw

ib_disableclosequery = true

//////////////////////////////////////////////////////////////////////////////
// Get the zoom object from the message object
//////////////////////////////////////////////////////////////////////////////
inv_zoomattrib = message.PowerObjectParm

ib_dwrequestor = not (isNull (inv_zoomattrib.idw_obj) or not isValid (inv_zoomattrib.idw_obj))
if not ib_dwrequestor then
	if (isNull (inv_zoomattrib.ids_obj) or not isValid (inv_zoomattrib.ids_obj)) then
		inv_zoomattrib.ii_zoom = -1
		close (this)
	end if
end if

li_initialzoom = inv_zoomattrib.ii_zoom
inv_zoomattrib.ii_zoom = 0

//////////////////////////////////////////////////////////////////////////////
// Initialize preview area
//////////////////////////////////////////////////////////////////////////////
if ib_dwrequestor then
	inv_zoomattrib.idw_obj.GetFullState ( lbl_dw )
	dw_preview.SetFullState ( lbl_dw )
else
	inv_zoomattrib.ids_obj.GetFullState ( lbl_dw )
	dw_preview.SetFullState ( lbl_dw )
end if

dw_preview.object.datawindow.print.preview = true

//////////////////////////////////////////////////////////////////////////////
// Initialize zoom percentages
//////////////////////////////////////////////////////////////////////////////
choose case li_initialzoom

	case 200
		rb_200.checked = true

	case 100
		rb_100.checked = true

	case 75
		rb_75.checked = true

	case 50
		rb_50.checked = true

	case 25
		rb_25.checked = true

end choose

em_zoom.text = String (li_initialzoom) + "%"
dw_preview.object.datawindow.print.preview.zoom = li_initialzoom
end event

Name	Owner
datawindow.getfullstate	datawindow
datawindow.setfullstate	datawindow
datastore.getfullstate	datastore
systemfunctions.close	systemfunctions
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.string	systemfunctions
pfc_w_master.open	pfc_w_master

Full name
pfc_w_zoom
demopfc