Como trabalhar com arquivos gif no Delphi?

Fala galera do Show Delphi, tudo beleza?

Gostaria de criar aquele efeito legal na sua aplicação utilizando arquivos animados (.gif)?

A boa notícia é que é possível e muito fácil.

Para isso existem dois componentes OpenSource que resolvem esta necessidade, vamos a eles:

ACBrGif

O ACBrGif pertence a suite do ACBr e também está disponível para Lazarus.

Através da propriedade FileName é possível carregar qualquer arquivo .gif e utilizar normalmente.
Para ativar a animação é só colocar a propriedade Active como True.

Exemplo

1
2
3
4
5
6

procedure TForm1.BtnExemploClick(Sender: TObject);
begin
  ACBrGif1.Active := False;
  ACBrGIF1.Filename := 'c:\exemplo.gif';
  ACBrGif1.Active := True;
end;

JvGIFAnimator

Através da propriedade Image é possível carregar qualquer arquivo .gif e utilizar normalmente.
Para ativar a animação é só colocar a propriedade Animate como True.

Exemplo

1
2
3
4
5
6

procedure TForm1.BtnExemploClick(Sender: TObject);
begin
  JvGIFAnimator1.Animate := False;
  JvGIFAnimator1.Image.LoadFromFile('C:\exemplo.gif');
  JvGIFAnimator1.Animate := True;
end;

Ficou difícil. Tens como explicar?

Claro!

Assista o vídeo a seguir que demonstrarei o uso de ambos componentes. Aproveite e inscreve-se no canal!

Espero que tenham gostado. Compartilhei o post e ajudem na causa do compartilhamento do conhecimento.

Um abraço e até o próximo post.