DEFINE CLASS form1 AS form

	Top =  0 
	Left =  0 
	Height =  246 
	Width =  271 
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount =  3 , ;
		DeleteMark = .F., ;
		Height =  204 , ;
		Left =  12 , ;
		Panel =  1 , ;
		RecordSource = "table_", ;
		ScrollBars =  2 , ;
		Top =  12 , ;
		Width =  228 , ;
		GridLineColor = RGB( 192 , 192 , 192 ), ;
		Name = "Grid1", ;
		Column1.ControlSource = "table_.ertyet", ;
		Column1.Width =  75 , ;
		Column1.Visible = .T., ;
		Column1.Name = "Column1", ;
		Column2.ControlSource = "table_.dfhdf", ;
		Column2.Width =  75 , ;
		Column2.Visible = .T., ;
		Column2.Name = "Column2", ;
		Column3.Width =  41 , ;
		Column3.Sparse = .F., ;
		Column3.Name = "Column3"

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

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

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

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

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

	ADD OBJECT form1.grid1.column3.command1 AS commandbutton WITH ;
		Top =  23 , ;
		Left =  29 , ;
		Height =  27 , ;
		Width =  84 , ;
		Caption = "...", ;
		Name = "Command1"

	PROCEDURE command1.Click
		WAIT 'ertyet= '+table_.ertyet+CHR( 13 )+'Dfhdf= '+LTRIM(STR(table_.Dfhdf))+CHR( 13 )+'Recno= '+LTRIM(STR(RECNO())) WINDOW
	ENDPROC

ENDDEFINE