pfc_propertysyntax


pfcutil.pbl   >   pfc_u_tabpg_dwproperty_srvprintpreview   >   pfc_propertysyntax   

Full name pfc_u_tabpg_dwproperty_srvprintpreview.pfc_propertysyntax
Access public
Extend of
Return value
Prototype event pfc_propertysyntax()

Name Datatype
No Data

Name Datatype
lb_desired boolean
lnv_conversion n_cst_conversion
ls_syntax string

event pfc_propertysyntax;call super::pfc_propertysyntax;//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		pfc_propertysyntax
//
//	Access:    		Public
//
//	Arguments:  	None
//
//	Returns:   		String
//	  The syntax required to create the currently selections.
//   '!' in error
//
//	Description:  
//	Create the required syntax to match the current selections.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	6.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.
//
//////////////////////////////////////////////////////////////////////////////

string	ls_syntax
boolean	lb_desired
n_cst_conversion lnv_conversion

// Validate references.
If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then
	Return '!'
End If
If IsNull(idw_requestor.inv_printpreview) or Not IsValid(idw_requestor.inv_printpreview) Then
	Return '!'
End If


// -- Start the service. --
ls_syntax += 'This.of_SetPrintPreview(True)~r~n'

// -- Enabled. -- 
lb_desired = cbx_enabled.Checked
ls_syntax += '~r~nThis.inv_printpreview.of_SetEnabled('+lnv_conversion.of_String(lb_desired)+')'

// -- Ruler. --
lb_desired = cbx_ruler.Checked
ls_syntax += '~r~nThis.inv_printpreview.of_SetRuler('+lnv_conversion.of_String(lb_desired)+')'

// -- Zoom. --
If Len(Trim(em_zoom.Text)) > 0 Then
	ls_syntax += '~r~nThis.inv_printpreview.of_SetZoom('+em_zoom.Text+')'
End If

Return ls_syntax

end event

     
Name Owner
No Data

     
Name Owner
systemfunctions.isnull systemfunctions
systemfunctions.isvalid systemfunctions
systemfunctions.len systemfunctions
systemfunctions.trim systemfunctions
pfc_n_cst_conversion.of_string pfc_n_cst_conversion
pfc_u_tabpg_dwproperty_base.pfc_propertysyntax pfc_u_tabpg_dwproperty_base

     
Full name
pfc_u_tabpg_dwproperty_srvprintpreview

     
Name Scope
No Data