tbrowse com array mudar cor

[Machado_s]

O meu Boa Noite. :xau

Estou precisando de uma força qto a este assunto, gostaria de exibir num tbrowse filtrado por um array uma cor diferente no campo autoriza.

no meu prg esta assim:
FrDados e o meu array;
[nPoint,6] e o campo autoriza.

/* Defino as colunas */
oCol6 := tbcolumnnew ("Aut",{ |x| iif ( x <> nil, FrDados[nPoint,6]:= x,IF(FrDados[nPoint,6]='S','Sim','Nao'))})

/* Cor na coluna liberação */
oCol6:colorblock:= {|| IIF(FrDados[nPoint,6]="S", {3,2},{4,2})}

no tbrowse neste campo aparece tudo preto. Alguem poderia me ajudar?
Infelizmente eu não tenho m+ pratica com o tbrowse.

Agradeço por qualquer ajuda.
O meu obrigado.

[]'s
Machado_s
dilsonmachado@hotmail.com.br
dsmac@orkut.com.br

"A força não provém da capacidade física e sim de uma vontade indomável". (Mahatma Gandhi)

Utilizando Clipper5.2e Blinker 7 Med

[Dudu_XBase]

Vc deve ter esquecido de definir as cores que serão utilizadas no tbrowse
no método colorspec

// Ng da Colorspec
http://www.clipx.net/ng/clguide/ng12a6e5.php

// Exemplo
oBrowse:colorspec := "w+/bg,n/w,n,n,w/b,r/b,gr+/b"

Cada conjunto de cores são separada pela virgula...
1 = "w+/bg"
2 = "n/w "
3 = "n"
4 = "n"
5 = "w/b"
6 = "r/b"
7 = "gr+/b"

Ae ficaria assim ..

Código: Selecionar todos

 oBrowse:colorspec     := "w+/bg,n/w,n,n,w/b,r/b,gr+/b"
 oBrowse :colsep        := chr (032) + chr (179) + chr (032)
 oBrowse:headsep       := chr (196) + chr (194) + chr (196)
 oBrowse:footsep       := chr (196) + chr (193) + chr (196)

 /* Define as colunas */
 oCol6 := tbcolumnnew ("Aut",{ |x| iif ( x <> nil, FrDados[nPoint,6]:= x,IF(FrDados[nPoint,6]='S','Sim','Nao'))}) 

 /* Cor na coluna liberação */
 oCol6:colorblock:= {|| IIF(FrDados[nPoint,6]="S", {7,6},{1})} 
  
 oBrowse:addcolumn(oCol6)
  
 

Se fosse o valor da Autorização for "S" aparecerá na cor amarela com fundo azul posição 7, e qdo essa célula for selecionada ficará vermelho com fundo azul posição 6 , então por isso {7,6}.

[Machado_s]

DUDU FUNCIONOU!! Maravilha.

Cara o meu m+ obrigado, não tenho palavras..
M+ agradecido mesmo.

Um abraço a todos

Machado_s
dilsonmachado@hotmail.com.br
ds_machado@ig.com.br

"Só o mais tolo e o mais sábio não mudam de opinião. Lembre-se: existe sempre alguém mais sábio que você".

Usando Clipper 5.2e Blinker 7 Med