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:
01616902
Vues:
24
>>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
>
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.
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform