Tendria la misma funcionalidad que el metodo Add de la clase tTvItem
Code: Select all
CLASS TTreeView FROM TControl
...
METHOD Add( cPrompt, nImage , Cargo)
...
METHOD Add( cPrompt, nImage, Cargo ) CLASS TTreeView
local oItem
oItem := TTVItem():New( TVInsertItem( ::hWnd, cPrompt,, nImage ), Self )
oItem:cPrompt := cPrompt
oItem:nImage := nImage
oItem:Cargo := Cargo //<===
AAdd( ::aItems, oItem )
return oItem