Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
WordWrap
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
00464198
Message ID:
00465541
Vues:
16
>I need to be able to disable WordWrap in an edit box. Anyone know how?

Here's an idea you could probably use. You'll want to add code to figure out how tall and wide to make it depending on teh size of the file. ALso, in the KeyPress(), track the Edit Boxes "scrolled position" and make it in synch with the forms.
oFOrm = createobject('form1')
oFOrm.Show(1)
**************************************************
*-- Form:         form1 (c:\vfptest\nowwedit.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   01/18/01 08:43:05 PM
*
DEFINE CLASS form1 AS form


	Top = 0
	Left = 0
	Height = 201
	Width = 260
	ScrollBars = 3
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT edit1 AS editbox WITH ;
		Height = 181, ;
		Left = 0, ;
		ScrollBars = 0, ;
		Top = 0, ;
		Width = 241, ;
		Name = "Edit1"


	PROCEDURE edit1.Init
		this.value = filetostr(home() + 'vfp6faq.txt')
		this.width = 1000
		this.height = 1000
	ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform