>I've just tried it, but it slows down the grid and make some other visual oddities... So I would slick with my approach.

Nadya,
I tried with this additions :

*when
this.lInGrid = .T.
set cursor off
*init
WITH this
 IF !empty(.RecordSource)
   .nCurRec = recno(this.RecordSource)
 ENDIF
 .SetDynColors()
 .Setall('SelectOnEntry',.F.)
 .Setall('Sparse',.F.)
ENDWITH
*valid
this.lInGrid = .F.
set cursor on

Not a bit of slow down nor visual oddities.
Cetin