Testei aki Rubens e não deu certo, fica pintando a tela...
Simplifiquei um pequeno exemplo (troque a tabela DBF por qualquer outra sua e altere os 4 campos respectivamente)
Procedure tbrwcolor
Local TelAbcf:=SaveScreen(0,0,24,79), AREA:=ALIAS()
LOCAL oTbr := TBrowseDB( 03, 01, 21, 78 ), oTbc1, oTbc2, oTbc3, oTBC4
LOCAL aWst, lExt, nInd, nLin, nCol, nTbrLin, nTbrCol
Local nKey
LOCAL aFiles[1]
LOCAL nPos := 0
LOCAL Continua
set cursor off
set scoreboard off
use tabela alias tabela shared new
dbsetindex('tabela')
oTbc1 := TBColumnNew( "Descricao" , { || (left(alltrim(Tabela->MED_DES),19) + " " + upper(left(alltrim(Tabela->MED_APR),20))) } )
oTbc2 := TBColumnNew( "Laboratorio" , { || left(alltrim(Tabela->LAB_nom),12) } )
oTbc3 := TBColumnNew( "Principio Ativo", { || left(Tabela->Med_princi,25) } )
oTBC4 := TBColumnNew( "Pre‡o Ven" , { || If((Tabela->MED_fra17>0),transform(Tabela->Med_fra17,"@E 99,999.99"),transform(Tabela->Med_PCO17,"@E 99,999.99")) } )
oTbc1:Width := 35
oTbr:colSep := " ³ "
oTbr:headSep := "Ä"
oTbr:addColumn( oTbc1 )
oTbr:addColumn( oTbc2 )
oTbr:addColumn( oTbc3 )
oTbr:addColumn( oTBC4 )
oTbr:Freeze := 2
@0,0 clear to 24,79
Abrebox(00,00,24,79,frame2, vcn,,vcr, .T.)
lExt := .F.
oTbr:COLORSPEC:="W/B,B/W,N/W,W/N,R/W,W+/R,W/G,R+/B" // Sugerido Rubens
Continua=" "
WHILE !lExt
WHILE !oTbr:stabilize() ; END
nKey:= inkey(0)
/* Trecho sugerido Rubens */
oTbr:colorRect( { oTbr:rowPos, oTbr:freeze + 1, oTbr:rowPos, oTbr:colCount }, {2,2})
oTbr:hilite()
*--
if nKey == K_ESC
oTbr:refreshall()
oTbr:gotop() // no arquivo indexado
lExt := .T.
ElseIf nKey == K_DOWN ; oTbr:down()
ElseIf nKey == K_UP ; oTbr:up()
ElseIf nKey == K_PGDN ; oTbr:pageDown()
ElseIf nKey == K_PGUP ; oTbr:pageUp()
ElseIf nKey == K_CTRL_PGUP ; oTbr:goTop()
ElseIf nKey == K_CTRL_PGDN ; oTbr:goBottom()
ElseIf nKey == K_RIGHT ; oTbr:right()
ElseIf nKey == K_LEFT ; oTbr:left()
ElseIf nKey == K_HOME ; oTbr:home()
ElseIf nKey == K_END ; oTbr:end()
ElseIf nKey == K_CTRL_LEFT ; oTbr:panLeft()
ElseIf nKey == K_CTRL_RIGHT ; oTbr:panRight()
ElseIf nKey == K_CTRL_HOME ; oTbr:panHome()
ElseIf nKey == K_CTRL_END ; oTbr:panEnd()
Endif
END
FechaArea('Tabela')
DBSELECTAREA( SELECT( AREA ) )
RestScreen(s_geral,TelAbcf)
Return