我如何制作 TJvGIFImage 动画？

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

试用 TJvGIFAnimator 组件？

Answer 2

如果您尝试使用 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;

我如何制作 TJvGIFImage 动画？

how do i animate TJvGIFImage?

delphi

delphi-xe7

jvcl