Acerca de colores en GRID

JARRE
15 de Julio del 2003
En un GRID, como puedo poner unas lineas de un color, y otras lineas de otro. por ejemplo.
en un GRID de inventarios, que me aparezcan con fondo azul los que estan en existencia, y en rojo los que no tengo en existencia. muchas gracias

Alex
15 de Julio del 2003
Existen muchas formas de hacerlo.
Te doy un ejemplo relativamente sencillo
Utilizamos un combo, Style "Lista desplegable"

En el evento InteractiveChange de ese objeto agregamos:


oGrd = THISFORM.Grid1

oGrd.SetAll("dynamicbackcolor", "", "Column")
oGrd.SetAll("dynamicforecolor", "", "Column")

DO CASE
CASE THIS.Value = 1 && en existencia
oGrd.SetAll("dynamicforecolor", ;
"IIF(cod_exist=2, RGB(255,255,255), RGB(0,0,0))", "Column")
oGrd.SetAll("dynamicbackcolor", ;
"IIF(cod_exist=2, RGB(0,64,128), RGB(255,255,255))", "Column")

CASE THIS.Value = 2 && sin existencia
oGrd.SetAll("dynamicforecolor", ;
"IIF(cod_exist=1, RGB(255,255,255), RGB(0,0,0))", "Column")
oGrd.SetAll("dynamicbackcolor", ;
"IIF(cod_exist=1, RGB(255,0,0), RGB(255,255,255))", "Column")

ENDCASE
oGrd.Refresh


En el evento Init del form, tengo declarado los valores de ese combo de la siguiente manera:

#DEFINE ITEM1_LOC "Todos"
#DEFINE ITEM2_LOC "En Existencia"
#DEFINE ITEM3_LOC "Sin existencia"

THIS.AddItem(ITEM1_LOC)
THIS.AddItem(ITEM2_LOC)
THIS.AddItem(ITEM3_LOC)

THIS.ListIndex = 1

Espero que te sirva de ayuda.

Saludos