Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ActivePage...Not!
Message
De
09/05/2001 13:00:39
Dragan Nedeljkovich (En ligne)
Now officially retired
Zrenjanin, Serbia
 
 
À
08/05/2001 16:09:24
Jay Johengen
Altamahaw-Ossipee, Caroline du Nord, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00503661
Message ID:
00505379
Vues:
23
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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform