Un gif dans une fiche Delphi 5

Un gif dans une fiche Delphi 5 - Programmation

Marsh Posté le 26-02-2001 à 15:10:38    

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...

Reply

Marsh Posté le 26-02-2001 à 15:10:38   

Reply

Marsh Posté le 26-02-2001 à 17:24:36    

Reply

Marsh Posté le 27-02-2001 à 11:47:46    

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

Reply

Marsh Posté le 27-02-2001 à 13:17:39    

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.

Reply

Marsh Posté le 27-02-2001 à 16:12:19    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed