topic-9979

Posts: 80

Joined: Thu Nov 29, 2007 02:01 PM

BUTTONBMP - Executar enquanto estiver pressionado!
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

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: BUTTONBMP - Executar enquanto estiver pressionado!
Posted: Sat Feb 16, 2008 04: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 Collapse

#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

manuelmercado at prodigy dot net dot mx

FWHISHOW

Posts: 80

Joined: Thu Nov 29, 2007 02:01 PM

BUTTONBMP - Executar enquanto estiver pressionado!
Posted: Mon Feb 18, 2008 07:25 PM

Grato Manuel, parabéns pelo excelente trabalho.

FiveTech Support Forums

Continue the discussion