of_getregistered

pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_resize   >   of_getregistered

Name	Datatype
li_cnt	integer
li_count	integer

public function integer of_getregistered (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			The registered object.
//	 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_count
integer	li_cnt

// Initilize reference variables.
ab_scale = False
ai_movex = 0
ai_movey = 0
ai_scalewidth = 0
ai_scaleheight = 0

// Loop to find entry.
li_count = UpperBound(inv_registered)
For li_cnt = 1 to li_count
	If inv_registered[li_cnt].s_control = as_control Then
		// Set the reference variables and return.
		ab_scale = inv_registered[li_cnt].b_scale
		ai_movex = inv_registered[li_cnt].i_movex
		ai_movey = inv_registered[li_cnt].i_movey
		ai_scalewidth = inv_registered[li_cnt].i_scalewidth
		ai_scaleheight = inv_registered[li_cnt].i_scaleheight
		Return 1
	End If
Next

// Did not find the entry.
Return -1

end function

Name	Owner
pfc_n_cst_dwsrv_resize.of_getregistered	pfc_n_cst_dwsrv_resize
pfc_u_tabpg_dwproperty_srvresize.pfc_propertyapply	pfc_u_tabpg_dwproperty_srvresize

Name	Owner
systemfunctions.upperbound	systemfunctions