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; |
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; |
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.
-
Giovani Da Cruz
-
6.155 views
- 0 comentários
- 8 de outubro de 2020
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo