
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...
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


0