Pb avec PagePanel

International Français
1

Bonjour,
j’essaie de mettre une image dans un canvas (CV_PagePanel) appartenant à un container (New_CC), le dit container que j’ajoute à une page de Pagepanel (PageP1).
Jusque là ça colle mais je m’aperçois que la Deuxième image s’implante dans les pages que je viens de créer.
En résumé, quand je crée ma deuxième page la première est identique à la seconde.
Je suis passé par le débugueur et j’aperçois bien l’image1 mais ensuite elle est écrasée par la deuxième.
Au départ, PageP1 est mon PagePanel
PageP1.PanelCount = -1 (il n’y a aucune page)
j = 0
j est incrémenté juste avant l’appel de cette méthode
voici mon code :

MNouvelle_Page(j as integer,p as picture,Larg as integer,Haut as integer) as integer

		'Création d'une nouvelle page automatiquement
		dim New_CC as New CC_PagePanel
		PageP1.Append
		PageP1.Value=PageP1.PanelCount-1
		New_CC.EmbedWithinPanel(PageP1,PageP1.Value)
		New_CC.Width=PageP1.Width
		New_CC.Height=PageP1.Height
		
        'PopupMenu pour visualiser les pages
		PM_PagePanel.AddRow "Page"+str(j+1)

        'image 
		New_CC.CV_PagePanel.Backdrop = p

Qu’est-ce qui cloche ?

2

En fait, comment faire pour choisir la page du PageP1 que l’on veut mettre à jour ?

3

Alors je me réponds, Problème résolu
Cela ne venait pas du contenu de la Method mais de la gestion de l’image avec mes ScrollBars dans le “Paint” du canvas (CV_Pagepanel), je faisais référence à la mauvaise image.

Pour ne pas me tromper, j’ai sélectionné la Taille du BackDrop (donc de l’image présente) dans le Canvas au lieu de la taille de l’image comme c’est plus sûr.

Voilà