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