of_getregistered

pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_resize   >   of_getregistered

Name	Datatype
lb_empty	boolean[]
li_cnt	integer
li_count	integer
li_empty	integer[]
li_regcount	integer

public function integer of_getregistered (ref string as_control[], ref boolean ab_scale[], ref integer ai_movex[], ref integer ai_movey[], ref integer ai_scalewidth[], ref integer ai_scaleheight[]);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_GetRegistered
//
//	Access:  		public
//
//	Arguments:		
//	 as_control[]		(by ref) All of the registered objects.
//	 ab_scale[]			(by ref) The scale switch.
//  ai_movex[]			(by ref) The percentage to move the object along the x axis.
//  ai_movey[]			(by ref) The percentage to move the object along the y axis.
//  ai_scalewidth[] 	(by ref) The percentage to scale the object along the x axis.
//  ai_scaleheight[]	(by ref) The percentage to scale the object along the y axis.
//
//	Returns:  		integer
//	1 if it succeeds and -1 if an error occurs.
//
//	Description:  	
//	Get the registered information for the passed in object.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_regcount
integer	li_count
integer	li_cnt
boolean	lb_empty[]
integer	li_empty[]

// Initilize reference variables.
ab_scale = lb_empty
ai_movex = li_empty
ai_movey = li_empty
ai_scalewidth = li_empty
ai_scaleheight = li_empty

// Loop to find and populate all the entries.
li_count = UpperBound(inv_registered)
For li_cnt = 1 to li_count
	If Len(Trim(inv_registered[li_cnt].s_control)) > 0 Then

		li_regcount ++
		
		as_control[li_regcount] = inv_registered[li_cnt].s_control
		ab_scale[li_regcount] = inv_registered[li_cnt].b_scale
		ai_movex[li_regcount] = inv_registered[li_cnt].i_movex
		ai_movey[li_regcount] = inv_registered[li_cnt].i_movey
		ai_scalewidth[li_regcount] = inv_registered[li_cnt].i_scalewidth
		ai_scaleheight[li_regcount] = inv_registered[li_cnt].i_scaleheight
	End If
Next

Return li_regcount

end function

Name	Owner
pfc_u_tabpg_dwproperty_srvresize.pfc_propertypopulate	pfc_u_tabpg_dwproperty_srvresize

Name	Owner
systemfunctions.len	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upperbound	systemfunctions