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
请指教如何实现分成不同的帧,设置透明度,设置播放速度?调用那个方法,如何设置参数?