Уже много раз обсуждалась возможность подсветки строки в Grid. И, как правило, это делается с помощью свойства, добавляемого в форму. Так вот у этого класса это свойство заделано прямо в grid, что очень удобно, когда у вас в форме больше одного grid. Да еще у этого класса автоматом расширяется колонка column1, в зависимости от толщины вертикальной полосы прокрутки. Это сделано, чтобы все колонки влезали (и как следствие, грид не прыгал, когда встаешь на последнюю его колонку). Код, конечно не очень сложный, но довольно удобный.
Красиво и просто!
Если можно - из личного опыта:
1) в AfteRowColChange:
LPARAMETERS nColIndex
IF this.nRecNo = RECNO()
RETURN && Чтобы не обновлять при смене только колонки
ENDIF
** а далее как у Вас
this.nRecNo = RECNO()
this.refresh
2) так как Refresh Grid'а может произойти, когда активен другой Alias (например по Refresh формы)
в Init:
THIS.nRecno = RECNO(This.RecordSource)
THIS.SETALL("dynamicbackcolor", "IIF(RECNO(This.RecordSource) = THIS.nRecno, RGB(220,220,220),
RGB(255,255,255))", "COLUMN")
LOCAL i, nWIDTH && Далее как у Вас
Конференция
