adding an object to an existing class

[Hannes214]

Hi

Is it possible, to add an Object ( Label, Image .. ) to an existing Page of a Pageframe?

I need a solution for the following problem:

...
npage = npage + 1
...
x.Pageframe1.Pagecount=npage
x.Pageframe1.Pages[npage].Caption='xxx'
...

now i want to add a label and an image to all the pages of the pageframe...
..is that possibnle? and whocan i do that?

IT-Management
( FoxPro-Newbi ) )

 

[Mike Lewis]

Every container object in VFP has an AddObject method. This lets you add objects at run time.

Mike




__________________________________
Mike Lewis (Edinburgh, Scotland)

My Visual FoxPro site: www.ml-consult.co.uk

 

[bborissov]

FOR EACH oPage IN x.Pageframe1.Pages
    oPage.AddObject("Label99","Label")
    oPage.Label99.Top = xx
    oPage.Label99.Left = xx
    ** All properties you want set here

    *** THIS IS IMPORTANT. BY DEFAULT All objects added programaticly are invisible
    oPage.Label99.Visible = .t.

    oPage.AddObject("Image99","Image")
    oPage.Image99.Visible = .t.
ENDFOR

(not tested)

Borislav Borissov