delphi - 如何将 TChart 导出为位图？

Question

我正在使用Steema Software的TeeChart Pro v7.06和Delphi 6。在我的项目中，有TChart(其BottomAxis.Automatic = False)和TChartScrollBar(滚动)。在 TChart 中，有几个系列不适合 TChart 的宽度，因此我使用 TChartScrollBar。

我需要将图表导出到 TBitmap。我不知道该怎么做，因为我知道的所有 TChart 方法都只导出 TChart 的可见部分!

有没有办法导出整个 TChart，而不仅仅是可见部分？

谢谢!

Answer 1

如果您正在使用分页功能，您可以暂时禁用它来打印整个系列，并在打印后再次重置。例如，在窗体上有一个 TChart、一个 TChartScrollBar 和一个 TButton:

uses Series, TeeEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Chart1.View3D:=false;

  Chart1.AddSeries(TFastLineSeries).FillSampleValues(100);

  Chart1.Pages.MaxPointsPerPage:=10;

  ChartScrollBar1.Chart:=Chart1;
  ChartScrollBar1.Enabled:=true;
end;

procedure TForm1.Button1Click(Sender: TObject);
var tmpCount, tmpPage: Integer;
begin
  tmpCount:=Chart1.Pages.MaxPointsPerPage;
  tmpPage:=Chart1.Pages.Current;

  Chart1.Pages.MaxPointsPerPage:=Chart1[0].Count;

  with TChartPreviewer.Create(Self) do
  begin
    Chart:=Chart1;
    Execute;
  end;

  Chart1.Pages.MaxPointsPerPage:=tmpCount;
  Chart1.Pages.Current:=tmpPage;
end;