Off topic

[Mike Serra]

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.

[Antonio Linares]

Mike,

Publica aqui el código de BtnGet.prg, gracias

[Patricio Avalos Aguirre]

Mike

Debes modificar ambas clases

yo modifique la btnget y la clase tget

en la clase tGET cree una variable

Code: Select all  Expand view

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"


en la clase tbtnget
comente la baction y oBtn, ya que estan en tGet

Code: Select all  Expand view

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


Espero que te sirva