Pintar Célula, Linha ou Coluna

Boa Tarde
Por Favor, será que alguém pode me ajudar na questão abaixo:

Preciso que o sistema pinte uma coluna, linha ou célua conforme o valor da mesma.
Exemplo:
Se o valor for maior que 60 pinte de azul
Se o valor for menor que 60 pinte de vermelho.

Pode ser para pintar o fundo ou a letra, para destacar o valor.

Desde já agradeço

Código:

DEFINE VARIABLE HCOLUNA AS HANDLE.
HCOLUNA = BROWSE NOME-DO-SEU-BROWSE:GET-BROWSE-COLUMN(X).
IF HCOLUNA:INPUT-VALUE > 60 THEN HCOLUNA:BGCOLOR = 10.
ELSE HCOLUNA:BGCOLOR = 7.

Legal,funciona,
mas ele está pintando so a linha selecionada quando clico no botão
então seleciona outra linha, clico no botão ai ele marca.

O que está faltando?
Em qual evento devo usar esse código?


Desde já agradeço

Coloque no ROW-DISPLAY.
E no MOUSE-SELECT-CLICK coloque "NOME DO BROWSE:REFRESH()".
Att,

Diogo

Desculpa, mas estou começando com progress agora

não deu certo, acho que fiz algo errado
olha o que fiz:

Selecionei o Browser e coloquei o código abaixo no enveto Row-Display:
DO:
DEFINE VARIABLE HCOLUNA AS HANDLE.
HCOLUNA = BROWSE-2:GET-BROWSE-COLUMN(1).
IF int(HCOLUNA:INPUT-VALUE) < 10 THEN HCOLUNA:BGCOLOR = 10.
ELSE HCOLUNA:BGCOLOR = 7.
END.

ao executar ele gera a mensagem abaixo:
GET-BROWSE-COLUMN não pode ser lido dentro de um trigger de ROW-DISPLAY para BROWSE BROWSE-2.(5906)

O que eu fiz de errado?

Tente assim dentro do ROW-DISPLAY

Código:

 IF Tabela.campo < 60 THEN 
   Tabela.campo:bgcolor IN BROWSE NomeBrowse = 10 .
 ELSE
   Tabela.campo:bgcolor IN BROWSE NomeBrowse = 7 .