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

Как изменить цвет строки в DBgrid?   Найти похожие ветки 

← →
Levsha   (2002-12-09 22:44) [0]

и вообще возможно ли это?
если невозможно то хотябы подскажите другой вариант спасибо

---

← →
Shrek ©   (2002-12-10 04:38) [1]

сер почаще нажимайте F1.
прямо из хелпа

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

begin
if Table1.FieldByName("Size").AsFloat > 10 then
DBGrid1.Canvas.Font.Color := clRed;
DBGrid1.DefaultDrawDataCell(Rect, Field, State);
end;

---

← →
Levsha   (2002-12-10 06:48) [2]

А ты сам хоть раз пробовал это реализовать?
чтото у меня не пашет :(

procedure TMainAppForm.dbgActiveOrdersDrawDataCell(Sender: TObject;
const Rect: TRect; Field: TField; State: TGridDrawState);
begin
if DM.IBDataSet.FieldByName("DEADLINE_DATE").AsDateTime <= Now then
dbgActiveOrders.Canvas.Font.Color := clRed;
dbgActiveOrders.DefaultDrawDataCell(Rect, Field, State);
end;

---

← →
Наталия ©   (2002-12-10 06:58) [3]

Этот код опробован многократно :), так что проблема только в тебе. Может, у тебя условие не выполняется.

---

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

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



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