[杂谈] 在 Delphi/C++ Builder 中创建无限循环的 GIF 动画

首先是看代码:

这段代码实现的是绘制了一个从右到左的,从 9 变到 0 的小动画,动画每帧间隔为 100ms,我们用一个 TImage 的实例 Image1 来显示。

这里,有一个关键的地方,是为动画添加 TGIFAppExtNSLoop 扩展,如果不设置,动画将只播放一次就停了。添加扩展后,这个动画就可以无限循环下去或者循环指定的次数(通过设置 TGIFAppExtNSLoop 的 Loops 属性)。

这里有一个问题,就是 TGIFImage  每帧的间隔时间是固定的,我没看到在那儿能够设置非匀速的 GIF 动画。如果你知道,欢迎一起交流。

分享到:

0 条评论

沙发空缺中,还不快抢~