FoxPro/Visual FoxPro - Agregar un Grid desde código

DEFINE CLASS Form1 AS Grid

     Caption="Prueba"

     Height=600

     Width=800

	ADD OBJECT grid1 AS grid WITH ;

		ColumnCount = 3, ;

		AllowAddNew = .T., ;

		AllowHeaderSizing = .F., ;

		AllowRowSizing = .F., ;

		DeleteMark = .F., ;

		Height = 324, ;

		Left = 12, ;

		Panel = 1, ;

		RecordSource = "contrqst", ;

		RecordSourceType = 1, ;

		ScrollBars = 2, ;

		TabIndex = 2, ;

		Top = 12, ;

		Width = 540, ;

		BackColor = RGB(255,255,255), ;

		Name = "Grid1", ;

		Column1.ColumnOrder = 2, ;

		Column1.Width = 85, ;

		Column1.BackColor = RGB(255,255,255), ;

		Column1.Name = "Column1", ;

		Column2.ColumnOrder = 3, ;

		Column2.Width = 408, ;

		Column2.BackColor = RGB(255,255,255), ;

		Column2.Name = "Column2", ;

		Column3.ColumnOrder = 1, ;

		Column3.Width = 16, ;

		Column3.Sparse = .F., ;

		Column3.BackColor = RGB(255,255,255), ;

		Column3.Name = "Column3"

	ADD OBJECT form1.Grid1.Column1.header1 AS header WITH ;

		Alignment = 2, ;

		Caption = "Importe", ;

		Name = "Header1"

ENDDEFINE

WITH Thisform.Grid_Filtro

	.Columncount = 7

	.HeaderHeight = 32

	.SetAll("Alignment",2,"Header")

	.SetAll("FontBold",.T.,"Header")

	.SetAll("FontSize",9,"Column")

	.SetAll("FontSize",9,"Header")

	.SetAll("FontSize",9,"Text")

	.Setall("BackColor",RGB(73,136,160),"Header")       && Color de fondo en encabezado

	.Setall("ForeColor",RGB(0, 0 , 0),"Header")         && Color de la letra en encabezado

    .Rowheight = 36                                     && Altura de cada Fila del Grid

    .Deletemark = .F.

    .ForeColor = RGB(0,0,0)                             && Color de las letras del Grid Negro

    .BackColor = RGB(255,255,255)                       && Color del fondo del Grid Blanco

    .ScrollBars = 3                                     && Fila y Columna con Barra

	.GridLineColor = RGB(192,192,192)                   && Color de las lineas que separan las celdas

	.GridLineWidth = 1

	.GridLines = 3                                      && Especifica si el control grid se muestra en lineas horizontales y verticales

    .RowHeight = 36                                     && El alto de las filas de la grid

	.Refresh()

	.column1.width = 62

	.column1.Header1.Caption = "Seleccion"

	.Column1.Alignment = 2                              && Donde ira el texto en el grid (Derecha, Izquierda, Centrado)

	.column2.width = 60

	.column2.Header1.Caption = "Nro. Contacto"

	.column2.InputMask = "999999"

	.column2.Header1.WordWrap = .T.

	.Column2.Alignment = 2                              && Donde ira el texto en el grid (Derecha, Izquierda, Centrado)

	.column3.width = 124

	.column3.Header1.Caption = "Carpeta"

    .Column3.Alignment = 2

	.column4.width = 70

	.column4.Header1.Caption = "Orden de Compra"

	.column4.Header1.WordWrap = .T.

    .Column4.Alignment = 2

	.column5.width = 75

	.column5.Header1.Caption = "Fecha"

    .Column5.Alignment = 2

	.column6.width = 68

	.column6.Header1.Caption = "Hora"

	.Column6.Alignment = 2

	.column7.width = 170

	.column7.Header1.Caption = "NumFilePo"

    .Column7.Alignment = 2

ENDWITH