как мне анимировать TJvGIFImage?

я использовал TGIFImage какое-то время, но я застрял с некоторыми ошибками, поэтому я решил перейти к TJvGIFImage, и вот как я загружаю изображение

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

но внутри TJvGIFImage нет свойства анимации, как в Tgifimage

as eg .

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

как установить анимацию для TJvGIFImage?


delphi jvcl delphi-xe7
person MartinLoanel    schedule 15.04.2016    source источник
comment
Пожалуйста, попробуйте проверить, что означают теги, прежде чем применять их случайным образом. JCL означает не то, что вы думаете, поэтому я удаляю его.   -  person Bill Woodger    schedule 15.04.2016

Ответы (2)


arrow_upward
3
arrow_downward

Если вы пытаетесь показать анимированный gif с помощью TJvGIFImage, вы должны использовать 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;
person J.Pelttari    schedule 15.04.2016

arrow_upward
-3
arrow_downward

Попробуйте компонент TJvGIFAnimator?

person Kevin McBrearty    schedule 15.04.2016
comment
TJvGIFAnimator не Tgraphic! - person MartinLoanel; 15.04.2016
comment
Пожалуйста, не отвечайте на вопрос другим вопросом. - person Rob Kennedy; 15.04.2016
comment
@martin, может быть, и нет, но почему бы не покопаться немного, чтобы увидеть, что это такое? - person David Heffernan; 15.04.2016
comment
@RobKennedy Точка принята. - person Kevin McBrearty; 15.04.2016
comment
@DavidHeffernan Аминь. - person Kevin McBrearty; 15.04.2016