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:
01616916
Vues:
50
>Thank you, Hugo. As I am sure you tried, your sample code works. So must be something weird in my form that caused the PageFrame to have this problem. I will not try in another window of the application.

I do not know Dmitry, are you sure you start with all your anchors at zero before changing any size? Look at what would happen with a modified version of the previous code if you start the object anchors with a non-zero value:
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')
		with this.myPageFrame.Page1.myContainer
			.top					= 0
			.left					= 0
			.width					= 260
			.height					= 460
			.anchor					= 15
			.myTopEditBox.Anchor	= 75
			.myLabel.Anchor			= 80
			.myBotEditBox.Anchor	= 30
			.visible				= .t.
		endwith
	endfunc
enddefine

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

define class myPageFrame as pageframe
	pagecount = 2
enddefine
Now put the anchors back to zero (in the add object of the class myContainer) and it will work fine, the issue was the changing of the dimensions of the parent container with anchor values already set (an thus tied to the original size).
"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