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利用scrollbox实现图像漫游

Delphi 数组与枚举

Delphi http协议验证访问datasnap rest 服务器

Delphi xe6取得android智能手机的电话号码等的终端信息

Delphi edit,memo中禁用ctrl+v

Delphi 内存截取字符串

Delphi 关闭所有正在运行的程序

Delphi udl文件创建

Delphi inc () 计数用法

Delphi 跨平台获取文件列表

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

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