var
bmp:Tbitmap;
begin
bmp := Tbitmap.Create;
try
bmp.Width:=Chart.Width;
bmp.Height:=Chart.Height;
bmp.Canvas.CopyMode:=cmSrcCopy;
bmp.Canvas.CopyRect(rect(Chart.Left,Chart.Top,Chart.Width,Chart.Height),Chart.Canvas.ReferenceCanvas,rect(Chart.Left,Chart.Top,Chart.Width,Chart.Height));
bmp.SaveToFile(filepath);
finally
bmp.Free;
end;
bmp:Tbitmap;
begin
bmp := Tbitmap.Create;
try
bmp.Width:=Chart.Width;
bmp.Height:=Chart.Height;
bmp.Canvas.CopyMode:=cmSrcCopy;
bmp.Canvas.CopyRect(rect(Chart.Left,Chart.Top,Chart.Width,Chart.Height),Chart.Canvas.ReferenceCanvas,rect(Chart.Left,Chart.Top,Chart.Width,Chart.Height));
bmp.SaveToFile(filepath);
finally
bmp.Free;
end;