From: anders@melander.dk (Anders Melander)
Subject: Re: TChart Canvas to GIF
Date: 13 Mar 1999 00:00:00 GMT
Message-ID: <36ea6605.7626756@forums.borland.com>
Content-Transfer-Encoding: 7bit
References: <7cbnp0$ohc4@forums.borland.com>
Content-Type: text/plain; charset=us-ascii
Organization: Melander Inc.
Mime-Version: 1.0
Reply-To: anders@melander.dk
Newsgroups: borland.public.delphi.vcl.components.using

"Rob Linton" <rblinton@getbos.com> wrote:

>Is there a way to take a snapshot of a TChart Canvas and save it as a GIF
>file?

You can use my TGIFImage library to do it:

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

Like this:

procedure SaveCanvasAsGIF(Canvas: TCanvas; filename: string);
var
  GIF: TGIFImage;
  Bitmap: TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.Width := (Canvas.ClipRect.Right-Canvas.ClipRect.Left);
    Bitmap.Height := (Canvas.ClipRect.Bottom-Canvas.ClipRect.Top);
    Bitmap.PixelFormat := pf24bit;
    Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect, Canvas,
      Canvas.ClipRect);
    GIF := TGIFImage.Create;
    try
      GIF.Assign(Bitmap);
      GIF.SaveToFile(filename);
    finally
      GIF.Free;
    end;
  finally
    Bitmap.Free;
  end;
end;



Thank you for flying Air Melander.

+--------------------from usenet----------------------+
|  Anders Bo Melander    | Phone: (+45) 38 87 91 26   |
|  Finsensvej 79, 2. tv. | mailto:anders@melander.dk  |
|  DK-2000 Frederiksberg | http://www.melander.dk     |
|  Denmark               | flameto:billg@microsoft.com|
+------------------------+----------------------------+