of_toolbaralignment

pfcapsrv.pbl   >   pfc_n_cst_conversion   >   of_toolbaralignment

Name	Datatype
li_null	Integer

public function integer of_toolbaralignment (string as_align, ref toolbaralignment ae_toolbaralign);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_ToolbarAlignment
//
//	Access:  		public
//
//	Arguments:
//	as_align				The string value to be converted to toolbaralignment data type value
//	ae_toolbaralign	A toolbaralignment variable passed by reference which will hold the
//							toolbaralignment value that the string value was converted to
//
//	Returns: 		integer	 
//						1 if a successful conversion was made.
//						If as_align value is NULL, function returns NULL.
//						If as_align value is Invalid, function returns -1.
//
//	Description:  Converts a string value to a toolbaralignment 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_align = Lower (as_align)

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

If Pos (as_align, "top") > 0 Then
	ae_toolbaralign = alignattop!
	Return 1
	
ElseIf Pos (as_align, "bottom") > 0 Then
	ae_toolbaralign = alignatbottom!
	Return 1
	
ElseIf Pos (as_align, "left") > 0 Then
	ae_toolbaralign = alignatleft!
	Return 1
	
ElseIf Pos (as_align, "right") > 0 Then
	ae_toolbaralign = alignatright!
	Return 1
	
ElseIf Pos (as_align, "floating") > 0 Then
	ae_toolbaralign = floating!
	Return 1
	
End If

//Invalid parameter.
Return -1
end function

Name	Owner
pfc_n_cst_winsrv_preference.of_restore	pfc_n_cst_winsrv_preference

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