При отрисовке не отображаются картинки

[artemavd]

Добрый день!
Вот есть код, который раскрашивает, в зависимости от значения:

procedure TForm_Main.DOPBALANSESDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer;
  Column: TColumnEh; State: TGridDrawState);
begin
 if Column.Field.Dataset.FieldbyName('SMB').AsInteger = 0 then
 begin
  if (gdFocused in State) then
      Form_Main.DOPBALANSES.Canvas.Font.Color := clGreen //имеет фокус
  else
   Form_Main.DOPBALANSES.Canvas.Font.color := clGreen;  //не имеет фокуса
   Form_Main.DOPBALANSES.DefaultDrawColumnCell(Rect,DataCol,Column,State)
 end
 else
 begin
   if (gdFocused in State) then
      Form_Main.DOPBALANSES.Canvas.Font.Color := clRed //имеет фокус
    else
    Form_Main.DOPBALANSES.Canvas.Font.color := clRed;  //не имеет фокуса
    Form_Main.DOPBALANSES.DefaultDrawColumnCell(Rect,DataCol,Column,State)
 end;
end;

Проблема в том, что в некоторых колонках у меня отображаются картинки. И они отображаются, если не активен этот код отрисовки.
Как сделать, чтобы картинки отображались? Может обновлять что-то надо?

[mihail4]

...в коде отрисовки проверяй значение свойства ImageIndex<>-1 ячейки (колонки) и запрещай перерисовку для этой ячейки. Либо продолжай отрисовывать, но уже соответствующий битмап (из imagelist-a) на канвасе через Draw() например. Первое быстрее.