【Delphi】GIF 动画建立

最新推荐文章于 2023-12-02 12:55:20 发布

weixin_34111790

最新推荐文章于 2023-12-02 12:55:20 发布

阅读量136

点赞数

原文链接：http://www.cnblogs.com/yangyxd/p/5146759.html

版权

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;