************************************************** >>>*-- Class: highlighted (d:\vfpclasses\grids.vcx) >>>*-- ParentClass: grid >>>*-- BaseClass: grid >>>*-- Current row highlighted grid. >>>* >>>DEFINE CLASS highlighted AS grid >>> >>> Height = 200 >>> Width = 320 >>> ccurrecbackcolor = (RGB(0,0,255)) >>> ccurrecforecolor = (RGB(255,255,0)) >>> PROTECTED lingrid >>> lingrid = .T. >>> ncurrec = .F. >>> Name = "highlighted" >>> >>> *-- Refresh when recpointer moves. For calling outside of grid. >>> PROCEDURE recchange >>> This.nCurRec = recno() >>> This.refresh >>> ENDPROC >>> >>> PROCEDURE When >>> this.lInGrid = .T. >>> ENDPROC >>> >>> PROCEDURE Valid >>> this.lInGrid = .F. >>> ENDPROC >>> >>> PROCEDURE Init >>> WITH this >>> IF !empty(.RecordSource) >>> .nCurRec = recno(this.RecordSource) >>> .SetAll("DynamicBackColor", "IIF(RecNo(This.RecordSource) = This.nCurRec," + ; >>> str(this.cCurRecBackColor)+","+str(this.BackColor)+")", "Column") >>> .SetAll("DynamicForeColor", "IIF(RecNo(This.RecordSource) = This.nCurRec," + ; >>> str(this.cCurRecForeColor)+","+str(this.ForeColor)+")", "Column") >>> ENDIF >>> ENDWITH >>> ENDPROC >>> >>> PROCEDURE BeforeRowColChange >>> LPARAMETERS nColIndex >>> thisform.LockScreen = this.lInGrid >>> ENDPROC >>> >>> PROCEDURE AfterRowColChange >>> LPARAMETERS nColIndex >>> this.nCurRec = recno(This.RecordSource) >>> thisform.LockScreen = .F. >>> IF !this.lInGrid >>> this.refresh() >>> ENDIF >>> ENDPROC >>> >>> >>>ENDDEFINE >>>* >>>*-- EndDefine: highlighted >>>**************************************************Cetin