achei isso !
Private aBrowse := {}, oBrowse
oBrowse := tBrowseDb(07, 01, 20, 75) && Cria Obj tBrowse
oColuna := tbColumnNew(HB_ANSITOOEM('Código'),{|| GRU->CODGRU })
oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) }) &&<----------------------
oBrowse:addColumn(oColuna) &&"N/W,R+/B,N/N,N/N,R+/W"
oColuna := tbColumnNew(HB_ANSITOOEM('Descrição'),{|| GRU->DESGRU })
oBrowse:addColumn(oColuna)
oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) }) &&<----------------------
oColuna := tbColumnNew('Quantidade',{|| trans(GRU->QTEGRU,"9999999") })
oBrowse:addColumn(oColuna)
oColuna:colorblock({ || IIF(GRU->QTEGRU < 0, {05,14} , {1,2} ) }) &&<----------------------
oBrowse:HeadSep := chr(196)
oBrowse:ColSep := chr(179)
oBrowse:Freeze := 1
oBrowse:colorSpec := "00/07,15/03,14/07,15/06,01/07,15/01,02/07,15/02,05/07,15/05,00/07,15/00,08/07,08/07" &&<----------------------
oBrowse:RefreshAll()
mas estou perdido nas cores ! oq siginifica esse padrao
{05,14} , {1,2}e esses
"00/07,15/03,14/07,15/06,01/07,15/01,02/07,15/02,05/07,15/05,00/07,15/00,08/07,08/07" ?