Delphi RIO 动画

最新推荐文章于 2021-01-14 16:35:08 发布

原创最新推荐文章于 2021-01-14 16:35:08 发布 · 449 阅读

0 ·

CC 4.0 BY-SA版权

delphi 专栏收录该内容

64 篇文章

订阅专栏

本文介绍如何使用Delphi的Vcl.Imaging.GIFImg单元进行GIF动画的制作和播放。通过设置TGIFImage的AnimationSpeed属性可以调整动画速度，并通过Animate属性控制动画播放。此外，还展示了如何将多张图片合成GIF动画，包括设置每帧的延迟时间和循环次数。

引入 Vcl.Imaging.GIFImg 单元

  Image1.Picture.LoadFromFile('xxxxx.gif');
  // AnimationSpeed 设定动画速度，值越大，速度越快；
  TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500;
  TGIFImage(Image1.Picture.Graphic).Animate := True;

利用图片制作gif动态图片


var Gif:TGifImage;
begin
    //Setting the delay for each frame
    TGIFGraphicControlExtension.Create(Gif.Add(image1.Picture.Bitmap)).Delay := 300;
    TGIFGraphicControlExtension.Create(Gif.Add(image2.Picture.Bitmap)).Delay := 300;
    TGIFGraphicControlExtension.Create(Gif.Add(image3.Picture.Bitmap)).Delay := 300;
    //Adding loop extension in the first frame (0 = forever)
    TGIFAppExtNSLoop.Create(Gif.Images.Frames[0]).Loops := 0;
    Gif.SaveToFile('gif.gif');
end;