Con las modificaciones hechas a la clase tget agregando el ACTION , se puede seguir usando btnget con tget?
salu2
paco
____________________
Paco
Paco
Con las modificaciones hechas a la clase tget agregando el ACTION , se puede seguir usando btnget con tget?
salu2
paco
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..
Patricio,
no son nada bueno retocando clases no les entiendo mucho, pero intentare a ver si me sale
salu2
paco
CLASS TGet FROM TControl
..
..
DATA Â lBtnGet INIT .f.
..
..
ENDCLASSMETHOD CreateButton() CLASS TGet
  local oThis := Self
..
..
  if ValType( ::bAction ) == "B" .and. Upper( ::ClassName() ) == "TGET" .and. !::lBtnGet
..
..METHOD New(..
 ..
 ..
 ::lBtnGet  := .t.
return ( Self )METHOD redefine(..
 ..
 ..
 ::lBtnGet  := .t.
return ( Self )Gracias Patricio, hare pruebas
saludos
paco
Patricio, con los cambios si que funciono
saludos
paco
Gracias por la info, funciono al 100%.