Colorear celdas de TxBrowse()

Colorear celdas de TxBrowse()

Postby Rafael Clemente » Sat Apr 29, 2006 4: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:

Code: Select all  Expand view
   
   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
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain

Postby Rafael Clemente » Sat Apr 29, 2006 8:08 pm

_:
Funciona! Muchas gracias!
Saludos,
Rafael
User avatar
Rafael Clemente
 
Posts: 365
Joined: Sat Oct 08, 2005 7:59 pm
Location: Barcelona, Spain


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 45 guests