dbgrid и defaultdrawing

← →
Ugrael © (2005-11-03 11:36) [0]

Доброго времени суток.
Есть база. есть форма для вывода ( dbgrid ).
Есть необходимость при значении поля p1=4 ( в dbgrid не выводится ) пометить или всю строку или определенную ячейку красным цветом.
Что делаю: у dbgrid defaultdrawing=false. в событие OnDrawDataCell пишу такой код
if (glav.RegDataSet.FieldByName("pol_stat").AsString="4")or(glav.RegDataSet.FieldByName("pol_stat").AsString="5") then
glav.RegDBGrid.Canvas.Font.Color := clRed;
glav.RegDBGrid.DefaultDrawDataCell(Rect,Field,State);
и ничего не происходит....

← →
Плохиш © (2005-11-03 11:52) [1]

Значит условие не выполняется.

PS. На будущее:
1. Указатель на перерисовываемый грид передаётся в параметре Sender
2. Указатель на экземпляр формы, для которой вызван метод, находится в переменной Self.

dbgrid и defaultdrawing Найти похожие ветки