PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


DEFINE CLASS form1 AS form


	Top =  0 
	Left =  0 
	Height =  250 
	Width =  481 
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount =  3 , ;
		Height =  200 , ;
		Left =  24 , ;
		Top =  24 , ;
		Width =  276 , ;
		Name = "Grid1", ;
		Column1.Name = "Column1", ;
		Column2.Name = "Column2", ;
		Column3.Name = "Column3"


	ADD OBJECT form1.grid1.column1.header1 AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"


	ADD OBJECT form1.grid1.column1.text1 AS textbox WITH ;
		BorderStyle =  0 , ;
		Margin =  0 , ;
		ForeColor = RGB( 0 , 0 , 0 ), ;
		BackColor = RGB( 255 , 255 , 255 ), ;
		Name = "Text1"


	ADD OBJECT form1.grid1.column2.header1 AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"


	ADD OBJECT form1.grid1.column2.text1 AS textbox WITH ;
		BorderStyle =  0 , ;
		Margin =  0 , ;
		ForeColor = RGB( 0 , 0 , 0 ), ;
		BackColor = RGB( 255 , 255 , 255 ), ;
		Name = "Text1"


	ADD OBJECT form1.grid1.column3.header1 AS header WITH ;
		Caption = "Header1", ;
		Name = "Header1"


	ADD OBJECT form1.grid1.column3.text1 AS textbox WITH ;
		BorderStyle =  0 , ;
		Margin =  0 , ;
		ForeColor = RGB( 0 , 0 , 0 ), ;
		BackColor = RGB( 255 , 255 , 255 ), ;
		Name = "Text1"


	ADD OBJECT text1 AS textbox WITH ;
		ControlSource = "tt.t", ;
		Height =  23 , ;
		Left =  348 , ;
		Top =  48 , ;
		Width =  100 , ;
		Name = "Text1"


	ADD OBJECT text2 AS textbox WITH ;
		ControlSource = "tt.s", ;
		Height =  23 , ;
		Left =  348 , ;
		Top =  84 , ;
		Width =  100 , ;
		Name = "Text2"


	ADD OBJECT text3 AS textbox WITH ;
		ControlSource = "tt.p", ;
		Height =  23 , ;
		Left =  348 , ;
		Top =  132 , ;
		Width =  100 , ;
		Name = "Text3"


	PROCEDURE Load
		create cursor tt (t i, s i, p i)

		insert into tt values ( 1 , 2 , 3 )
		insert into tt values ( 2 , 3 , 4 )
		insert into tt values ( 3 , 5 , 6 )

		select tt
		go top
	ENDPROC


	PROCEDURE grid1.AfterRowColChange
		LPARAMETERS nColIndex
		thisform.text1.refresh()
		thisform.text2.refresh()
		thisform.text3.refresh()
	ENDPROC


ENDDEFINE