delphi DrawGrid 이미지 삽입하기

TImageList 만들고 이미지등록.

 

그리드 DrawCell이벤트 선언

 

procedure aaa.grdItemsDrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var
  aCanvas: TCanvas;
  bitmap: TBitmap;

begin

 

  aCanvas := (Sender as TUDrawGrid).Canvas;

  aCanvas.FillRect(Rect);

 try
    bitmap := TBitmap.Create;
    imgList.GetBitmap(0, bitmap);
    aCanvas.Draw(Rect.Left + (grdItems.ColWidths[ACol] div 2) - (bitmap.Width div 2), Rect.Top + 3, bitmap);
  finally
      bitmap.Free;
  end;