Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ActivePage...Not!
Message
From
09/05/2001 13:00:39
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
08/05/2001 16:09:24
Jay Johengen
Altamahaw-Ossipee, North Carolina, United States
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00503661
Message ID:
00505379
Views:
24
This message has been marked as a message which has helped to the initial question of the thread.
>>>>I created two methods, StorePage and PrevPage. The first would store a reference to the current page into an array property on the form, and the other would just activate the previously stored page.
>>>
>>>One last question, Dragan... You said oPageRef contained the path reference to the page; how did you set this value? Thanks, Renoir
>>
>>That's what the other method's for - in any page which receives focus I had a thisform.storepage(this).
>
>I'm sorry to belabor this, but I guess what I really was asking is what syntax are you actually using in the StorePage method to assign the value? Is there a command that returns the path of objects at the form level? Thanks again!

So right said Fred (qv), and here's the method. It's not much, so I decided to publish it with a few extra comments. oPages is an array property, and
Lpara oPageRef
lcFullName=SYS( 1272, oPageRef)
lnAt= ascan(this.oPAges,lcFullName)
if lnAt=0    && not visited yet
	This.lastpage=this.lastpage+1
	Dime this.oPAges[this.lastpage,2]
	This.oPAges[this.lastpage,1]=oPageRef
	This.oPAges[this.lastpage,2]=lcFullName
else    && aha, a revisit
	nLastpage=lnAt/2
* so discard later references
	for i=this.lastpage to nLastpage+1 step -1
		this.opages[i,1]=null
		this.opages[i,2]=''
	endf
	this.lastpage=nlastpage
Endif
So in the PrevPage method I'm only finding the reference to the previous page, and that would be this.opages[this.lastpage-1, 1], and then activate that page - and decrease this.lastpage by 1.

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