delphi – Firemonkey中的动画GIF

我正在尝试使用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 ……所以不能说这些组件是否存在于以前的版本中.