Delphi 自带GIF控件的动画图片加载和播放
2016-08-17 16:43
1136 查看
delphi从CodeGear时期就已经将网上广为流传的TGIFImage控件(源文件名是GIFImage.pas)集成到VCL中,使用方法与原版的TGIFImage存放轻微差别,
首先引用单元 Vcl.Imaging.GIFImg,配合 TImage 控件进行使用,具体如下:
方法一:
方法二:
首先引用单元 Vcl.Imaging.GIFImg,配合 TImage 控件进行使用,具体如下:
方法一:
procedure LoadGIFImage(img: TImage); var aGIFImage: TGIFImage; begin aGIFImage:=TGIFImage.Create; aGIFImage.LoadFromFile('C:\test.gif'); aGIFImage.Animate := True; //主要是多了这句来激活,否则就是一张静止图 img.Picture.Assign(aGIFImage); aGIFImage.Free; end;
方法二:
procedure LoadGIFImage(img: TImage); begin img.Picture.LoadFromFile('C:\test.gif'); if img.Picture.Graphic is TGIFImage then TGIFImage(img.Picture.Graphic).Animate := True; end;
相关文章推荐
- Delphi 自带GIF控件的动画图片加载和播放
- DuiLib中的GifAnim控件无法加载或者播放Gif动画的解决办法
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- [转]Delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- 可以加载Gif动画和png等图片的方法和控件
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- delphi 中 image 控件加载bmp、JPG、GIF、PNG等图片的办法
- iOS工作记录7 :ios控件加载图片,plist,懒加载,序列帧动画,添加动画效果(实用例子)
- wxwidgets中分解GIF动画图片并显示播放
- 《iOS开发之美》节选: 如何在iOS中播放gif 动画图片?
- delphi显示 jpg、png、gif 图片及 gif 动画的方法
- GifView:Android动画GIF图片展示控件
- VS2010自带报表控件(RDLC)加载图片相关
- 想控制GIF图片动画播放吗?试试gifffer.js
- Delphi中的jpg、png、gif 图片及 gif 动画的显示
- delphi RichEdit控件中插入GIF动画表情
- ios控件加载图片,plist,懒加载,序列帧动画,添加动画效果。
- 关于Gif图片播放控件的几点说明
- delphi 播放GIF动画