Un gif dans une fiche Delphi 5

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Un gif dans une fiche Delphi 5

Titalium

Quelqu'un sait-il comment mettre un gif sur une fiche Delphi, en profitant de la transparence de ce type d'image pour faire des fenêtre au design loufoque ? Car je ne me trompe pas, le TImage ne supporte que le bmp et le jpg...

Publicité

JWhy

je peux plier (héhé)

Utilise le composant TGifImage de Anders Melander

---------------
www.alliancefrancophone.org ... Home is where the heart is

Titalium

Le problème, c'est que la transparence du gif n'est pas respectée...

k1200

Il y a un composant pour faire des fenetre bizzard genre winamp qui utilise une image pour le font et un masque pour la forme de la fenetre. Je me souvient plus du nom, je regarde se soir et je te tien au courant.

JWhy

je peux plier (héhé)

Titalium> si si, ca marche... il faut que tu assignes la propriete .transparent a true sur le TGifImage et que tu crees une TGifExtension avec la couleur de transparence que tu veux...

qqchose comme ca:

Citation :

procedure BMP2GIF(ABitmap: TBitmap; AGif : TGifimage);
var
iIndex : integer;
geGifExt : TGIFGraphicControlExtension;
begin
AGif.Transparent := True;

// Use the RLE compression (no Unisys License)
AGif.Compression := gcRLE;
AGif.Assign(ABitmap);

// Create an extension to set the transparency flag
iIndex := AGif.Images[0].Extensions.Add(TGIFGraphicControlExtension.Create(AGif.Images[0]));
geGifExt :=TGIFGraphicControlExtension(AGif.Images[0].Extensions[iIndex]);

// Set transparent color to lower left pixel color
geGifExt.Transparent := True;
geGifExt.TransparentColorIndex := AGif.Images[0].Pixels[0, AGif.Images[0].Height-1];
end;

mais c'est vrai que si c'est pour faire des fenetres chelous, ce n'est peut-etre pas le composant adequat !

--Message édité par JWhy--

---------------
www.alliancefrancophone.org ... Home is where the heart is

FORUM HardWare.fr

Programmation

Un gif dans une fiche Delphi 5

Sujets relatifs
[C/C++] ou [Delphi] question mega simple pour les pro...	[Delphi / C++ Builder] Problème avec un TListView
[C++ Builder / Delphi] Gérer l'exception d'un socket	euro et francs sous delphi
Voyageur de commerce en Turbo-Pascal ou Delphi	DELPHI intelligent?
Petit coup de pouce, j'suis débutant à Delphi ....	[Delphi ou autre] - Action custom associée à un type de fichier ...
Gros pb avec les DBLookUpComboBox sous Delphi 5	[Delphi 5 std] Fichiers indexés, ou autre solution...
Plus de sujets relatifs à : Un gif dans une fiche Delphi 5

Page générée en 0.035 secondes