用Gifimage.pas显示Gif动画

TGifImage类可以轻松的操作gif文件,不仅能动态显示,也可以分成不同的帧,设置透明度,设置播放速度等等。

uses Gifimage;
var  FGif :TGIFImage;
try
      FResStream := TResourceStream.Create(HInstance, 'LoadingGif', 'GIFTYPE');
      if not assigned(FGif) then
            FGif := TGifimage.Create;
      FGif.LoadFromStream(FResStream);
//上面是放在资源文件中的加载方法,如果直接加载文件,请这样FGif.LoadFromFile('d:\abc.gif');
      FGif.Paint(imgGif.Canvas,imgGif.ClientRect,[goTransparent,goDither,goAsync,goLoop,goAnimate,goDirectDraw]);

    finally
      FResStream.Free;
      if assigned(FGif) then
       FGif.PaintStop;
      FGif.Destroy;
    end

下载:gifimaged6

1 评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据