Discussion :

[od.dev]

Bonjour à tous,

Alors tout d'abord, je confirme : travailler dynamiquement sur un report Rave depuis Delphi, c'est du velour

Mon seul problème, pour l'instant, c'est que j'ai tout essayé pour créer une nouvelle page, mais rien y fait, i veut pô

J'ai essayé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
inc(NumPage);
MaPage := MonReport.CreateChild(TRavePage, 'MaPage' + IntToStr(NumPage)) as TRavePage;
MaPage.Parent := MonReport;

ou
MonReport.NewPage

Mais rien à faire, Il ne créé pas de nouvelle page, et il superpose sur la page 1 ce qu'il est sensé faire sur la page 2. C'est joli, mais c'est pas ce je veux faire .

J'ai bien vu :
MonReport.PageList.Add()
mais c'est à base de pointeur . Quelqu'un pourrait-il m'en dire plus ?

Merci d'avance.

[SergioMaster]

je n'ai jamais essayé de créer une nouvelle page de manière dynamique .

Une réflexion toutefois il faut que la première page 'passe la main' à la seconde .

MonReport.NewPage << sans vérifier je dirais que cela provoque un saut de page , pas une nouvelle page , a voir .

Ta création par CreateChild de la page te donne t-il un pointeur valide (assigned) ?

Va falloir que j'essaye , cela me semble un match intéressant

[od.dev]

Une réflexion toutefois il faut que la première page 'passe la main' à la seconde .

Oui mais comment affecter dynamiquement la propriété "GotoPage" à la 1ère page ?
J'y arrive pô

MonReport.NewPage << sans vérifier je dirais que cela provoque un saut de page , pas une nouvelle page , a voir .

J'ajoute donc cet ordre logiquement après la création de page, juste avant de continuer à écrire... on verra...

Ta création par CreateChild de la page te donne t-il un pointeur valide (assigned) ?

Ben j'ai bien l'impression que non, puisque quand je fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
inc(NumPage);
MaPage := MonReport.CreateChild(TRavePage, 'MaPage' + IntToStr(NumPage)) as TRavePage;
MaPage.Parent := MonReport;
MonReport.PageList.Add(MaPage);

Il plante sur le Add

[od.dev]

J'ai réussi comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
inc(NumPage);
 
MaPage := MonReport.CreateChild(TRavePage, 'MaPage' + IntToStr(NumPage)) as TRavePage;
MaPage.Parent := MonReport;
MaPage.Name := 'MaPage' + IntToStr(NumPage);
 
MaPagePrec := RvProject1.ProjMan.FindRaveComponent('Report1.MaPage' + IntToStr(NumPage -1), nil) as TRavePage;
MaPagePrec.GotoPage := MaPage;
MonReport.NewPage;

Mais je ne suis pas encore au bout de mes peines... A très bientôt

[od.dev]

En clair, c'est bien le GotoPage qui manquait pour passer la main à la nouvelle page.
Merci Sergio