DEFINE WINDOW oDtree TITLE "Mostrar menu de opciones como tree en XBrowse"
Apartir de que version de FWH trabaja oBrw:SetTree con xbrowse
Apartir de que version de FWH trabaja oBrw:SetTree con xbrowse
@ 0, 0 XBROWSE oBrw OF oDtree
oBrw:nMarqueeStyle = MARQSTYLE_HIGHLROW
oBrw:lHScroll := .f.
oBrw:SetTree( BuildTree(), { "menos", "mas", "si","no" } ) //Imagenes en un recurso
oBrw:aCols[ 1 ]:cHeader = "Opciones"
oBrw:CreateFromCode()
oDtree:oClient = oBrw
ACTIVATE WINDOW oDtree
[