Tchart - Quickreport

[marabu]

Hallo Poter,

ich würde es so versuchen:

Delphi-Quellcode:

procedure TransferSeries(source: TChart; target: TQRDBChart);
var
  i: Integer;
begin
  with source do
  begin
    target.FreeAllSeries;
    for i := 0 to Pred(SeriesCount) do
      target.AddSeries(CloneChartSeries(Series[i]));
  end;
end;

procedure TReportForm.QRBandBeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  TransferSeries(DemoForm.Chart1, QRChart1.Chart);
  TransferSeries(DemoForm.Chart2, QRChart2.Chart);
end;

Grüße vom marabu