Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Anchor for two editboxes
Message
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP2
OS:
Windows Server 2012
Network:
Windows 2008 Server
Database:
MS SQL Server
Application:
Web
Miscellaneous
Thread ID:
01616840
Message ID:
01616898
Views:
48
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform