Discussion :

[zounar_j5]

Bonjour à tous, voilà mon nouveau souci, j'ai trouvé pour mettre un gif animé, qui fonctionne très bien, je voudrais savoir si je peux mettre un gif animé comme fond d'une fiche ( au lieu d'avoir un fond gris ou bleu ou autre ), je voudrais que le gif occupe toute la Form ? Merci.

voilà le code que j'ai trouvé pour l'image :

Code :

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

1
2
3
( Image1.Picture.Graphic as TGIFImage ).Animate := True;
( Image1.Picture.Graphic as TGIFImage ).AnimationSpeed:= 500;
Form1.DoubleBuffered := True;

Je voudrais aussi pouvoir modifier la vitesse, comme l'image.

[pprem]

Bonjour

Quelle version de Delphi utilises tu ?

Vu ton code tu es sur de la VCL, as-tu une version de Windows cible ?

[zounar_j5]

Bonjour

Quelle version de Delphi utilises tu ?

Vu ton code tu es sur de la VCL, as-tu une version de Windows cible ?

Bonjour,

Je suis sous delphi 2010 architect

Je suis sur la VCL

Je suis sous Windowa 8.1

Merci

[ShaiLeTroll]

Le Gif lui même est transparent ou pas, tu parles d'une couleur de fond, tu veux masquer ou montrer la couleur de fond ?
Sa qualité est-elle assez bonne pour la définir comme BackgroundColor et Transparent à True et ainsi voir la couleur de fond d'origine de la form.
Si tu veux tout remplacer, le TGIFImage est dessinné par un TImage est un TGraphicControl, suffit de le mettre en align alClient, il sera en fond, tous les TWinControl seront par dessus, c'est le comportement normal en VCL, le TGraphicControl utilise son Parent pour se dessiner, il n'existe pas réellement comme controle windows, c'est un controle Delphi dépendant d'un Canvas hôte.



Sinon, je n'utiliserais pas un gif pour cela mais une série d'image couplée à un TFormStyleHook voir TSLTBackgroundFormStyleHook si tu veux utiliser cette méthode compatible avec les styles VCL et un TTimer pour changer le contenu de Background

Si tu es en style Windows, c'est TSLTBackgroundWindowHook qu'il te faut, avec un TTimer pour appeler LoadBackgroundByResName avec l'une des images (stockées en ressource)

Ainsi tu pourrais contrôler la vitesse, tu pourrais même gérer deux images Background et BackgroundNext avec un effet de transition entre les images rendues en temps-réel au lieu d'avoir tout dans un Gif.

[zounar_j5]

Le Gif lui même est transparent ou pas, tu parles d'une couleur de fond, tu veux masquer ou montrer la couleur de fond ?
Sa qualité est-elle assez bonne pour la définir comme BackgroundColor et Transparent à True et ainsi voir la couleur de fond d'origine de la form.
Si tu veux tout remplacer, le TGIFImage est dessinné par un TImage est un TGraphicControl, suffit de le mettre en align alClient, il sera en fond, tous les TWinControl seront par dessus, c'est le comportement normal en VCL, le TGraphicControl utilise son Parent pour se dessiner, il n'existe pas réellement comme controle windows, c'est un controle Delphi dépendant d'un Canvas hôte.



Sinon, je n'utiliserais pas un gif pour cela mais une série d'image couplée à un TFormStyleHook voir TSLTBackgroundFormStyleHook si tu veux utiliser cette méthode compatible avec les styles VCL et un TTimer pour changer le contenu de Background

Si tu es en style Windows, c'est TSLTBackgroundWindowHook qu'il te faut, avec un TTimer pour appeler LoadBackgroundByResName avec l'une des images (stockées en ressource)

Ainsi tu pourrais contrôler la vitesse, tu pourrais même gérer deux images Background et BackgroundNext avec un effet de transition entre les images rendues en temps-réel au lieu d'avoir tout dans un Gif.

Merci pour votre aide.