FiveTech Software tech support forums

Posted: **Sat Feb 16, 2008 12:17 pm**

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

Grato

Posted: **Sat Feb 16, 2008 4:10 pm**

FWHISHOW wrote: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

#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

Posted: **Mon Feb 18, 2008 7:25 pm**

Grato Manuel, parabéns pelo excelente trabalho.

FiveTech Software tech support forums

BUTTONBMP - Executar enquanto estiver pressionado!

BUTTONBMP - Executar enquanto estiver pressionado!

Re: BUTTONBMP - Executar enquanto estiver pressionado!