Tchart - Quickreport

[poterp]

hallo,
ich habe n MDI-Form mit 4 Tcharts. was ich gern wusste:
1- wie kann ich 4 Tchart mit 4TQRChart verbinden? d.h beim Preview sollte ich 4 TQRChart auf 4 Quickreport seite sehen.

2- Wie kann ich den TQRchart zu clone von Tchart machen??

grüß
poter

[poterp]

ich habe folgendes Probiert

Delphi-Quellcode:

procedure TForm6.FormCreate(Sender: TObject);
var
i: integer;
begin
 Qrchart1.Chart.FreeAllSeries;
 Qrchart1.Chart.Assign(frm_chart1(owner).Chart1);
 for i := 0 to  frm_chart1(owner).Chart1.SeriesCount -1 do
 begin
 CloneChartSeries(frm_chart1(owner).Chart1[i]).ParentChart:= QRchart1.Chart;
 end;

end;

es kommt ein fehler : Missing Operator or Semicolon
sieht jemand das Problem?
grüß
poter

[poterp]

hallo,
ich möchte nicht aufdringen, ich wollte noch die frage über Tchart-TQRchart clonen erneuen
grüß
poter

[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