Форум: "Базы";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Вниз

DBGrid   Найти похожие ветки 

← →
DmitryA   (2001-12-17 15:43) [2]

Все очень просто. Создайте свою обработку события DrawColumnCell, и впишите туда:

procedure TForm.PresDBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var voBrushColor: TColor;
begin
if gdFocused in State then exit;

voBrushColor := DBGrid.Canvas.Brush.Color;

if (Column.Field = TableField) then // отследить нужную колонку
if (TableFirls.AsFloat > 0) then // отследить нужное значение
DBGrid.Canvas.Brush.Color := clAqua; // или другой цвет по выбору

DBGrid.DefaultDrawColumnCell(Rect, DataCol, Column, State);
DBGrid.Canvas.Brush.Color := voBrushColor;
end;

---

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

Форум: "Базы";
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c