Con las modificaciones hechas a la clase tget agregando el ACTION , se puede seguir usando btnget con tget?
salu2
paco
CLASS TGet FROM TControl
..
..
DATA lBtnGet INIT .f.
..
..
ENDCLASS
METHOD 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 )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 78 guests