| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как изменить цвет строки в DBgrid? [D6, Win2k, WinXP]

Levsha ©   (2002-12-09 22:44:00) 

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

---

Наталия   (2002-12-10 06:58:00) [1]

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

---

Levsha   (2002-12-10 06:48:00) [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;

---

Shrek   (2002-12-10 04:38:00) [3]

сер почаще нажимайте 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;

---

Наверх