Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
BUG: SelStart not work in Column.Editbox when Sparse=.F.
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
BUG: SelStart not work in Column.Editbox when Sparse=.F.
Divers
Thread ID:
01098093
Message ID:
01098093
Vues:
61
This sounds like a bug. When Column.Sparse=.F. we will not be able to programmatically control the cursor position in an Editbox of a column.
Push Key Clear
On Key Label F5 _Screen.ActiveForm.Grid1.Column1.Editbox1.SelStart=3
o=NewObject("form1")
o.Show(1)
Pop Key

Define Class form1 As Form
	Width=500
	Height=300
	Add Object Grid1 As MyGrid
	Add Object Checkbox1 As Checkbox With Top=210, Caption='Sparse', Value=.T.
	Add Object Label1 As Label With AutoSize=.T.,Top=230;
		, Caption='Push F5 to run "_Screen.ActiveForm.Grid1.Column1.Editbox1.SelStart=3"'

	Procedure Load
	Create Cursor Test (f1 m)
	Insert Into Test Values ('Text Line 1')
	Insert Into Test Values ('Text Line 2')
	Go Top

	Function Checkbox1.InteractiveChange
	Thisform.Grid1.Column1.Sparse=This.Value
	Thisform.Grid1.Column1.SetFocus
EndDefine

Define Class MyGrid As Grid
	Height = 200
	RowHeight = 60
	Add Object Column1 As EditColumn
EndDefine

Define Class EditColumn As Column
	Add Object Header1 As Header
	Add Object Editbox1 As EditBox
EndDefine
Ben
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform