求在网格里显示图片的方案

求在网格里显示图片的方案 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061222161956180.html
在ListView或StringGrid或其他里都行  
  要求能显示多个单元，  
  上面是图片，图片地址为:http://www.com.com/aa.jpg  
  下面是复选框，  
  能定位到单元，从头到尾循环，  
  如果选择了下面的复选框，  
  做些相应的处理  
  ---------------------------------  
  |   图片1   |   图片1   |   图片1   |   图片1   |  
  |复选框1|复选框1|复选框1|复选框1|  
  ---------------------------------  
  |   图片1   |   图片1   |   图片1   |   图片1   |  
  |复选框1|复选框1|复选框1|复选框1|  
  ---------------------------------  
  |   图片1   |   图片1   |   图片1   |   图片1   |  
  |复选框1|复选框1|复选框1|复选框1|  
  ---------------------------------

基本语句是这样的：  
   
  procedure   TForm1.StringGrid1DrawCell(Sender:   TObject;   ACol,   ARow:   Integer;  
      Rect:   TRect;   State:   TGridDrawState);  
  begin  
      if   (ACol   =   1)   and   (ARow   =   1)   then  
      begin  
          StringGrid1.RowHeights[ARow]   :=   Image1.Picture.Graphic.Height;  
          StringGrid1.ColWidths[ACol]   :=   Image1.Picture.Graphic.Width;  
          StringGrid1.Canvas.Draw(Rect.Left,   Rect.Top,   Image1.Picture.Graphic);  
      end;  
  end;  
   
  完整的功能实现，你自己琢磨一下吧。

转载于:https://www.cnblogs.com/delphi2007/archive/2008/11/18/1335916.html