pfc_propertyapply


pfcutil.pbl   >   pfc_u_tabpg_dwproperty_srvfind   >   pfc_propertyapply   

Full name pfc_u_tabpg_dwproperty_srvfind.pfc_propertyapply
Access public
Extend of
Return value
Prototype event pfc_propertyapply()

Name Datatype
No Data

Name Datatype
lb_current boolean
lb_desired boolean
li_rc integer

event pfc_propertyapply;call super::pfc_propertyapply;//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		pfc_PropertyApply
//
//	Access:    		Public
//
//	Arguments:  	None
//
//	Returns:   		Integer
//   1 if it succeeds.
//	 -1 if an error occurs.
//
//	Description:  		
//	 Apply the requested changes.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

integer 	li_rc
boolean	lb_current, lb_desired

// Validate references.
If IsNull(idw_requestor) or Not IsValid(idw_requestor) Then
	Return -1
End If
If IsNull(idw_requestor.inv_find) or Not IsValid(idw_requestor.inv_find) Then
	Return -1
End If

// -- Allow Find Dialog Only. --
lb_current = idw_requestor.inv_find.of_IsAllowFindDlg()
lb_desired = cbx_allowfinddlg.Checked
// If the desired value differs from the current value.
If lb_current<> lb_desired Then
	li_rc = idw_requestor.inv_find.of_SetAllowFindDlg(lb_desired)
End If

// -- Allow Replace Dialog Only. --
lb_current = idw_requestor.inv_find.of_IsAllowReplaceDlg()
lb_desired = cbx_allowreplacedlg.Checked
// If the desired value differs from the current value.
If lb_current<> lb_desired Then
	li_rc = idw_requestor.inv_find.of_SetAllowReplaceDlg(lb_desired)
End If

Return 1

end event

     
Name Owner
No Data

     
Name Owner
systemfunctions.isnull systemfunctions
systemfunctions.isvalid systemfunctions
pfc_n_cst_dwsrv_find.of_setallowfinddlg pfc_n_cst_dwsrv_find
pfc_n_cst_dwsrv_find.of_isallowfinddlg pfc_n_cst_dwsrv_find
pfc_n_cst_dwsrv_find.of_IsAllowReplaceDlg pfc_n_cst_dwsrv_find
pfc_n_cst_dwsrv_find.of_SetAllowReplaceDlg pfc_n_cst_dwsrv_find
pfc_u_tabpg_dwproperty_base.pfc_propertyapply pfc_u_tabpg_dwproperty_base

     
Full name
pfc_u_tabpg_dwproperty_srvfind

     
Name Scope
No Data