| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

зачеркивание в DBGrid

6ruse ©   (2010-09-10 09:02:00) 

Доброго времени суток! у меня такая проблема. Нужно зачеркнуть строку DBGrida отвечающию какому либо условию. Например если поле ID = 1 тогда строка зачеркивается а если не равно 1 тогда не зачеркивается.

---

12   (2010-09-10 09:47:00) [1]

так примерно

procedure TfrmContract.gdContract onDrawCell
....
begin
...
 dt := gdContract.DataSource.DataSet.fieldbyName('DATE_END').AsDateTime;
 if int(dt) < int(now) + 1  then
         begin //Просрочены
           gdContract.Canvas.Brush.Color := clRed;
           gdContract.defaultdrawcolumncell(rect, datacol, column, state);
           Exit;
         end;

 if int(dt) < int(now) + 7 then
         begin // скоро просрочатся
             gdContract.Canvas.Brush.Color := clYellow;
             gdContract.defaultdrawcolumncell(rect, datacol, column, state);
             Exit;
         end;
 // нормальные
 gdContract.Canvas.Brush.Color := clLime;
 gdContract.defaultdrawcolumncell(rect, datacol, column, state);
end;

---

Anatoly Podgoretsky   (2010-09-10 09:42:00) [2]

Ну раз нужно, то зачеркивай.

---

Наверх