[Nicky]

Разобралась. Теперь бы еще вместе с иконкой данные выводить...

Код:

procedure TAnalysisOfTrans.cxGridDBBandedTableViewCustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
Var r           : TRect;
    iImageIndex : Integer ;
begin
  If (TcxGridDBBandedColumn(AViewInfo.Item) = cxGridDBBandedTableViewTEMP_OPEN) then
Begin

   If (AViewInfo.GridRecord.Values[cxGridDBBandedTableViewTEMP_OPEN.Index] > 0)
Then Begin
         iImageIndex := 0 ;
      End;

If (AViewInfo.GridRecord.Values[cxGridDBBandedTableViewTEMP_OPEN.Index] < 0)
      Then Begin
         iImageIndex := 1 ;
      End;

If (AViewInfo.GridRecord.Values[cxGridDBBandedTableViewTEMP_OPEN.Index] = 0)
      Then Begin
         iImageIndex := 2 ;
      End;

      R := AViewInfo.Bounds ;
      ACanvas.Brush.Color := AViewInfo.Params.Color;
      ACanvas.FillRect(R);

      // draw the image.
      R := AViewInfo.Bounds ;
      Inc(r.Top,1);
      ACanvas.DrawImage(ImageList1,r.Left,r.Top,iImageIndex,True);
      ADone := True ;
   End;


end;