Delphi TGIFImage:TImage显示gif动画


Delphi TGIFImage:TImage显示gif动画

TImage显示gif动画速度设置

Image1:TImage;

Image1.Picture.LoadFromFile(OpenDialog1.FileName);

// AnimationSpeed 设定动画速度。其实就是原始速度的百分比,例如50就是说是原始速度的50%;

TGIFImage(Image1.Picture.Graphic).AnimationSpeed := 500;

TGIFImage(Image1.Picture.Graphic).Animate := True;

(AnimationSpeed = 0 to 1000)

如果设置AnimationSpeed = 0 则gif图像没有动画效果


联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678