btnget con tget

[Francisco Horta]

Con las modificaciones hechas a la clase tget agregando el ACTION , se puede seguir usando btnget con tget?
salu2
paco

[Patricio Avalos Aguirre]

Hola

No se puede usar ya que al usar la btnget te saldrian además el boton (..)

deberas modificar la clase tget y btnget para compatibilizarlas..

[Francisco Horta]

Patricio,
no son nada bueno retocando clases no les entiendo mucho, pero intentare a ver si me sale
salu2
paco

[Patricio Avalos Aguirre]

hola

en la clase tGet

Code: Select all  Expand view

CLASS TGet FROM TControl
..
..
DATA   lBtnGet INIT .f.
..
..
ENDCLASS

Code: Select all  Expand view

METHOD CreateButton() CLASS TGet

   local oThis := Self
..
..
   if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET" .and. !::lBtnGet

..
..
 

en la CLASE tBtnGet

Code: Select all  Expand view

METHOD New(..

  ..
  ..
  ::lBtnGet   := .t.

return ( Self )

Code: Select all  Expand view

METHOD redefine(..

  ..
  ..
  ::lBtnGet   := .t.

return ( Self )

 

[Francisco Horta]

Gracias Patricio, hare pruebas
saludos
paco

[Francisco Horta]

Patricio, con los cambios si que funciono
saludos
paco

[carlos vargas]

Gracias por la info, funciono al 100%.