Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Anchor and font
Message
De
07/08/2010 06:45:28
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01473614
Message ID:
01475605
Vues:
49
>Hi,
>
>When I use anchor value for a text box (setting it to 80) it nicely changes the size (height) as you enlarge the form. But the font of the text box does not change. Is it possible to make the font increase as well?
>
>TIA.

you can try with this trace:
PUBLIC oform1

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


DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 142
	Width = 357
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Anchor = 15, ;
		Value = "some Text", ;
		Left = 36, ;
		Top = 48, ;
		Width = 241, ;
		Name = "Text1"


	PROCEDURE text1.Move
		LPARAMETERS nLeft, nTop, nWidth, nHeight
		this.FontSize = MAX(m.nHeight/2,4)
		* 
	ENDPROC


ENDDEFINE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform