PUBLIC oForm 

oForm = CREATEOBJECT('gridlist')
oForm.Show( 1 )
*
DEFINE CLASS gridlist AS form


	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT edit1 AS editbox WITH ;
		Height =  228 , ;
		Left =  168 , ;
		Top =  12 , ;
		Width =  192 , ;
		Name = "Edit1"


	ADD OBJECT grid1 AS grid WITH ;
		Height =  229 , ;
		Left =  0 , ;
		Top =  12 , ;
		Width =  157 , ;
		Name = "Grid1"


	PROCEDURE Init
		WITH this.grid1
			.columnCount =  1 
			.recordSource = 'test'
			.column1.controlsource = 'Test.id'
		ENDWITH 

		this.edit1.ControlSource = 'Test.texts'
	ENDPROC


	PROCEDURE Load
		IF !USED('test')
			CREATE CURSOR test (id i , texts m)
			INSERT INTO test (id, texts) VALUES ( 1 , REPLICATE('First Record',  10 ))
			INSERT INTO test (id, texts) VALUES ( 2 , REPLICATE('Second Record ',  10 ))
		ENDIF 
		GO TOP IN test
	ENDPROC


	PROCEDURE grid1.AfterRowColChange
		LPARAMETERS nColIndex

		thisform.edit1.Refresh()
	ENDPROC


ENDDEFINE
*
*-- EndDefine: gridlist
**************************************************