求在网格里显示图片的方案
发布日期:2021-11-10 09:01:19 浏览次数:1 分类:技术文章

本文共 860 字,大约阅读时间需要 2 分钟。

在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

转载地址:https://blog.csdn.net/aibi9196/article/details/101304694 如侵犯您的版权,请留言回复原文章的地址,我们会给您删除此文章,给您带来不便请您谅解!

上一篇:用WNetAddConnection2建立映射后,如何隐藏映射盘符?
下一篇:线程的变量问题,请教大侠!

发表评论

最新留言

路过按个爪印,很不错,赞一个!
[***.219.124.196]2024年04月09日 21时40分51秒

关于作者

    喝酒易醉,品茶养心,人生如梦,品茶悟道,何以解忧?唯有杜康!
-- 愿君每日到此一游!

推荐文章