Скачать: CL | DM;

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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.032 c