[gebs]

Здравствуйте! Есть DBGrid на событиия OnDrowColumnCell вот такой код:

Код:

if column.fieldname = 'status' then
if (column.field.asstring = 'да') then begin
with DBGridEh_znp.Canvas do begin
  Brush.Color:=cllime;
  Font.Color:=cllime;
  FillRect(Rect);
  TextOut(Rect.Left+2, Rect.Top+2, Column.Field.Text);
 end;
end;

if column.fieldname = 'status' then
if (column.field.asstring = 'нет') then begin
with DBGridEh_znp.Canvas do begin
  Brush.Color:=clred;
  Font.Color:=clred;
  FillRect(Rect);
  TextOut(Rect.Left+2, Rect.Top+2, Column.Field.Text);
 end;
end;

Хочется сделать так чтобы при изменении значения соседней ячейки (отличное от '') менялся цвет колонки status на cllime.

Есть соображение, но оно не работает:

Код:

if (DbGridEh_znp.Columns[22].FieldName <> '') then
DbGridEh_znp.Columns[23].FieldName:= 'да';