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 使用webbrowser控件获取含框架的网页的完整html代码

Delphi -- 农历算法单元

Delphi for 循环的例子 多种用法

Delphi 判断字符串是否包含汉字，正则版和非正则版

Delphixe win7、mssql2000、udl

webbrowser里网页根据文字判断来点击链接

Delphi xe 制作的萤光时钟，可改作屏保

在Delphi中基于内容检测图片格式（非扩展名）

Delphi 实现程序放放多个进程条

Delphi 创建并调用 dll

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

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