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


本文整理自网络,侵删。

 让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五种显示功能的图片控件了!

相关阅读 >>

Delphi 解决android 9上无法使用http协议

Delphi idwhois1 简单的用法

Delphi memo 自动滚动到最底下

Delphi superobject json操作类的基本用法

Delphi自动检测u盘插入、拔出及获取u盘盘符

Delphi winapi: getparent - 判断两个窗口是不是父子关系

Delphi 蠕虫下载者源代码

md5.pas

Delphi firedac获取自增长字段值

Delphi 检查程序是否在(vm,vpc等)虚拟机运行 Delphi(测试可用)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...