Acción con tecla ESCAPE en tGet

[César E. Lozada]

Las siguientes instrucciones en los metodos KeyChar y KeyDown de tGet y tControl(), no sólo evitan un beep, sino que también impiden la ejecución de cualquier acción al pulsar la tecla ESC.

if nKey == VK_ESCAPE // avoids a beep!
::oWnd:KeyChar( nKey, nFlags )
return 1
endif

Tuve que hacer override de esos métodos (quitando estas instrucciones) para que un diálogo con un get se cerrara al pulsar un ESC, es decir,
@ 0,0 GET oGet VAR cVar OF oDlg ......
oGet:bKeyDown:={|nK,nF| if(nK=VK_ESCAPE,oDlg:End(),nil)}

Pregunta: ¿Cuáles pueden ser las consecuencias negativas de estos override?

Gracias.
César Lozada

[karinha]

Buenos dias Cesar, desculpe el incomodo...

Por favor, tienes alguna nueva version de SETMENUBG()????

//

Code: Select all  Expand view  RUN

*******************************************************************************
*
* Function SetMenuBG(oWndMain, nClrBack, oBrush)
*
*   ENGLISH : Changes menus backgrounds or paint them with a brush
*   ESPANHOL: Cambia el color de fondo de los menús o les agrega un brush
*   
*  TESTED / PROBADO: FWH23c, xHarbour0.81
*
*  César E. Lozada (cesarlozada@hotmail.com)
*  Los Teques, Venezuela    2003-08-08
*
*******************************************************************************


Best regars, saludos.

[Antonio Linares]

César,

En principio no tiene que haber problemas por ese cambio, salvo que el GET tenga un VALID y no quieras que el usuario salga del diálogo con ESC.

Aunque en tal caso el VALID del diálogo se ejecutaría.

[karinha]

Up! Donde está César??