Rave Report & Seite 2 dynam. erzeugen via Code

[Andreas Schilling]

Verbinden von Seite1 (schon vorhanden) mit Seite 2 (dynamisch erzeugt), Komponente TRVProjekt wird verwendet

Delphi-Quellcode:

...
var PageR: TRavePage;
    Rep : TRaveReport;
as begin
  ...
  // dynamische Erzeugung der Seite2
  MyNewPage := TRavePage.Create(myReport) ;
  MyNewPage.Parent := myReport;
  MyNewPage.Name := Format('Page%d',[2]) ;
  MyNewPage.Orientation := poDefault;
  MyNewPage.PageHeight := 11.693 ;
  MyNewPage.PageWidth := 8.268 ;
  MyNewPage.Active := True ;
  ...
  // mache was mit MyNewPage
  ...
  // Verbinden der Seite 1 mit neuer Seite 2
  Rep := RVProjekt1.ProjMan.findravecomponent('MeinReport', nil) as TRaveReport;
  PageR := RVProjekt1.ProjMan.findravecomponent('MeineSeite1', Rep) as TRavePage;
  PageR.gotopage := mynewpage;

  ...
  // Drucken
  RVProjekt1.ExecuteReport('MeinReport')
end;