Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Anchor for two editboxes
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2012
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01616840
Message ID:
01616898
Vues:
47
>Hi Hugo,
>
>How do I modify your sample code to "instroduce" a PageFrame. I just want to see if it will change how it works in your sample code.
>
>I added a new (empty) PageFrame to my "complicated" form and dropped two Edit boxes on this empty PageFrame. And the anchor DOES NOT work correctly. Then I dropped two Edit boxes on the same form, away from the PageFrame. And this time the Anchor WORKS.
>I would like to see if this is just my form where PageFrame "acts up" or in a sample form it will do the same.

Hi Dmitry,

Something like this, I added a label in between the edit boxes, but is basically the same thing.
loForm				= createobject('myForm')
loForm.show(1)

define class myForm as form
	height				= 480
	add object myPageFrame as myPageFrame  with top =0, left = 0, width = 260, height = 460, anchor = 15

	function init()
		this.myPageFrame.Page1.newobject('myContainer', 'myContainer')
		this.myPageFrame.Page1.myContainer.visible				= .t.
	endfunc
enddefine

define class myContainer as container
	top		= 0
	left		= 0
	width		= 260
	height		= 460
	anchor		= 15
	backcolor	= rgb(0, 192, 192)
	add object myTopEditBox as editbox with top = 3, width = 245, height = 200, left = 5, anchor = 75
	add object myLabel as label with caption = 'This is some caption', top = 207, autosize = .t., backstyle = 0, anchor=80
	add object myBotEditBox as editbox with top = 225, width = 245, height = 200, left = 5, anchor = 30
enddefine

define class myPageFrame as pageframe
	pagecount = 2
enddefine
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?

"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare

"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform