Как вывести картинку в ячейку cxGrid

... 
  Images: TImageList; 
... 

procedure TMain.Grid1TableView1Column1CustomDrawCell( Sender: TcxCustomGridTableView; 
                  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; 
                  var ADone: Boolean); 
var 
  Rect:TRect; 
  Pic:TBitmap; 
  S:String; 
  I,J,K:integer; 
begin 
    // берём границы ячейки 
  Rect:=AViewInfo.Bounds; 
    // Заполняем фон 
  ACanvas.FillRect(Rect,clWhite); 
    // Как-то формируем картинку 
  Pic := TBitmap.Create; 
  try
    Images.GetBitmap(PicIndex, Pic); 
      // Выводим картинку 
    ACanvas.Draw(Rect.Left+I*17, Rect.Top, Pic); 
  finally
    Pic.Free; 
  end;
    // Сообщаем, что ячейка дорисована полностью 
    // и собственному рисователю cxGrid ничего доделывать не нужно.
  ADone := True; 
end;
Метки: