Question

我一直在使用TGIFImage，但我坚持使用它的一些错误所以我决定转移到TJvGIFImage，这里我如何加载图像

AGIF := TJvGIFImage.Create;
AGIF.LoadFromFile('what ever image');
AGIF.Transparent := true;

但TJvGIFImage

中的Tgifimage内没有动画属性

例如。

 AGIF := TGIFImage .Create;
 AGIF.LoadFromFile('what ever image');
 AGIF.animate := true;
 AGIF.Transparent := true;

如何为TJvGIFImage设置动画？

Answer 1

如果您尝试使用TJvGIFImage显示动画gif，则应使用TJvGIFAnimator而不是TImage。 TJvGIFAnimator作为动画属性以及动画的其他一些属性。

procedure TForm2.LoadGif(const AFilename: string);
var
  aGif: TJvGIFImage;
begin
  aGif := TJvGIFImage.Create;
  try
    aGif.LoadFromFile(AFilename);
    JvGIFAnimator1.Image.Assign(aGif);
    JvGIFAnimator1.Animate := true;
  finally
    aGif.Free;
  end;
end;

Answer 2

试试TJvGIFAnimator组件？

我如何为TJvGIFImage制作动画？

2 个答案: