enchange

pfcdwsrv.pbl   >   pfc_w_zoom   >   em_zoom   >   enchange   

Full name pfc_w_zoom.em_zoom.enchange
Access public
Extend of
Return value
Prototype event enchange()

Name Datatype
No Data

Name Datatype
li_zoom integer
lnv_string n_cst_string
ls_text string 

event enchange;call u_em::enchange;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  enchange
//
//	Description:  Update print preview
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

integer	li_zoom
string		ls_text
n_cst_string	lnv_string

ls_text = this.text
lnv_string.of_GlobalReplace (ls_text, "%", "")
if not IsNumber (ls_text) then
	return
end if

cb_apply.enabled = true
li_zoom = Integer (ls_text)

//////////////////////////////////////////////////////////////////////////////
// 200%
//////////////////////////////////////////////////////////////////////////////
if li_zoom = 200 then
	rb_200.checked = true
	rb_100.checked = false
	rb_75.checked = false
	rb_50.checked = false
	rb_25.checked = false
	return
end if

//////////////////////////////////////////////////////////////////////////////
// 100%
//////////////////////////////////////////////////////////////////////////////
if li_zoom = 100 then
	rb_200.checked = false
	rb_100.checked = true
	rb_75.checked = false
	rb_50.checked = false
	rb_25.checked = false
	return
end if

//////////////////////////////////////////////////////////////////////////////
// 75%
//////////////////////////////////////////////////////////////////////////////
if li_zoom = 75 then
	rb_200.checked = false
	rb_100.checked = false
	rb_75.checked = true
	rb_50.checked = false
	rb_25.checked = false
	return
end if

//////////////////////////////////////////////////////////////////////////////
// 50%
//////////////////////////////////////////////////////////////////////////////
if li_zoom = 50 then
	rb_200.checked = false
	rb_100.checked = false
	rb_75.checked = false
	rb_50.checked = true
	rb_25.checked = false
	return
end if

//////////////////////////////////////////////////////////////////////////////
// 25%
//////////////////////////////////////////////////////////////////////////////
if li_zoom = 25 then
	rb_200.checked = false
	rb_100.checked = false
	rb_75.checked = false
	rb_50.checked = false
	rb_25.checked = true
	return
end if

//////////////////////////////////////////////////////////////////////////////
// Custom percentage
//////////////////////////////////////////////////////////////////////////////
rb_200.checked = false
rb_100.checked = false
rb_75.checked = false
rb_50.checked = false
rb_25.checked = false

//////////////////////////////////////////////////////////////////////////////
// Preview
//////////////////////////////////////////////////////////////////////////////
dw_preview.object.datawindow.print.preview.zoom = li_zoom
end event

     
Name Owner
No Data

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

     
Full name
pfc_w_zoom
pfc_w_zoom.cb_apply

     
Name Scope
No Data