Discussion :

[morpheus0010]

Bonjour,

je voudrais savoir si il existe un composant permettant d'afficher une image gif animé . malgré quelques recherches je ne trouve rien ...

cordialement

[ShaiLeTroll]

Tu dois pouvoir le simuler avec un TImage, TImageList et un script d'animation de FireMonkey, il y a plein de possibilité graphique et de scénarisation de tes effets !

Il y a une démo sur la création de d'animations HD, John Colibri fait des assistants pour la gestion des styles et des animations de FMX !

[Papy214]

firemonkey ou pas ??

Si non, sous XE2, c'est possible.

Ajouter GIFImg dans les uses

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
var
  gif: TGifImage;
  str: TResourceStream;
...
 
  gif := TGifImage.Create;
  str := TResourceStream.Create(FindResourceHInstance(HInstance), 'LOADER', RT_RCDATA);  // mon gif est dans une ressource nommée LOADER
  gif.LoadFromStream(str);
  gif.Animate := True;
  Image1.Picture.Assign(gif);
  Image1.Visible := False;
  str.Free;

[krzysiu]

Bonjour,

As tu trouvé une solution ? car je cherche et ne rien pour le moment.

ShaiLeTroll, j'ai regardé les liens que tuas donné, mais rien non plus... qui réponde a mon problème.

Papy214, c'est la façon que je cherche mais avec firemonkey

merci de votre aide ... je continue mes recherches...

[free07]

J'ai jamais fait avec fmx mais il me semble que c'est possible alors j'ai fait une petite recherche et j'ai trouvé ceci ( il faut utiliser TBitmapListAnimation ) :

https://forums.embarcadero.com/threa...605629&#605629

J'espère que cela répondra à ton problème.

[krzysiu]

Merci pour l'info, je regarde et vous dit quoi

bonne soirée

[SergioMaster]

Bonjour,

je suis 'tombé' par hasard sur cette vidéo/tutorial

[bluefish01]

La librairie JEDI VCL intègre un composant pour les gifs animés : JvGIF Animator ,
Le gif pout être animé ou non via un bool., synchronized ou non , etc ..

[free07]

La librairie JEDI VCL intègre un composant pour les gifs animés : JvGIF Animator ,
Le gif pout être animé ou non via un bool., synchronized ou non , etc ..

Non mais en fait, il veut utiliser le gif animé avec fmx ( et non pas la vcl ).

[krzysiu]

Bonjour à tous,

Merci de vous soucier de mon problème effectivement je cherche à faire afficher un fichier "loader.gif" dans Fire Monkey et non dans la VCL

[krzysiu]

Effectivement une des solutions est d’utiliser TBitmapListAnimation. (merci Sergio Master j'avais vu cette démo, mais je n'avais pas creusé plus loin)
Voici un micro tuto élaboré partir du wiki d’Embarcadero
(http://docwiki.embarcadero.com/Libra...pListAnimation)

TBitmapListAnimation affiche une section ou cellule à la fois, comme les images d’un film. Il faut donc avoir un fichier contenant toutes les images les unes derrières les autres comme dans cet exemple.

Voici la procédure :
1. Dans une TForm, ajoutez un TImage
2. Sélectionnez votre TImage, puis dans les propriétés cliquez sur Bitmat pour afficher un sous menu.
3. Dans le sous menu, choisissez : Créer un nouveau TBitmapListAnimation…
4. Dans la structure, sous votre TImage va apparaitre un nouveau composant TBitmapListAnimation que vous allez sélectionner,
5. Dans les propriétés, cliquez sur AnimationBitmap pour afficher un sous menu
6. Dans le sous menu, sélectionnez : Modifier
7. Charger votre séquence d’images en cliquant sur le bouton Charger
8. Puis sur OK pour valider
9. Indiquez ensuite dans la propriétéAnimationCount, le nombre d’images
10. Dans duration, réglez la vitesse de l’animation
11. Enfin, cocher loop pour que votre animation tourne en boucle
12. Ajouter un TButton pour démarrer l’animation sur un clic
13. OnClick de ce TButton, saisissez le code suivant : TBitmapListAnimation1.Start

Vous pouvez aussi définir la propriété Enabled sur true, pour que l’animation démarre à l’exécution.

Merci encore pour toutes vos recherches, ce n’est pas tout à fait ce que je cherchais à faire, mais finalement, c’est pas mal et il faut bien s’habituer aux nouveaux concepts de Fire Monkey

Merci à tous et bonne soirée

[free07]

Merci encore pour toutes vos recherches, ce n’est pas tout à fait ce que je cherchais à faire, mais finalement, c’est pas mal et il faut bien s’habituer aux nouveaux concepts de Fire Monkey

Pourquoi ? Qu'est ce que tu cherchais à faire exactement ?

Sympa ton tuto et à le lire, je ne vois pas ce qui pourrait manquer...

[krzysiu]

Bonjour,

Je cherchais à utiliser un .gif comme celui là par exemple et l'animer dans un TImage