Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ActivePage...Not!
Message
From
10/05/2001 15:33:19
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
10/05/2001 15:11:50
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00503661
Message ID:
00505948
Views:
27
>I finally having this working the way you likely intended it to...almost. In the above paragraph you said that it would work with pageframes inside of pageframes. I have a second pageframe on one of the pages of the first pageframe and the only way I can get a page on the inside pageframe to display as active is to first set its parent page active. Another issue is that once I'm on one of the inside pages, it will not come back to one of the outer ones without clicking on that outer page. It works fine within each respective frame, but not between them. That makes sense to me since we are only keeping track of the most previous page, but did you do something special in yours to handle the multiple pageframes? I can send you the simple example form I'm using to test this if you need more detail. Thanks!

As folks back home say, "when the cow goes, let the calf go" - here's the PrevPage code. No parameters. And yes, you were right, I had to activate the parent page as well - it's the last trick that made it work, and it was only the last two minutes after a couple of hours I was fighting this, so I forgot about it :)
nLastPage=this.lastpage
If nLastPage=1
	This.lastpage=0
	This.oPages=''
	This.StorePage(this.Pageframe1.Page1)
Else
	This.lastpage=this.lastpage-1
	with This.oPages[this.lastpage,1]
		* going just one level back, not going completely recursive
		if lower(.parent.parent.baseclass)='page'
		   .parent.parent.parent.visible=.t.
		   .parent.parent.parent.activepage=.parent.parent.pageorder
		endif
		* got to do it this way; page.activate does not shift focus.
		.parent.visible=.t.
		.parent.activepage=.pageorder
	endw
Endif

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform