Torry is still alive and well and much easier to use than DSP. www.torry.net
Stacey > -----Original Message----- > From: Ben Taylor [mailto:[EMAIL PROTECTED] > Sent: Wednesday, 18 February 2004 23:41 > To: NZ Borland Developers Group - Delphi List > Subject: Re: [DUG] GIF Support? > > > try this, used it for a while now. the authors (anders > melander) homepage seems to have disappeared, but the code > works fine for me in d6 and d7.. > > from the delphi super-page.. (where's frikken torrys gone? sigh..) > http://delphi.icm.edu.pl/ftp/d20free/gifimage.exe this code creates a transparant gif, and should do a nice color reduction to gifs 256.. hope that helps ;-) ben. uses .. gifimage, .. procedure btBmpToGif(const aSource, aDest: string); //converts a bitmap to a transparent gif var aBmp:TBitmap; aGif:TGIFImage; begin aBmp:=TBitmap.Create; aGif:=TGIFImage.Create; try aBmp.LoadFromFile(aSource); aBmp.Transparent:=True; aBmp.TransparentMode:=tmAuto; aGif.ColorReduction:=rmQuantize; aGif.Assign(aBmp); aGif.SaveToFile(aDest); finally FreeAndNil(aBmp); FreeAndNil(aGif); end; end; --- Myles Penlington <[EMAIL PROTECTED]> wrote: > How do you add Gif support to TImage? Especially with regard to > transparency. > > Anybody got pointers to components that support this? __________________________________ Do you Yahoo!? Yahoo! Mail SpamGuard - Read only the mail you want. http://antispam.yahoo.com/tools _______________________________________________ Delphi mailing list [EMAIL PROTECTED] http://ns3.123.co.nz/mailman/listinfo/delphi _______________________________________________ Delphi mailing list [EMAIL PROTECTED] http://ns3.123.co.nz/mailman/listinfo/delphi
