DEFINE CLASS form1 AS form

	Top =  0 
	Left =  0 
	Height =  312 
	Width =  488 
	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount =  1 , ;
		Height =  290 , ;
		Left =  0 , ;
		RecordSource = "temp_table", ;
		Top =  0 , ;
		Width =  455 , ;
		Name = "Grid1", ;
		Column1.ControlSource = "", ;
		Column1.Name = "Column1"


	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"

	PROCEDURE Init
		This.ShowTips = .T.

		This.Grid1.ToolTipText = "Hi, I'm a Grid."
		This.Grid1.Column1.ToolTipText = "Hi, I'm a Column."
		This.Grid1.Column1.Header1.ToolTipText = "Hi, I'm a Header."
		This.Grid1.Column1.Text1.ToolTipText = "Hi! I'm the Textbox!"
	ENDPROC


ENDDEFINE