topic-22180

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

VALID ejecuta 2 veces (SOLUCIONADO)
Posted: Tue Aug 16, 2011 03:09 PM

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

____________________

Paco

FranciscoA

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: VALID ejecuta 2 veces
Posted: Tue Aug 16, 2011 04:22 PM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: VALID ejecuta 2 veces
Posted: Tue Aug 16, 2011 04:25 PM

fwh1103 y xharbour

____________________

Paco

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: VALID ejecuta 2 veces
Posted: Thu Aug 18, 2011 02:03 AM

Hola

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

gracias

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: VALID ejecuta 2 veces
Posted: Fri Aug 19, 2011 02:35 PM

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 (fw): Select all Collapse

#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

____________________

Paco

Francisco Horta

Posts: 845

Joined: Sun Oct 09, 2005 05:36 PM

Re: VALID ejecuta 2 veces
Posted: Fri Aug 19, 2011 03:33 PM

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:PostMsg(WM_CLICK,13,0),)
// IF( nKey == VK_ESCAPE, oDlg:End(), ))}
gracias
pak.o

____________________

Paco

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: VALID ejecuta 2 veces
Posted: Fri Aug 19, 2011 09:47 PM

Francisco

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

Code (fw): Select all Collapse

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

Saludos,

Adhemar

Saludos,

Adhemar C.

FiveTech Support Forums

Continue the discussion