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 view

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 Nil

static 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 view

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 view

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.