Antonio - Problemas com classe button

Antonio - Problemas com classe button

Postby Rossine » Mon Jul 28, 2008 8: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.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am

Postby Rossine » Mon Jul 28, 2008 9:23 pm

Olá,

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

Code: Select all  Expand view

...
  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 :lol:

Isto está certo ?

Obrigado,

Rossine.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am

Postby Ruben D. Fernandez » Mon Jul 28, 2008 10:06 pm

Rossine:

Disculpa me meta en el tema, pero creo que ese comportamiento
normal en los botones.

Saludos

Ruben Fernandez.
Ruben D. Fernandez
 
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Postby Antonio Linares » Mon Jul 28, 2008 11:42 pm

Rossine,

Como te comenta Ruben, ese comportamiento es el usual de los botones.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42052
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Rossine » Tue Jul 29, 2008 12:36 pm

OK, entendi :lol:

Obrigado,

Rossine.
Rossine
 
Posts: 344
Joined: Tue Oct 11, 2005 11:33 am


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 74 guests