加入收藏 | 设为首页 | 会员中心 | 我要投稿 李大同 (https://www.lidatong.com.cn/)- 科技、建站、经验、云计算、5G、大数据,站长网!
当前位置: 首页 > 大数据 > 正文

delphi – Firemonkey中的动画GIF

发布时间:2020-12-15 09:17:18 所属栏目:大数据 来源:网络整理
导读:我正在尝试使用T Image以Firemonkey HD形式显示动画GIF,但我没有看到任何动画方法. 使用Vcl.Imaging.gifImg不是一个选项,因为类型不同. 有人可以建议一种方法来解决这个问题,或者可能是Firemonkey下的GIF图像动画组件吗? 我现在找到的唯一方法是: 创建TGIF
我正在尝试使用T Image以Firemonkey HD形式显示动画GIF,但我没有看到任何动画方法.

使用Vcl.Imaging.gifImg不是一个选项,因为类型不同.

有人可以建议一种方法来解决这个问题,或者可能是Firemonkey下的GIF图像动画组件吗?

我现在找到的唯一方法是:

>创建TGIFImage实例并加载GIF图像
>循环通过gif.images:

一个.将当前图像保存为流

湾Image1.bitmap.loadFromStream [Image1是FMX:TImage]

有更聪明的解决方案吗?

解决方法

您可以将TBitmapListAnimation与单个图像一起使用,该图像的每个动画帧都位于长条带内.例如,如果你的动画有4帧并且是32像素×32像素,那么你需要创建一个128像素宽32像素高的图像并且并排添加每个帧…

然后在表单中添加一个TImage(您不必将位图加载到此表单中)

添加TBitmapListAnimation与TImage作为其父级

双击AnimationBitmap并加载动画图像条

下拉PropertyName并选择Bitmap

对于此示例,将AnimationCount设置为4,将AnimationRowCount设置为1

设置为true

TBitmapListAnimation可以很好地控制动画帧速率,反转,循环和插值.我无法找到一种方法来获取.gif在FireMonkey2中制作动画,但是如果你有办法将动画.gif转换为’卡通条’,那么这是制作动画的好方法.

PS这是Delphi XE3 ……所以不能说这些组件是否存在于以前的版本中.

(编辑:李大同)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    推荐文章
      热点阅读