FoxPro/Visual FoxPro - Grid en FoxPro

keDynDark="Rgb(217,220,212)"

keDynClear="Rgb(233,232,228)"

lnColumnas=8

lDynBack=.t.

With thisform.Grid1

	.RecordSource = "Tabla"

	.RowHeight=18

	.ColumnCount=lnColumnas

	if ldynback

		.SetAll("DynamicBackColor","IIF(MOD(RECNO( ), 2)=0, &keDynClear,&keDynDark)", "Column")

	endif

*	.Setall("Readonly",.t.,"Column")      && columnas solo lectura

	.Setall("Fontsize",8,"Column")	      && tamaño de letras en columnas

	.Setall("Fontsize",8,"Header")         && tamaño de letras en Encabezado Columnas

	.Setall("FontBold",.t.,"Header")       && Encabezado en negritas

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

	.Setall("ForeColor",Rgb(255,255,255),"Header")      && Color de la letra en encabezado

endwith

* Luego pueden seguir instrucciones particulares para las columnas.

With thisform.grid1.Columns[1]

                .Header1.Caption="Importe"

                .Header1.Alignment=2

                .ControlSource='Tabla.Campo1'

                .Width=75

                .InputMask="999,999.99"

                .Format="Z"

endwith

* y siguen las otras columnas.

with thisform.grid1

*	.Setall("Readonly",.t.,"Column")      && columnas solo lectura

	.Setall("Fontsize",8,"Column")	      && tamaño de letras en columnas

	.Setall("Fontsize",8,"Header")         && tamaño de letras en Encabezado Columnas

	.Setall("FontBold",.t.,"Header")       && Encabezado en negritas

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

	.Setall("ForeColor",Rgb(255,255,255),"Header")      && Color de la letra en encabezado

        .refresh