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

[nieurig]

Hallo Rainer,
ich kenne den besagten Report nicht. Was aber am Code auffällt ist die Zeile

Code:

 PrimChart3.Left := 40;

mit der ja wohl eine Position für den dritten Abschnitt gesetzt wird? Bei den anderen Abschnitten fehlt eine solche Anweisung.

Wie sieht es aus, wenn Du diese Zeile wegläßt?
Niels

[raiha]

Left hatte ich nur eingestellt damit man sieht das sich die Grafiken überlagern. Sonst würde die 3te Grafik die zweite einfach überlagern.

Ich befürchte der rbuilder unterstützt das dyn. Anlegen von Komponenten einfach nicht. Habe es jetzt statisch gelöst.

Trotzdem Danke - Rainer