of_SetPictureColumn

pfcmain.pbl   >   pfc_u_tv   >   of_SetPictureColumn

public function integer of_SetPictureColumn (integer ai_level, string as_column, string as_indextype);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_SetPictureColumn
//
//	Access:  public
//
//	Arguments:
//	ai_Level					The level to use the picture index for
//	as_Column					The name of the column in the DataStore to use for
//									the index
//	as_IndexType				The index type:  "PictureIndex", "SelectedPictureIndex", 
//									"StatePictureIndex", or "OverlayPictureIndex" (this is NOT
//									case-sensitive)
//
//	Returns:		Integer
//					Return 1 if successful, -1 if an invalid parameter was passed
//
//	Description:	Identify a column in the DataStore to use for one of the various picture
//						indexes for the TreeView items in this level.  This will override any index
//						set with the of_SetDatasource function.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.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.
//
//////////////////////////////////////////////////////////////////////////////

// Verify that this is a valid level
If ai_Level > UpperBound(inv_ds) Then
	Return -1
Else
	If Trim(inv_ds[ai_Level].s_DataWindow) = "" Then
		Return -1
	End If
End If

// Set the proper value in the attribute class
Choose Case Lower(as_IndexType)
	Case "pictureindex"
		inv_ds[ai_Level].i_PictureIndex = 0
		inv_ds[ai_Level].s_PictureIndexCol = as_Column
	Case "selectedpictureindex"
		inv_ds[ai_Level].i_SelectedPictureIndex = 0
		inv_ds[ai_Level].s_SelectedPictureIndexCol = as_Column
	Case "statepictureindex"
		inv_ds[ai_Level].i_StatePictureIndex = 0
		inv_ds[ai_Level].s_StatePictureIndexCol = as_Column
	Case "overlaypictureindex"
		inv_ds[ai_Level].i_OverlayPictureIndex = 0
		inv_ds[ai_Level].s_OverlayPictureIndexCol = as_Column
	Case Else
		Return -1
End Choose

Return 1

end function

Name	Owner
systemfunctions.lower	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upperbound	systemfunctions