VALID ejecuta 2 veces (SOLUCIONADO)

[Francisco Horta]

Hola foro,
Estuve buscando algo sobre este tema pero no encontre alguna solucion, pasa lo siguiente:
tengo un dialogo modal con varios controles, algunos de esos controles tienen un VALID
bien, mi Activate esta asi:
ACTIVATE DIALOG oDls CENTERED ;
ON INIT ( aoObjetos[21]:SetMinVisible(10),;
aoObjetos[22]:SetMinVisible(10),;
aoObjetos[54]:SetMinVisible(10),;
aoObjetos[47]:Hide() ) ;
VALID MsgYesNo("Quieres salir del Registro de Check In ?","Aviso")

cuando pulso la tecla ESCAPE en cualquier control que tenga un VALID el valid del dialogo se ejecuta 2 veces, alguna sugerencia?
saludos
pak.o

[FranciscoA]

Francisco, ¿qué versión usas?
Aparentemente este bug fué corregido en la versión de Agosto/2004, por Hernán.
Saludos.

[Francisco Horta]

fwh1103 y xharbour

[Daniel Garcia-Gil]

Hola

puedes postear un ejemplo que podamos contruir (preferiblemente con los .BAT de la carpeta sample de fivewin).

gracias

[Francisco Horta]

que tal Daniel,
aqui pongo el ejemplo,
probablemente el error venga del bkeydown que utilizo en los controles, esto es porque tengo un boton y con F2 simulo el click en el mismo para ejecutar una accion,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oIco, cTest := "Hello world!   ", oFecha, dFecha:=Date()

   DEFINE ICON oIco FILE "..\icons\fivewin.ico"

   DEFINE DIALOG oDlg TITLE "I am a DialogBox" COLOR "W+/B" ;
      ICON oIco

   @ 1, 3 GET oFecha VAR dFecha OF oDlg ;
          PICTURE "99/99/9999" ;
          VALID !Empty(dFecha)

         oFecha:bKeydown := {|nKey| IF( nKey == VK_F2, oFecha:oBtn:PostMsg(WM_CLICK,13,0),;
                                          IF( nKey == VK_ESCAPE, oDlg:End(), ))}

   @ 3, 5 BUTTON "&Ok" SIZE 40, 12 ;
      ACTION MsgInfo( "Any action here!" ) DEFAULT

   @ 3, 16 BUTTON "&Cancel" SIZE 40, 12 ACTION oDlg:End() CANCEL

   ACTIVATE DIALOG oDlg CENTERED ;
      VALID MsgYesNo( "Do you want to end ?" )

return nil

 

Gracias,
Pak.o

[Francisco Horta]

Aqui en esta parte me lo volvia a cargar, asi que elimine el VK_ESCAPE y ya funciona.
oFecha:bKeydown := {|nKey| IF( nKey == VK_F2, oFecha:oBtn:PostMsg(WM_CLICK,13,0),)
// IF( nKey == VK_ESCAPE, oDlg:End(), ))}
gracias
pak.o

[acuellar]

Francisco

La tecla ESCAPE viene activada, no hay que preguntar por ella

Code: Select all  Expand view

  oFecha:bKeydown := {|nKey| IF( nKey == VK_F2, oFecha:oBtn:PostMsg(WM_CLICK,13,0), )}
 

Saludos,

Adhemar