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

зачеркивание в DBGrid   Найти похожие ветки 

← →
6ruse   (2010-09-10 09:02) [0]

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

---

← →
Anatoly Podgoretsky ©   (2010-09-10 09:42) [1]

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

---

← →
12 ©   (2010-09-10 09:47) [2]

так примерно

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;

---

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

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



Память: 0.45 MB
Время: 0.005 c