topic-12079

Board index FiveWin para Harbour/xHarbour Antonio - Problemas com classe button

Posts: 344

Joined: Tue Oct 11, 2005 11:33 AM

Antonio - Problemas com classe button
Posted: Mon Jul 28, 2008 08:58 PM

Olá Antonio,

Testando o exemplo TESTBUBM.PRG clique sobre qualquer botão e mantenha o botão do mouse pressionado e arraste o cursor do mouse para fora do botão e solte-o, você verá que a função que está em "bAction" não será executada.

Obrigado,

Rossine.

Obrigado, Regards, Saludos

Rossine.

Harbour and Harbour++

Rossine

Posts: 344

Joined: Tue Oct 11, 2005 11:33 AM

Antonio - Problemas com classe button
Posted: Mon Jul 28, 2008 09:23 PM

Olá,

Incluí o trecho abaixo em BUTTON.PRG, e talvez isto seria uma possível solução:

Code: Select all Collapse

...
  METHOD LButtonUp( nRow, nCol, nFlags )
...


METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TButton

//   if ! ::lProcessing       Sempre retorna .F.
      ::Click()
//   endif

return nil

...

Testei aqui e funcionou