FoxPro/Visual FoxPro - Cambiar el color a celdas

   
Vista:

Cambiar el color a celdas

Publicado por Carlos (27 intervenciones) el 22/10/2007 19:54:16
Muy buenas como puedo hacer que una determinada fila de una grid cambie de color si es que he activado un checkbox en esa misma fila
De antemano muchas 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

RE:Cambiar el color a celdas

Publicado por Ernesto Hernandez (4632 intervenciones) el 22/10/2007 19:59:48
Public oForm
oForm = Createobject("myForm")
oForm.Show()

Define Class myForm As Form
DataSession = 2
Height = 400
Width = 600

Add Object myGrid As Grid With ;
Height = 400, Width = 600, RecordSource="employee"

Procedure Load
OPEN DATABASE (HOME(2)+"\data\testdata.DBC")
Use employee
Endproc

Procedure Init

This.MyGrid.SetAll("DynamicBackColor","Thisform.MyColorByYear(birth_date)","Column")
Endproc

PROCEDURE myColorbyYear
LPARAMETERS tdBirthDate
lnColor = 0xFFFFFF && Blanco por default
lnAnnios = YEAR(DATE())-YEAR(tdBirthDate)
DO CASE
CASE BETWEEN(lnAnnios,20,40)
lnColor = RGB(100,100,150)
CASE BETWEEN(lnAnnios,41,45)
lnColor = RGB(255,255,0)
CASE BETWEEN(lnAnnios,46,50)
lnColor = RGB(255,100,0)
CASE BETWEEN(lnAnnios,51,60)
lnColor = RGB(255,0,0)
CASE BETWEEN(lnAnnios,61,90)
lnColor = RGB(0,255,0)
ENDCASE

RETURN lnColor
ENDPROC
PROCEDURE Unload
CLOSE TABLES ALL
CLOSE DATABASES ALL
ENDPROC
Suerte

Enddefine
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