PUBLIC o
o = CREATEOBJECT('CheckInGrid')
o.show( 1 )

DEFINE CLASS checkingrid AS form


	Top =  0 
	Left =  0 
	Caption = "Form1"
	Name = "Form1"


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


	PROCEDURE Load
		CREATE CURSOR test (A i, B i)

		INSERT INTO test (A,B) VALUES ( 1 , 0 )
		INSERT INTO test (A,B) VALUES ( 2 , 1 )
		GO TOP IN test 

		SET MULTILOCKS ON 

		CURSORSETPROP("Buffering" , 5 , 'test' )
	ENDPROC


	PROCEDURE Init
		WITH this.grid1
			.recordsource = 'test'
			.columncount =  2 
			.column1.controlsource = 'test.A'
			.column2.addobject('Check1','checkbox')
			.column2.currentcontrol = 'Check1'
			.column2.check1.visible = .t.
			.column2.sparse = .f.
		ENDWITH 
	ENDPROC


ENDDEFINE