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

Разноцветные ячейки в 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

---

← →
Соловьев ©   (2004-04-05 14:08) [2]

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

как?

---

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

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



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