Anordnung von Subreports spinnt

[raiha]

Hi,

habe ein Problem mit dem ReportBuillder aus dem Hause Digital Metaphors und Delphi 6. Ich belege zur Laufzeit einen Report mit einem Template und mehreren Unterreports.

Das sieht also wie folgt aus:

Delphi-Quellcode:

procedure Tfrm_rptdesigner.Button5Click(Sender: TObject);
 var    myReport : TppReport;

        mySubReport : TppSubReport;
        mySubReport2 : TppSubReport;
        mySubReport3 : TppSubReport;

        PrimChart : TppTeeChart;
        PrimChart2 : TppTeeChart;
        PrimChart3 : TppTeeChart;

        mySeries : TBarSeries;
        mySeries2 : TBarSeries;
        mySeries3 : TBarSeries;

 begin

  // rpts und subrpts anlegen
  myReport := TppReport.Create(nil);
  mySubReport := TppSubReport.Create(nil);
  mySubReport2 := TppSubReport.Create(nil);
  mySubReport3 := TppSubReport.Create(nil);

  // Series anlegen
  mySeries := TBarSeries.Create(nil);
  mySeries2 := TBarSeries.Create(nil);
  mySeries3 := TBarSeries.Create(nil);

  // Charts anlegen
  PrimChart := TppTeeChart.Create(Self);
  PrimChart2 := TppTeeChart.Create(Self);
  PrimChart3 := TppTeeChart.Create(Self);


  // Lade ersten rpt in den RPT (Mainrpt)
  myReport.Template.DatabaseSettings.NameField := 'Name';
  myReport.Template.DatabaseSettings.TemplateField := 'Template';
  myReport.Template.DatabaseSettings.DataPipeline := DBPipelineReport;
  myReport.Template.DatabaseSettings.Name :='ExhibitionMainReport';
  myReport.Template.LoadFromDatabase;

  /////////////////////////////////////
  // Lade ersten Subrpt in den Mainrpt

  mySubReport.Band := myReport.DetailBand;
  mySubReport.CreateReport(myReport);
  mySubReport.Report.Template.DatabaseSettings.NameField := 'Name';
  mySubReport.Report.Template.DatabaseSettings.TemplateField := 'Template';
  mySubReport.Report.Template.DatabaseSettings.DataPipeline := DBPipelineReport;

  mySubReport.Report.Template. DatabaseSettings.Name :='ExhibitionChartReport';
  mySubReport.Report.Template.LoadFromDatabase;

  // Lade TChart in den ersten Subrpt
  PrimChart.Band := mySubreport.Band;
  PrimChart.Visible := true;
  PrimChart.Height := 50;
  PrimChart.Width := 70;
  PrimChart.Chart.Align := alClient;
  PrimChart.Chart.Title.Text.Clear;
  PrimChart.Chart.Title.Text.Add ('Chart_1');
  PrimChart.Name := 'ChartName';

  mySeries.AddBar(98,'label', clblue);
  PrimChart.Chart.AddSeries(mySeries);

  mySubReport.ShiftWithParent := true;
  /////////////////////////////////////

  /////////////////////////////////////
  // Lade den zweiten Subrpt in den Mainrpt

  mySubReport2.Band := myReport.DetailBand;
  mySubreport2.ShiftRelativeTo := mySubreport;
  mySubReport2.CreateReport(myReport);
  mySubReport2.Report.Template.DatabaseSettings.NameField := 'Name';
  mySubReport2.Report.Template.DatabaseSettings.TemplateField := 'Template';
  mySubReport2.Report.Template.DatabaseSettings.DataPipeline := DBPipelineReport;

  mySubReport2.Report.Template.DatabaseSettings.Name :='ExhibitionChartReport';
  mySubReport2.Report.Template.LoadFromDatabase;

  // Lade TChart in den ersten Subrpt
  PrimChart2.Band := mySubreport2.Band;
  PrimChart2.Visible := true;
  PrimChart2.Height := 50;
  PrimChart2.Width := 70;
  PrimChart2.ShiftWithParent := true;
  PrimChart2.Chart.Align := alClient;
  PrimChart2.Chart.Title.Text.Clear;
  PrimChart2.Chart.Title.Text.Add ('Chart_2');
  PrimChart2.Name := 'ChartName2';

  mySeries2.AddBar(22,'label2', clred);
  PrimChart2.Chart.AddSeries(mySeries2);

  mySubReport2.ShiftWithParent := true;
  /////////////////////////////////////

  /////////////////////////////////////
  // Lade den dritten Subrpt in den Mainrpt
  mySubReport3.Band := myReport.DetailBand;
  mySubreport3.ShiftRelativeTo := mySubreport2;
  mySubReport3.CreateReport(myReport);
  mySubReport3.Report.Template.DatabaseSettings.NameField := 'Name';
  mySubReport3.Report.Template.DatabaseSettings.TemplateField := 'Template';
  mySubReport3.Report.Template.DatabaseSettings.DataPipeline := DBPipelineReport;

  mySubReport3.Report.Template.DatabaseSettings.Name :='ExhibitionChartReport';
  mySubReport3.Report.Template.LoadFromDatabase;

  // Lade TChart in den ersten Subrpt
  PrimChart3.Band := mySubreport3.Band;
  PrimChart3.Visible := true;
  PrimChart3.Height := 50;
  PrimChart3.Width := 70;
  PrimChart3.Left := 40;
  PrimChart3.ShiftWithParent := true;
  PrimChart3.Chart.Align := alClient;
  PrimChart3.Chart.Title.Text.Clear;
  PrimChart3.Chart.Title.Text.Add ('Chart_3');
  PrimChart3.Name := 'ChartName3';

  mySeries3.AddBar(52,'label3', clgreen);
  PrimChart3.Chart.AddSeries(mySeries3);

  mySubReport3.ShiftWithParent := true;
  /////////////////////////////////////


  myReport.Print;
 end;

Eigentlich sollte er jetzt das Main Template laden und in dessen Detailbereich die 3 Subreports untereinander ablegen (die alle ein TChart enthalten).
Bis zum zweiten Subreport macht er das auch wie gewollt aber wenn er den dritten einfügt überschreibt er mit der Grafik im zweiten Subreport mit dem dritten.
Wo liegt da der Fehler? Kann mir BITTE jehmand helfen?

Danke Rainer