pfc_propertyload

pfcutil.pbl   >   pfc_u_tabpg_dwproperty_services   >   pfc_propertyload

Name	Datatype
la_rc	any
li_cnt	integer
li_tabcnt	integer
li_upper	integer
li_uppertab	integer
lnv_empty	n_cst_propertyattrib
lnv_propertyattrib	n_cst_propertyattrib
lpo_object	powerobject
ls_object	string[]

event pfc_propertyload;call super::pfc_propertyload;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  pfc_PropertyLoad
//
//	Arguments:  None
//
//	Returns: Integer
//	 1 = The values were populated.
//
//	Description:  	Populate the desired name and description for each PFC service.
//
//	*Note: This event can be extended to change the name, description, or 
//		classname of the PFC	services. 
//
//////////////////////////////////////////////////////////////////////////////
//	
//	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.
//
//////////////////////////////////////////////////////////////////////////////

any			la_rc
integer		li_cnt
integer		li_tabcnt
integer		li_uppertab
integer		li_upper
string		ls_object[]
powerobject lpo_object
n_cst_propertyattrib	lnv_propertyattrib
n_cst_propertyattrib	lnv_empty

// Ensure that the right Index (Constant) is associated to the desired UserObject.
ls_object[ddcalculator] = 'u_calculator'
ls_object[ddcalendar] = 'u_calendar'
ls_object[ddsearch] = 'n_cst_dwsrv_dropdownsearch'
ls_object[filter] = 'n_cst_dwsrv_filter'
ls_object[find] = 'n_cst_dwsrv_find'
ls_object[linkage] = 'n_cst_dwsrv_linkage'
ls_object[multitable] = 'n_cst_dwsrv_multitable'
ls_object[printpreview] = 'n_cst_dwsrv_printpreview'
ls_object[queryMode] = 'n_cst_dwsrv_querymode'
ls_object[report] = 'n_cst_dwsrv_report'
ls_object[reqcolumn] = 'n_cst_dwsrv_reqcolumn'
ls_object[resize] = 'n_cst_dwsrv_resize'
ls_object[rowmanager] = 'n_cst_dwsrv_rowmanager'
ls_object[rowselect] = 'n_cst_dwsrv_rowselection'
ls_object[sort] = 'n_cst_dwsrv_sort'

li_upper = UpperBound(ls_object)
For li_cnt = 1 to li_upper
	lpo_object = Create Using ls_object[li_cnt]
	If IsValid(lpo_object) Then
		// Clear the attributes.
		lnv_propertyattrib = lnv_empty
		
		// Make a Dynamic call to get the attributes.
		la_rc = lpo_object.Dynamic of_GetPropertyInfo(lnv_propertyattrib)
		If ClassName(la_rc) = 'integer' or ClassName(la_rc)='long' Then
			If la_rc < 0 Then Return -1
			
			// -- Gather the attributes. --
			is_classname[li_cnt] = lpo_object.ClassName()			
			is_object[li_cnt] = lnv_propertyattrib.is_name
			If Len(Trim(is_object[li_cnt])) = 0 Then is_object[li_cnt] = is_classname[li_cnt]
			is_description[li_cnt] = lnv_propertyattrib.is_description
			is_propertypages[li_cnt] = '' // Initialize to insure entry is found in array.
			// Create tab delimited list of desired tabpages.
			li_uppertab = UpperBound(lnv_propertyattrib.is_propertypage)
			For li_tabcnt = 1 to li_uppertab
				If li_tabcnt > 1 Then is_propertypages[li_cnt] += '~t'
				is_propertypages[li_cnt] += lnv_propertyattrib.is_propertypage[li_tabcnt]
			Next
			ib_switchbuttons[li_cnt] = lnv_propertyattrib.ib_switchbuttons
		Else
			Return -1
		End If
		Destroy lpo_object
	End If
Next

Return 1
end event

Name	Owner
pfc_u_tabpg_dwproperty_services.pfc_propertypopulate	pfc_u_tabpg_dwproperty_services

Name	Owner
powerobject.classname	powerobject
systemfunctions.classname	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upperbound	systemfunctions