RSS订阅 | 匿名投稿
您的位置:网站首页 > 图像 > 正文

delphi xe TBitmap支持Gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件

作者:admin 来源: 日期:2014/3/25 20:22:00 人气: 标签:

让TBitmap支持Gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件

TImage要支持Gif,代码,我查的xe5的新增功能,亲自调试无错误,特来分享!

var

      stream: TResourceStream;

      tbimap: TBitmap;

begin

BitmapListAnimation1.AnimationBitmap.LoadFromFile('本地图片地址');

      BitmapListAnimation1.AnimationCount := 4; 

      BitmapListAnimation1.AnimationRowCount := 1;

      //BitmapListAnimation1.PropertyName := 'TEST';

      BitmapListAnimation1.AnimationBitmap.CopyFromBitmap(tbimap);

      BitmapListAnimation1.Enabled := true;

      BitmapListAnimation1.Start();

      image1.Bitmap := tbimap;

end;

 

这样就成为:TBitmap支持Gif,成为具有jpg,gif,bmp,ico,gif五种显示功能的图片控件了!

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: