Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
VFP Resizing Objects
Message
From
09/09/2005 11:19:33
 
 
To
09/09/2005 09:05:11
Stephen Hunt
Admit Computer Services Inc.
Farmingdale, New York, United States
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
01048046
Message ID:
01048156
Views:
19
>Does VFP 9.0 have any resizing features built into it that will resize all objects on a form or class when the user drags the form or class open wider ? Or does anyone know of any third party product that works well with VFP 9.0 that will also perform this task ?

A raw start point:
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show

DEFINE CLASS form1 AS form

	autocenter  = .t.
	Height = 107
	Width = 115
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT label1 AS label WITH ;
		Anchor = 240, ;
		Caption = "Label1", ;
		Height = 17, ;
		Left = 34, ;
		Top = 44, ;
		Width = 40, ;
		Name = "Label1"


	PROCEDURE label1.Move
		LPARAMETERS nLeft, nTop, nWidth, nHeight
		this.FontSize=MAX(4,MIN(m.nHeight*0.8,72))
	ENDPROC


ENDDEFINE
if you want a XY resize you should add TXTWIDTH()*FONTMETRIC() measure ....
Previous
Reply
Map
View

Click here to load this message in the networking platform