************************************************** >>*-- 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