Buenas Tardes Antonio, mira, tengo un problema, y es que uso la clase de terceros BtnGet. He conseguido compilarla con FWH8.08, pero el problema es que cuando pasa el rat贸n por encima de la imagen que simula el bot贸n del get, me aparece el bitmap que se le ha puesto nuevo al GET (con el ACTION).
驴Sabes c贸mo puedo solucionarlo?
Muchas Gracias de Antemano, si necesitas cualquier dato me lo comentas.
Mike,
Publica aqui el c贸digo de BtnGet.prg, gracias
CLASS TGet FROM TControl
DATA lBtnGet INIT .f.
bla...bla..
METHOD CreateButton() CLASS TGet
local oThis := Self
if ValType( ::bAction ) == "B" .and. !::lBtnGet //Upper( ::ClassName() ) == "TGET"DATA /*bAction, */cResName, /*oBtn,*/ lBtnORBmp
en los metodos NEW y REDEFINE
METHOD ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, nClrFore,;
nClrBack, oFont, oCursor, cMsg, lUpdate, bWhen, ;
bChanged, lReadOnly, lSpinner, bUp, bDown, bMin, ;
bMax, cResName, bAction, nBmpWidth ) CLASS TBtnGet
Super:ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, ;
nClrFore, nClrBack, oFont, oCursor, cMsg, lUpdate, ;
bWhen, bChanged, lReadOnly, lSpinner, bUp, bDown, ;
bMin, bMax )
DEFAULT nBmpWidth := 22, ::lFocusClr := .t.
::lBtnGet := .t.
bla..bla