BUTTONBAR no sale CON VK_ESCAPE (RESUELTO)

[albeiroval]

Buenas Noches.

Necesito salir con la tecla VK_ESCAPE en un BUTTONBAR pero no lo hace.
Aqui el codigo que uso.

Code: Select all | Expand

static Function DialogMain()   Local oDlg  Local oFont  Local oBar  Local bKeydown  Local oBtn         := Array(4)  Local lExitDlg := FALSE    DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12 BOLD      DEFINE DIALOG oDlg RESOURCE "ButtonBar" TITLE "Egreso de Caja" FONT oFont ICON aBitmap[ BMP32_ICON ];     TRANSPARENT      REDEFINE BUTTONBAR oBar id 100 OF oDlg 2010 SIZE 75, 70  DEFINE BUTTON oBtn[1] OF oBar;     PROMPT "Nueva";     RESOURCE aBitmap[ BMP32_NEW ];        DEFINE BUTTON oBtn[2] OF oBar;     PROMPT "Buscar";     RESOURCE aBitmap[ BMP32_SEARCH ];       DEFINE BUTTON oBtn[3] OF oBar;     PROMPT "Listar";     RESOURCE aBitmap[ BMP32_BROWSE ];       GROUP        DEFINE BUTTON oBtn[4] OF oBar;     PROMPT "Salir";     RESOURCE aBitmap[ BMP32_EXIT ];     ACTION ( lExitDlg:= TRUE, oDlg:End() );     GROUP    oBtn[4]:lCancel = TRUE       oBar:WinStyle( WS_BORDER, .F. )         AEval( oDlg:aControls, {|o| o:bKeyDown := {|nKey| KeyDown( nKey, oDlg, @lExitDlg )} } )    ACTIVATE DIALOG oDlg;    VALID lExitDlg;    ON INIT ( DisableSysMenuDlg(oDlg) )      RELEASE FONT oFont    Return Nilstatic Function KeyDown( nKey, oDlg, lExitDlg )        if GetKeyState( VK_ESCAPE )       ? "VK_escape"     lExitDlg := TRUE     oDlg:End()  else      ? "nKey", nKey    endif                                     Return Nil 

[joseluisysturiz]

Saludos, solo por casualidad...no hagas comparacion si no asignacion...prueba con oBtn:lCancel := .t., no se, es solo costumbre de hacerlo asi y funciona al pelo sin hacer mas nada, gracias...

[albeiroval]

Jose luis, un saludo hermano.

La instruccion oBtn[4]:lCancel = TRUE no es para comparacion lo que hace es asignar el valor TRUE, igual probe
como tu dices oBtn[4]:lCancel := TRUE y tampoco funciona

[karinha]

STATIC lExitDlg := .F.

en el boton de salida,

lExitDlg := .T.

[albeiroval]

Karihna,

STATIC lExitDlg := .F.

en el boton de salida,

lExitDlg := .T.

Tampoco funciona

[albeiroval]

Me respondo yo mismo.

Code: Select all | Expand

oDlg:bValid = <||                                if GetKeyState( VK_ESCAPE )                                  if MsgYesNo("Salir de Egresos ?", Name_Empresa)                                    oDlg:End()                                    Return TRUE                                     endif                                endif                                                                Return FALSE                                > ACTIVATE DIALOG oDlg;    ON INIT ( DisableSysMenuDlg(oDlg) )  

[cmsoft]

La tecla ESC por defecto cierra el dialogo, excepto que tenga una clausula Valid, pero es cierto que no la entrega como una nKey.
En tu ejemplo hubiese bastado:

Code: Select all | Expand

ACTIVATE DIALOG oDlg;    ON INIT ( DisableSysMenuDlg(oDlg) )

[albeiroval]

cmsoft,

La tecla ESC por defecto cierra el dialogo, excepto que tenga una clausula Valid, pero es cierto que no la entrega como una nKey.

ESO LO SE, pero no me gusta porque no anticipa el cierre del dialogo al usuario, por eso necesitaba el control del cierre.
Usando el codigo que postie funciona perfecto.