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 raise 语句: 抛出异常

Delphi 判断当前程序是否是活动窗口

Delphi 制作一个内网传播的程序

Delphi hex 相关单元

Delphi setpriorityclass 设置当前程序的优先级

Delphi 生成全球唯一标识符

Delphi ado连接数据库

Delphi启动控制面板的方法列表

Delphi tdatetime 日期时间值的比较

Delphi中怎样展开和关闭treeview的所有节点

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

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