Highlighting grid textbox when clicking

[superfloors]

I would like some of my grids to function so that when I click on a particular cell, the text in that cell is highlighted. Currently, when I click in a cell the cell is selected but the cursor shows up in the middel of the text.

 

[ChrisRChamberlain]

superfloors

This subject has been recently covered in thread184-41469

One way is to add a new form property called .nRecordNo

In the .Init event of grid1 put:-

THISFORM.nRecordNo = RECNO(

)

WITH THIS
.SetAll([DynamicBackColor],"IIF(RECNO(

)=THISFORM.nRecordNo,RGB(0,0,128),RGB(255,255,255))",[Column])
.SetAll([DynamicForeColor],"IIF(RECNO(

)=THISFORM.nRecordNo,RGB(255,255,255),RGB(0,0,0))",[Column])
.Refresh()
ENDWITH

In the .AfterRowColChange event of grid1 put:-

WITH THISFORM
.nRecordNo = RECNO(

)
.grid1.Refresh()
ENDIF

Hope this helps

Chris