关于delphi中Tchart组件自定义cavas绘制图形的导出

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;