BUTTONBMP - Executar enquanto estiver pressionado!

[FWHISHOW]

Antonio e amigos, é possível enquanto manter pressionado um BUTTONBMP, ele ficar executando constantemente a ação desejada?


Grato

[mmercado]

Antonio e amigos, é possível enquanto manter pressionado um BUTTONBMP, ele ficar executando constantemente a ação desejada?

Creo que con BtnBmp no es posible, pero prueba este ejemplo con TSButton:

Code: Select all  Expand view  RUN

#include "FiveWin.ch"
#include "TSButton.ch"
static oWnd
//----------------------------------------------------------------------------//
function Main()
   Local oBar, oBtn
   
   DEFINE WINDOW oWnd FROM 1, 10 TO 20, 60 ;
          TITLE "Testing Buttons from disk"

   DEFINE BUTTONBAR oBar OF oWnd _3D
   DEFINE SBUTTON oBtn OF oBar FILE "\fwh\bitmaps\16x16\Open.bmp"

   oBtn:bLClicked := {||Pita(oBtn)}
   ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
Static Function Pita( oBtn )
   While oBtn:lPressed
      tone(500)
      SysRefresh()
   EndDo
Return Nil


Saludos

Manuel Mercado

[FWHISHOW]

Grato Manuel, parabéns pelo excelente trabalho.