RE:Cambiar el color a celdas
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