Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How do I position text where I want on a form?
Message
De
29/06/2005 14:34:16
 
 
À
29/06/2005 13:35:59
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 7 SP1
Divers
Thread ID:
01027459
Message ID:
01027477
Vues:
21
>>>I put shapes on my form and I want to position text within those shapes.
>>>
>>>Is there a command that would let me position that text exactly where I want?
>>>
>>>I could use @... SAY ... but is there something else/better?
>>
>>Well, the shapes have LEFT, etc., so use those, I'd say.
>
>Hello Peter,
>
>I meant that I want to be able to put text within the shapes.

Here's some code that illustrates what I mean:
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT shape1 AS shape WITH ;
		Top = 66, ;
		Left = 78, ;
		Height = 96, ;
		Width = 234, ;
		Name = "Shape1"

	PROCEDURE Init
		with thisform
			.addobject( 'label1', 'label' )
			.label1.left    = .shape1.left + 10
			.label1.top     = .shape1.top  + 10
			.label1.caption = 'hello'
			.label1.visible = .t.
		endwith
	ENDPROC
ENDDEFINE
Groet,
Peter de Valença

Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform