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

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678