>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 > Use employee > Endproc > > Procedure Init > For Each oColumn In This.myGrid.Columns > oColumn.DynamicBackColor = ; > "thisform.MyColColor(["+oColumn.ControlSource+"])" > Endfor > Endproc > > Procedure myColColor > Lparameters tcControlSource > Local luValue, lnColor > lnColor = 0xFFFFFF && default white > If Type(m.tcControlSource) = 'G' > Return m.lnColor > Endif > luValue = Evaluate(m.tcControlSource) > Do Case > Case Lower(m.tcControlSource) = "employee.title" > If Lower(m.luValue) = "sales manager" > lnColor = Rgb(255,255,0) > Endif > Case Lower(m.tcControlSource) = "employee.birth_date" > If Year(luValue) % 2 = 0 > lnColor = Rgb(0,255,255) > Endif > Endcase > Return m.lnColor > Endproc >Enddefine >Cetin