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

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

← →
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 и т.д.

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