of_getobjectinformation

pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_resize   >   of_getobjectinformation

Name	Datatype
li_height	integer
li_width	integer
li_x	integer
li_y	integer
ls_describeret	string
ls_type	string

protected function integer of_getobjectinformation (string as_control, ref string as_type, ref integer ai_x, ref integer ai_y, ref integer ai_width, ref integer ai_height);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_GetObjectInformation
//
//	Scope:  		protected
//
//	Arguments:		
//	 as_control		The object whose current information is needed.
//  as_type(by reference)	The object type.
//  ai_x(by reference)		The object x.
//	 ai_y(by reference)		The object y.
//  ai_width(by reference)	The object width.		
//  ai_height(by reference) The object height.
//
//	Returns:  		integer
//						1 if it succeeds and -1 if an error occurs.
//
//	Description:  	
//		Get the desired object information from the datawindow 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.
//
//////////////////////////////////////////////////////////////////////////////

string  ls_type
string  ls_describeret
integer li_x
integer li_y
integer li_height
integer li_width

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

//Validate and set type value
ls_describeret = idw_requestor.Describe(as_control+'.Type')
If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' Then
	Return -1
End If
ls_type = ls_describeret

//Get the coordinates.
If Pos(ls_type, LINE) > 0 Then
	ls_describeret = idw_requestor.Describe(as_control+'.X1')
	If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' or Not IsNumber(ls_describeret) Then
		Return -1
	End If
	li_x = Integer (ls_describeret)

	ls_describeret = idw_requestor.Describe(as_control+'.Y1')
	If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' or Not IsNumber(ls_describeret) Then
		Return -1
	End If
	li_y = Integer (ls_describeret)

	ls_describeret = idw_requestor.Describe(as_control+'.X2')
	If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' or Not IsNumber(ls_describeret) Then
		Return -1
	End If
	li_width = Integer (ls_describeret)

	ls_describeret = idw_requestor.Describe(as_control+'.Y2')
	If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' or Not IsNumber(ls_describeret) Then
		Return -1
	End If
	li_height = Integer (ls_describeret)	
Else
	ls_describeret = idw_requestor.Describe(as_control+'.X')
	If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' or Not IsNumber(ls_describeret) Then
		Return -1
	End If
	li_x = Integer (ls_describeret)

	ls_describeret = idw_requestor.Describe(as_control+'.Y')
	If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' or Not IsNumber(ls_describeret) Then
		Return -1
	End If
	li_y = Integer (ls_describeret)

	ls_describeret = idw_requestor.Describe(as_control+'.Width')
	If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' or Not IsNumber(ls_describeret) Then
		Return -1
	End If
	li_width = Integer (ls_describeret)

	ls_describeret = idw_requestor.Describe(as_control+'.Height')
	If IsNull(ls_describeret) or ls_describeret='!' or ls_describeret='?' or Not IsNumber(ls_describeret) Then
		Return -1
	End If
	li_height = Integer (ls_describeret)
End If

as_type = ls_type
ai_x = li_x
ai_y = li_y
ai_width = li_width
ai_height = li_height
Return 1
end function

Name	Owner
pfc_n_cst_dwsrv_resize.of_resize	pfc_n_cst_dwsrv_resize
pfc_n_cst_dwsrv_resize.of_register	pfc_n_cst_dwsrv_resize

Name	Owner
datawindow.describe	datawindow
systemfunctions.integer	systemfunctions
systemfunctions.isnull	systemfunctions
systemfunctions.isnumber	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.pos	systemfunctions