Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Anchor and font
Message
From
07/08/2010 06:45:28
 
General information
Forum:
Visual FoxPro
Category:
Other
Title:
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01473614
Message ID:
01475605
Views:
48
>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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform