I need to change the contents of a cell of the Tree / xBrowse. Can anyone tell me how to do it?
- Code: Select all Expand view
REDEFINE XBROWSE oLbx ID 102 OF oDlg LINES CELL
oLbx:SetTree( BuildTree(self,oItem), { "FLDOPEN","FOLDER", "16FRM" } )
ADD TO oLbx DATA oLbx:oTreeItem:Cargo[ 1 ] HEADER "Conteúdo"
STATIC FUNCTION BuildTree(oRpt,oItem)
LOCAL oTree
TREE oTree
_TreeItem( "Item" ):Cargo := { "",0 }
TREE
_TreeItem( "Conteúdo" ):Cargo := { oItem:cCaption,01 }
_TreeItem( "Tipo" ):Cargo := { oItem:cTipo ,02 }
_TreeItem( "Tamanho" ):Cargo := { oItem:nTamanho,03 }
_TreeItem( "Classifica" ):Cargo := { oItem:lIndex ,04 }
_TreeItem( "Quebra" ):Cargo := { oItem:cQuebra ,05 }
_TreeItem( "Resume" ):Cargo := { oItem:lResume ,06 }
_TreeItem( "Totaliza" ):Cargo := { oItem:lTotal ,07 }
ENDTREE
ENDTREE
oTree:Expand()
RETURN oTree