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
Grato
Creo que con BtnBmp no es posible, pero prueba este ejemplo con TSButton:FWHISHOW wrote:Antonio e amigos, é possível enquanto manter pressionado um BUTTONBMP, ele ficar executando constantemente a ação desejada?
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
Manuel Mercado