pfc_itemexpanding

pfcapsrv.pbl   >   pfc_n_cst_tvsrv_levelsource   >   pfc_itemexpanding

Name	Datatype
li_rc	Integer
ltvi_This	TreeViewItem

event pfc_itemexpanding;call super::pfc_itemexpanding;//////////////////////////////////////////////////////////////////////////////
//
//	Event:		pfc_ItemExpanding
//
//	Arguments:
//	al_handle	handle of the item being expanded
//
//	Returns:		Long
//					 1 = success
//					-1 = failure
//
//	Description:	If this is the first time the item is expanded, 
//						call pfc_PopulateLevel to populate it with its children.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	6.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.
//
//////////////////////////////////////////////////////////////////////////////
Integer			li_rc
TreeViewItem	ltvi_This

If IsNull(itv_requestor) or Not Isvalid(itv_requestor) then Return -1

If itv_requestor.FindItem(ChildTreeItem!, al_handle) = -1 Then
	// No children, so populate
	if itv_requestor.GetItem(al_handle, ltvi_This) = 1 then
		li_rc = itv_requestor.event pfc_Populate(al_handle)
		If li_rc < 1 Then
			// nothing populated, so we have no children on this item
			ltvi_This.Children = False
			itv_requestor.SetItem(al_handle, ltvi_This)
		End if
	End if
End If

Return 1
end event

Name	Owner
pfc_u_tvs.itemexpanding	pfc_u_tvs

Name	Owner
treeview.finditem	treeview
treeview.getitem	treeview
treeview.setitem	treeview
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
pfc_u_tvs.pfc_populate	pfc_u_tvs