DelphiXE 显示GIF动画

简介: DelphiXE 显示GIF动画DelphiXE可以直接显示GIF动画,不需要第三方控件的支持。只要引用GifImg单元即可。uses GIFImg;procedure TForm1.

DelphiXE 显示GIF动画

DelphiXE可以直接显示GIF动画,不需要第三方控件的支持。只要引用GifImg单元即可。

uses GIFImg;


procedure TForm1.FormCreate(Sender: TObject);
begin
  // 先在窗体上放一个 TImage 组件:Image1;
  Image1.Picture.LoadFromFile('C:\Example.gif');


  // AnimationSpeed 设定动画速度,值越大,速度越快;
  TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500;
  TGIFImage(Image1.Picture.Graphic).Animate := True;
end;

 

相关文章
|
计算机视觉
AutoCAD *.dxf文件解析,使用dxflib搞定polyline/spline/ellipse等复杂图形(★firecat推荐★)
AutoCAD *.dxf文件解析,使用dxflib搞定polyline/spline/ellipse等复杂图形(★firecat推荐★)
1885 0
AutoCAD *.dxf文件解析,使用dxflib搞定polyline/spline/ellipse等复杂图形(★firecat推荐★)
MASM32编程实现窗口渐入渐出效果
MASM32编程实现窗口渐入渐出效果
|
8月前
|
弹性计算 运维 Shell
显示进度条
【4月更文挑战第29天】
42 0
|
8月前
win32编程 -- 泡泡跳动
win32编程 -- 泡泡跳动
41 0
|
C++ Python
Qt+C++基本绘图(画线,画圆,矩形, 撤销,重做)
Qt+C++基本绘图(画线,画圆,矩形, 撤销,重做)
350 0
Qt+C++基本绘图(画线,画圆,矩形, 撤销,重做)
|
程序员 C++ Windows
GDI+与GDI屏幕抓图比较
GDI+与GDI屏幕抓图比较
203 0
|
编译器
QT软件开发: 截取全屏、指定位置、当前窗口保存图片
QT软件开发: 截取全屏、指定位置、当前窗口保存图片
755 0
QT软件开发: 截取全屏、指定位置、当前窗口保存图片