Steema Central

Code: Select all

uses Series, TeePNG, TeeBMPOptions;

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=0 to 2 do
    with Chart1.AddSeries(TAreaSeries.Create(self)) as TAreaSeries do
    begin
      FillSampleValues();
      MultiArea:=maStacked;
      Transparency:=50;
      AreaLinesPen.Visible:=false;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  tmpPNG: TPNGExportFormat;
  MetaCanvas: TMetafileCanvas;
  Bitmap: TBMPExportFormat;
begin
  tmpPNG := TPNGExportFormat.Create;
  tmpPNG.Panel:=Chart1;

  try
    Bitmap:= TBMPExportFormat.Create;
    Bitmap.Panel:=Chart1;

    try
      tmpPNG.Height := Bitmap.Height;
      tmpPNG.Width  := Bitmap.Width;
      tmpPNG.Bitmap.Canvas.Draw(0,0,Bitmap.Bitmap(TBMPOptions.Create(self)));
      tmpPNG.SaveToFile('C:\tmp\test.png');
    finally
      Bitmap.Free;
    end;
  finally
    tmpPNG.Free;
  end;
end;