FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Colorear celdas de TxBrowse()
Posts: 365
Joined: Sat Oct 08, 2005 07:59 PM
Colorear celdas de TxBrowse()
Posted: Sat Apr 29, 2006 04:48 PM
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:

   
   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
Posts: 365
Joined: Sat Oct 08, 2005 07:59 PM
Colorear celdas de TxBrowse()
Posted: Sat Apr 29, 2006 08:08 PM

Oskar:
Funciona! Muchas gracias!
Saludos,
Rafael

Continue the discussion