[GUFA] Modificar clase base por defecto Grid.column.text

[Ricardo Aidelman]

Hola Pablo:

Podés definir una librería de clases (MyLibrary.prg) y poner:

 

Define Class MyColumn As Column

 

    HeaderClass = "MyHeader"

    HeaderClassLibrary = "MyLibrary.prg"

    

    Add Object MyTextBox1 as MyTextBox

    

Enddefine && MyColumn

 

 

Define Class MyHeader as Header 

 

 

Enddefine && MyHeader

 

 

Define Class MyTextBox as TextBox 

      

Enddefine && MyTextBox

 

Luego, en tu clase base grdBase, pones:

MemberClass = "MyColumn"

MemberClassLibrary = "MyLibrary.prg"

 

De ésta forma, no solo personalizas el TextBox, sino tambien las columnas y
los headers

 

Saludos

 

ricardo aidelman

(socio 1545)

 

 

 

 

From: GUFA@mug.org.ar [mailto:g...@mug.org.ar] On Behalf Of Pablo Flores
Sent: Miércoles, 05 de Mayo de 2010 09:01 p.m.
To: GUFA List Member
Subject: [GUFA] Modificar clase base por defecto Grid.column.text

 

Hola a todos...

    tengo la siguiente inquietud. Tengo  una clase base  grdBase y tambien
una txtBoxGrid, la cual quisiera que cuando defino la cantidad de columnas
en grdBase (en tiempo de desarrollo o ejecucion) me tome por defecto el
TxtBoxGrid.

ejemplo: grdCliente as GrdBase

    teniendo grdClientes.columncount=0 

    y coloco grdClientes.columncount=1 (pone por defecto el
grdClientes.column1.text1.class="TextBox")

    yo quisiera que cuando agrego una o mas columnas, me queden asi:

     grdClientes.columncount=1 (tenga por defecto el
grdClientes.column1.text1.class="TextBoxGrid")

Espero me puedan ayudar

Gracias

Pablo Flores