Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP Resizing Objects
Message
De
09/09/2005 11:19:33
 
 
À
09/09/2005 09:05:11
Stephen Hunt
Admit Computer Services Inc.
Farmingdale, New York, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
01048046
Message ID:
01048156
Vues:
18
>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 ....
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform