FiveTech Software tech support forums

Olá a todos !!!

Como posso definir cores diferentes para o Item e Subitem no xBrowse c/Tree, por exemplo vermelho no item e verde nos subitens.

DEFINE DIALOG oWnd RESOURCE "TEST"
//
oBrw:= TXBrowse():New( oWnd )
oBrw:CreateFromResource( 1000 )
oBrw:nColDividerStyle := 5 //LINESTYLE_BLACK // COLUNAS
oBrw:lColDividerComplete := .T.
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW // BARRA COMPLETA
oBrw:bClrHeader := {|| { nrgb(000,069,102), } } // COR DO TEXTO DA HEADER
oBrw:nHeaderHeight :=30 // ALTURA DA HEADER
oBrw:oFont := oFont // DEFINE A FONTE
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:nRowHeight := 20
//
oBrw:SetTree( BuildTree(), { "IMG1", "IMG2", "IMG3" } )
//
aCol[1] := oBrw:AddCol()
aCol[1]:nWidth := 50
aCol[1]:bStrData := { || oBrw:oTreeItem:Cargo[ 1 ]}
aCol[1]:cHeader := "Código"
aCol[1]:nDataStrAlign := AL_CENTER
aCol[1]:nHeadStrAlign := AL_CENTER
aCol[1]:bClrSel :=nrgb(255,0,0)
//
ADD TO oBrw DATA oBrw:oTreeItem:Cargo[ 2 ] HEADER "First"

ACTIVATE WINDOW oWnd

return nil

Obrigado a todos e um abraço !!

Sergio....