Форум: "Основная";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Вниз
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 вся ветка
Форум: "Основная";
Текущий архив: 2005.11.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c
