FoxPro/Visual FoxPro - Colores Grid

 
Vista:
sin imagen de perfil

Colores Grid

Publicado por Carlos AC (141 intervenciones) el 26/08/2011 16:12:20
Hola amigos... tengo un codigo que consegui de www.codefox.net; es para colorear un grid de varias formas; pero por favor alguien me podria decir donde lo pongo???

appo = THISFORM.grdempleado

*----------------------------------------------------
appo.SetAll("dynamicbackcolor", "", "Column")
appo.SetAll("dynamicforecolor", "", "Column")

&& Sirve para dar color al grid por medio a las filas
appo.SetAll("dynamicbackcolor", ;
"IIF(RECNO()%2 = 0,RGB(255,255,0), RGB(255,255,255))", "Column")

*----------------------------------------------------
&&Para darle color al grid segun condicion
appo.SetAll("dynamicforecolor", ;
"IIF(edad > 19, RGB(255,255,255), RGB(0,0,0))", "Column")
appo.SetAll("dynamicbackcolor", ;
"IIF(edad > 19, RGB(255,0,0), RGB(255,255,255))", "Column")
*----------------------------------------------------

&&darle color como el juego de agredres
appo.SetAll("dynamicforecolor", "RGB(255,255,255)", "Column")
FOR i = 1 TO appo.ColumnCount
IF i % 2 = 0
appo.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(255,010,0), RGB(100,0,0))"
ELSE
appo.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(100,0,0), RGB(255,010,0))"
ENDIF
ENDFOR
*----------------------------------------------------

appo.Refresh

&& foxjose
&& http://foxjosejoya.galeon.com

GRACIAS...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Colores Grid

Publicado por es_binario (757 intervenciones) el 26/08/2011 16:36:46
ponlo en el evento init del grid
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar