PUBLIC oform1

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

DEFINE CLASS form1 AS form


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


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount =  1 , ;
		Height =  200 , ;
		Left =  24 , ;
		Panel =  1 , ;
		Top =  24 , ;
		Width =  320 , ;
		Name = "Grid1", ;
		Column1.ControlSource = "f+' '+i+' '+o", ;
		Column1.Width =  268 , ;
		Column1.Name = "Column1"

	PROCEDURE Load
		create cursor tt (f v( 10 ), i v( 10 ), o v( 10 ))
		insert into  tt values('Иванов', 'Иван', 'Иванович')
		insert into  tt values('Петров', 'Петр', 'Петрович')
		go top
	ENDPROC


ENDDEFINE