of_windowstate


pfcapsrv.pbl   >   pfc_n_cst_conversion   >   of_windowstate   

Full name pfc_n_cst_conversion.of_windowstate
Access public
Extend of integer
Return value integer
Prototype public function integer of_windowstate(string,ref windowstate)

Name Datatype
No Data

Name Datatype
li_null Integer

public function integer of_windowstate (string as_windowstate, ref windowstate aws_windowstate);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_WindowState
//
//	Access:  		public
//
//	Arguments:
//	as_windowstate		The string value to be converted to windowstate data type value.
//	aws_windowstate	A windowstate variable passed by reference which will hold the
//							windowstate value that the string value was converted to.
//
//	Returns: 		integer	 
//						1 if a successful conversion was made.
//						If as_windowstate value is NULL, function returns NULL.
//						If as_windowstate value is Invalid, function returns -1.
//
//	Description:  Converts a string value to a windowstate data type value.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.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.
//
//////////////////////////////////////////////////////////////////////////////

//Convert to lowercase
as_windowstate = Lower (as_windowstate)

//Check parameters
If IsNull(as_windowstate) Then
	Integer li_null
	SetNull(li_null)
	Return li_null
End If

If Pos (as_windowstate, "maximized") > 0 Then
	aws_windowstate = Maximized!
	Return 1
	
ElseIf Pos (as_windowstate, "minimized") > 0 Then
	aws_windowstate = Minimized!
	Return 1
	
ElseIf Pos (as_windowstate, "normal") > 0 Then
	aws_windowstate = Normal!
	Return 1
	
End If

//Invalid parameter.
Return -1
end function

     
Name Owner
No Data

     
Name Owner
systemfunctions.isnull systemfunctions
systemfunctions.lower systemfunctions
systemfunctions.pos systemfunctions
systemfunctions.setnull systemfunctions

     
Full name
No Data

     
Name Scope
No Data