delphi

DrawGridにImageListの画像を表示させる

  procedure TForm1.DrawGrid1DrawCell( Sender : TObject ; ACol , ARow : Integer ; Rect : TRect ; State : TGridDrawState ) ;
  var
    bmp : TBitMap ;
  begin
    bmp := TBitMap.Create ;
    ImageList1.GetBitmap( 0 , bmp ) ;
    DrawGrid1.Canvas.Draw( Rect.Left , Rect.Top , bmp ) ;

  end ;