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

[Pablo Flores]

Gracias Ricardo muy bueno la soga que tiraste!!
Pablo Flores
  ----- Original Message ----- 
  From: Ricardo Aidelman 
  To: GUFA List Member 
  Sent: Thursday, May 06, 2010 2:04 PM
  Subject: [GUFA] Modificar clase base por defecto Grid.column.text


  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