Hola Arciga, necesitas crear una clase column que será la que use vfp
al crear nuevas columnas, donde puedes a su ves especificar la clase
base para los encabezados. Para eso necesitas usar la propiedad
memberClass y memberClassLibrary, headerclass y headerclasslibrary.
Aquí dejo un ejemplo funcional ( necesita que pongas en uso cualquier
archivo antes de ejecutarlo )
Nota: la clase base debe ser un prg, esto aplica también para los
PageFrames.
Saludos
Marco Plaza
****************************************************************************************
* ejemplo de clase base para columnas y encabezados en clases grid
* guardar el programa como testgrid.prg
****************************************************************************************
Public x
x=Createobject('form')
With x
.AddObject('testGrid','migrid')
.testgrid.Visible=.T.
.Visible=.T.
Endwith
Define Class miGrid As Grid
MemberClass='miColumna'
MemberClassLibrary='testgrid.prg'
ColumnCount = 5
RowHeight=25
Enddefine
Define Class miColumna As Column
BackColor=Rgb(0,255,64)
Font='Tahoma'
FontSize=16
width=150
HeaderClass="miEncabezado"
HeaderClassLibrary="testgrid.prg"
Enddefine
Define Class miencabezado As Header
Font='arial'
FontSize=16
height=20
Enddefine
*******************************************
On Oct 1, 5:24 pm, "Walter R. Ojeda Valiente" <
w...@hotmail.com>
wrote:
> No importa que sea en tiempo de diseño, puedes tener un constructor propio que haga lo que tú quieras cada vez que insertas una grilla o una columna a la grilla.
>
> Para más información, puedes descargar el documento "Clases en Visual FoxPro 9"
>
>
http://www.mediafire.com/?yi41z0y7z1fnol6
>
> Saludos.
>
> Walter.
>
>
>
>
>
>
>
> > Date: Sat, 1 Oct 2011 08:17:36 -0700
> > Subject: [vfp] Re: modificar clase grid
> > From:
antonio.arc...@gmail.com>
To:publice...@googlegroups.com