Разноцветные ячейки в DBGRID. Проблема...

← →
SergP © (2004-04-05 14:04) [0]

Делаю приблизительно так:

procedure TFormUsers.DBGrid1DrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin

if (Field.FieldName = "regtime") and (Field.AsInteger>1080000000)then
begin
DBGrid1.Canvas.Brush.Color := clRed;
DBGrid1.Canvas.Font.Color := clblue;
end;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

В обычном варианте работает, но если я в DBGRID создаю columns"ы, чтобы отображать только те поля которые я хочу и задать некоторые другие параметры (например ширину ячейки и пр.), то этот код вообще не действует.
Что делать в таком случае? Как сделать чтобы работало?

← →
Vlad © (2004-04-05 14:07) [1]

> SergP © (05.04.04 14:04)

Пользуйся OnDrawColumnCell

> но если я в DBGRID создаю columns"ы

как?

Разноцветные ячейки в DBGRID. Проблема... Найти похожие ветки