Page 1 of 1
btnget con tget
Posted:
Tue Jan 05, 2010 9:57 pmby Francisco Horta
Con las modificaciones hechas a la clase tget agregando el ACTION , se puede seguir usando btnget con tget?
salu2
paco
Re: btnget con tget
Posted:
Wed Jan 06, 2010 12:15 pmby 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..
Re: btnget con tget
Posted:
Thu Jan 07, 2010 7:16 amby Francisco Horta
Patricio,
no son nada bueno retocando clases no les entiendo mucho, pero intentare a ver si me sale
salu2
paco
Re: btnget con tget
Posted:
Thu Jan 07, 2010 1:36 pmby 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 )
Re: btnget con tget
Posted:
Mon Jan 11, 2010 2:07 pmby Francisco Horta
Gracias Patricio, hare pruebas
saludos
paco
Re: btnget con tget
Posted:
Sat Jan 23, 2010 7:58 pmby Francisco Horta
Patricio, con los cambios si que funciono
saludos
paco
Re: btnget con tget
Posted:
Sun May 02, 2010 2:48 amby carlos vargas
Gracias por la info, funciono al 100%.