Cor da Linha do Browse

A galera aqui é ligeira!!
obrigado pela resposta Baltazar, vou testar seu código para complemento, eu consegui uma solução aqui.
Aproveito para deixar um exemplo de browse zebrado.

Código:

PROCEDURE p-zebrar: /* procedure para colorir o browse */
/* brws = browse */

DEFINE VARIABLE linha AS ROWID.

OPEN QUERY suaquery PRESELECT EACH suatabela.

DISPLAY brws WITH FRAME frame_onde_está_o_browse.


FOR EACH SUATABELA NO-LOCK:

linha = ROWID(suatabela).

REPOSITION suaquery TO ROWID (linha).

     IF ocorrencia.codigo MOD 2 = 0 THEN DO: 
	ASSIGN 	
/******************** fundo da linha *************************/

	    suatabela.coluna1 :BGCOLOR IN BROWSE grid = 12 
            suatabela.coluna2 :BGCOLOR IN BROWSE grid = 12
            suatabela.coluna3 :BGCOLOR IN BROWSE grid = 12

/******************** fonte da linha *************************/

            suatabela.coluna1 :FGCOLOR IN BROWSE grid = 11 
            suatabela.coluna2 :FGCOLOR IN BROWSE grid = 11
            suatabela.coluna3 :FGCOLOR IN BROWSE grid = 11
     end.
END.