Delphi GIF 动画建立

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi 判断是否为文件名

Delphi-改进获取文件md5 hash方法

Delphi 如何使用通配符删除文件

Delphi xe中将正则表达式tregex的使用

Delphi 字符串截取

Delphi 在电脑屏幕上显示图片

Delphi string.split 按照任意字符串分割语句

Delphi xe5实现按android的back键无法退出关闭程序

Delphi b编码以及bt种子文件分析

Delphi 图像操作

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi GIF 动画建立