|
Sujet : Un gif dans une fiche Delphi 5 |
| JWhy |
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-- |
