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

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

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

← →
Anatoly Podgoretsky © (2010-09-10 09:42) [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;

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