************** This line calls the function which returns the corresponding color store "my_color(BldMstr.RevLend,this.parent.GrdHglt1.nRecno, this.parent.GrdHglt1.cHighForeColor)" ; to thisform.grdBldMstr.ColStatus.dynamicforecolorand my_Color is a separate program (could be a form's method, obviously) with this code:
******************************************************************** * Description.......: my_Color - sets dynamic color for the grid * Calling Samples...: my_color(BldMstr.RevLend,this.parent.GrdHglt1.nRecno, this.parent.GrdHglt1.cHighForeColor) * Parameter List....: tcValue, tnRecno, tcRecordHighLightColor * Created by........: * Modified by.......: Nadya Nosonovsky 05/09/2001 11:41:58 AM ******************************************************************** lparameter tcValue, tnRecno, tcRecordHighLightColor local lnColor do case case m.tcValue = "E" && Edited lnColor = rgb(255,0,0) && Red case m.tcValue = "A" && Accepted lnColor = rgb(0,0,255) && Blue RGB(64,128,128) && Green otherwise lnColor = rgb(255,255,255) && Black endcase return iif(m.tnRecno = recno(), eval(m.tcRecordHighLightColor), m.lnColor)