From: anders@melander.dk (Anders Melander)
Subject: Re: 24Bit->256 Color GIF/PNG
Date: 26 Feb 2000 00:00:00 GMT
Message-ID: <38b7c0d9.3930932@forums.borland.com>
Content-Transfer-Encoding: 7bit
References: <89340e$8vc3@bornews.borland.com> <38b6cf09.16032163@forums.inprise.com>
Content-Type: text/plain; charset=us-ascii
Organization: Melander Inc.
Mime-Version: 1.0
Reply-To: anders@melander.dk
Newsgroups: borland.public.delphi.graphics

eengler@zcsterling.com (Eric W. Engler) wrote:

>You can use Paintshop Pro to do the conversion. It can give you
>an optimum palette of colors that includes the 20 windows colors.
>This gives great results!

TGIFImage can do this too:

uses
  graphics,gifimage;

var
  GIF: TGIFImage;
  Bitmap: TBitmap;
begin
  GIF := TGIFImage.Create;
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('manycolors.bmp');
    GIF.ColorReduction := rmQuantizeWindows;
    GIF.DitherMode := dmFloydSteinberg;
    GIF.Assign(Bitmap);
    GIF.SaveToFile('256colors.gif');
  finally
    Bitmap.Free;
    GIF.Free;
  end;
end;

http://www.melander.dk/delphi/gifimage/


DIXI

+--------------------from usenet----------------------+
|  Anders Bo Melander    | mailto:anders@melander.dk  |
|  Denmark               | http://www.melander.dk     |
+------------------------+----------------------------+