Colorear celdas de TxBrowse()

[Rafael Clemente]

Tengo un TxBrowse() con unas 60 columnas y 30 líneas. Los campos de la DBf se llaman "D01012006", "D02012006" etc... Como se ve, esos nombres se derivan de fechas, o sea, que son variables. La próxima vez que corra el programa pueden ser "D01042006", "D02042006", etc...

Me gustaría colorear el fondo de ciertas casillas de rojo o azul, según cumplan ciertas condiciones. Por ejemplo, las casillas > 1000 en rojo y las demás, en azul... El problema es que el no saber de antemano los nombres de las columnas, no puedo leer el campo directamente, sino utilizando (alias())->(Fieldget())

Lo mejor que he conseguido hasta ahora es:

Code: Select all  Expand view  RUN

   
   FOR i := 1 TO 60
          oBrw:aCols[i]:bClrStd := {|| {CLR_WHITE, iif(fieldget(i) < 1000, CLR_BLUE, CLR_RED}
   NEXT


Pero esto me pone en color rojo o azul TODA la columna, no sólo la casilla que quiero. ¿Alguien podría darme un ejemplo de cómo hacerlo, por favor?

Gracias,

Rafael

[Rafael Clemente]

_:
Funciona! Muchas gracias!
Saludos,
Rafael