会员
周边
众包
新闻
博问
闪存
所有博客
当前博客
我的博客
我的园子
账号设置
简洁模式
...
退出登录
注册
登录
德罗德
博客园
首页
新随笔
联系
管理
订阅
[Delphi]TGIFImage:TImage显示gif动画
TImage显示gif动画速度设置
Code
1
Image1:TImage;
2
3
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
4
//
AnimationSpeed 设定动画速度。其实就是原始速度的百分比,例如50就是说是原始速度的50%;
5
TGIFImage(Image1.Picture.Graphic).AnimationSpeed :
=
500
;
6
TGIFImage(Image1.Picture.Graphic).Animate :
=
True;
7
(AnimationSpeed = 0 to 1000)
如果设置AnimationSpeed = 0 则gif图像没有动画效果
posted @
2009-04-27 11:07
德罗德
阅读(
2793
) 评论(
0
)
编辑
收藏
举报
会员力量,点亮园子希望
刷新页面
返回顶部
公告