Текущий архив: 2003.08.28;
Скачать: CL | DM;

Вниз

Как изменить цвет одной ячейки в DBGrid   Найти похожие ветки 

← →
murtazi   (2003-08-01 17:20) [0]

Как изменить цвет одной ячейки в DBGrid

---

← →
horse ©   (2003-08-01 17:59) [1]

Изменит все ячейки поля FieldName, значения к-рых < 0


procedure ToRest.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin

if Column.FieldName = "FieldName" then
if Column.Field.AsFloat < 0 then
( Sender) Изменит все ячейки поля FieldName, значения к-рых < 0


procedure ToRest.DBGridEh1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
begin

if Column.FieldName = "FieldName" then
if Column.Field.AsFloat < 0 then
TDBGridEh(Sender).Canvas.Brush.Color := clRed;

TDBGridEh(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);

end;

---

← →
murtazi   (2003-08-01 18:11) [2]

Большое Спасибо!

---

← →
ulyanitsky ©   (2003-08-01 20:07) [3]

А в стандартном DBGRID как?

---

← →
Hawk2   (2003-08-01 23:49) [4]

Также, только событие будет называться DBGrid1DrawColumnCell и т.д.

---

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

Текущий архив: 2003.08.28;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.008 c