PUBLIC oform1

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

DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount =  1 , ;
		Height =  200 , ;
		Left =  12 , ;
		Top =  24 , ;
		Width =  348 , ;
		Name = "Grid1", ;
		Column1.ControlSource = "iif(!empt(c),1,0)", ;
		Column1.Sparse = .F., ;
		Column1.Name = "Column1"

	procedure init
		this.grid1.column1.removeobject("text1")
		this.grid1.column1.addobject("check1","checkbox")
		this.grid1.column1.check1.visible=.t.

	PROCEDURE Load
		create cursor tt (c c( 1 ))
		insert into tt values ('')
		insert into tt values ('*')
		insert into tt values ('')
		go top
	ENDPROC


ENDDEFINE