FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour KeyDow No funciona correctamente con la VK_ESCAPE
Posts: 186
Joined: Sat Oct 08, 2005 07:32 AM
KeyDow No funciona correctamente con la VK_ESCAPE
Posted: Fri Mar 10, 2006 11:30 AM

Antonio
Desde el último build la captura en un Dialogo de la tecla VK_ESCAPE utilizando el metodo Keydown, no funciona correctamente y antes funciona. Adjunto ejemplo:

FUNCTION MAIN()

LOCAL oDlg, oBrw

DEFINE DIALOG oDlg

  oDlg:bKeyDown  = { |nKey, nFlags| if(nkey==VK_ESCAPE, msginfo("Adios"),) }

@ 3, 1 BUTTON "&Close";
       ACTION oDlg:End()

ACTIVATE DIALOG oDlg;
         CENTER

RETURN NIL
Toni Sales
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
KeyDow No funciona correctamente con la VK_ESCAPE
Posted: Fri Mar 10, 2006 05:48 PM

//-> El correcto es asi...

Include "FiveWin.Ch"

FUNCTION MAIN()

LOCAL oDlg

DEFINE DIALOG oDlg

@ 3, 10 BUTTON "&Salir" OF oDlg                                           ;
        SIZE 40, 12                                                       ;
        ACTION( oDlg:End(), __Quit() ) CANCEL

ACTIVATE DIALOG oDlg CENTERED                                             ;
         VALID( GetKeyState( VK_ESCAPE ) )

RETURN NIL

//-> Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
KeyDow No funciona correctamente con la VK_ESCAPE
Posted: Fri Mar 10, 2006 06:34 PM

Toni,

Estamos revisándolo.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
KeyDow No funciona correctamente con la VK_ESCAPE
Posted: Fri Mar 10, 2006 11:15 PM

Toni,

En el nuevo build de FWH, la pulsación de VK_ESCAPE está siguiendo el camino correcto que es generar una llamada al método Command() con valor de IDCANCEL (2) que llama a :End( IDCANCEL ).

En vez de usar bKeyDown ó bKeyChar, debes realizar la comprobación desde el VALID del diálogo.

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion