ENTER me saca del Dialogo (FWH 11.12)

[Enrrique Vertiz]

Saludos, probare lo mencionado

Antonio, si me saca del Dialogo, pero no del programa, como si ubiera presionado ESC, el programa sigue funcionando normalmente ....

[Enrrique Vertiz]

Ariel, puso la bandera en el VALID y mostro el mensaje ya con el dialogo cerrado, asumo que el problema esta antes de llegar al VALID

Antonio, si tenia un VALID la activacion del dialogo, se lo quite y puse lo que sugeriste (If( oDlg:nLastKey == VK_RETURN, "Aqui", .T. )), pero no me mostro cambio alguno, el problema continuo ......

Gracias por la atencion

[Enrrique Vertiz]

Antonio, en este link hay un video donde se muestra como en mi compilacion anterior (FWH 10.09) el ENTER trabaja sin problemas en el dialogo, pero en el FWH 11.12 me cierra el dialogo y me regresa a la pantalla principal, es lo unico que me detiene para poder pasar a esta ultima version de FWH, gracias por la atencion.

http://www.youtube.com/watch?v=FYlQkwgjGQs

[Antonio Linares]

Enrique,

Prueba en el VALID del diálogo a generar un error para que asi sepamos cuando sale, por que métodos ha pasado:

ACTIVATE DIALOG oDlg VALID x++ // aqui generará un error

sal con Enter y veamos que llamadas se han efectuado en el error log, gracias

[Enrrique Vertiz]

Antonio, encontre el tema, quitando el termino NOMODAL del ACTIVATE en el dialogo se soluciono, ahora asi no reportaba problemas hasta el 10.09, pero lo importante es que ya funciona !!!

Activacion del dialogo que me sacaba despues de ENTER en un radio buttom :

ACTIVATE DIALOG oDlg NOMODAL ON INIT iif(wfcua # "S" .and. wfempt # "1",(oAu4:hide(), oDe4:hide(), oAs4:hide(), oAz4:hide()), NIL) ON CLICK oDlg:update() VALID CloseDlg( nOpc, nAre, nReg )

Activacion que ya no me saco del dialogo despues del enter

ACTIVATE DIALOG oDlg ON INIT iif(wfcua # "S" .and. wfempt # "1",(oAu4:hide(), oDe4:hide(), oAs4:hide(), oAz4:hide()), NIL) ON CLICK oDlg:update() VALID CloseDlg( nOpc, nAre, nReg )

Gracias por el apoyo !!!

[Enrrique Vertiz]

Saludos Antonio, el exceso de entusiasmo me hizo contestar demasiado rapido, ahora como indico para que el dialogo sea NOMODAL ???
Gracias

[Antonio Linares]

Enrique,

Si necesitas usar un diálogo no modal ahí no hay otra que usar NOMODAL

Que acciones realizas en CloseDlg( nOpc, nAre, nReg ) ? Puedes mostrar el código ?

[Enrrique Vertiz]

Antonio, probando en el ACTIVATE quito todo y solo dejo la indicacion de NOMODAL y permanece el error

ACTIVATE DIALOG oDlg NOMODAL

Entonces el problema esta unicamente cuando pongo NOMODAL !!! y claro siempre despues del ENTER al pasar de un RADIO BUTTOM a un GET, ahi esta el asunto ...

[Antonio Linares]

Enrique,

Localizado y corregido el bug: en dialog.prg línea 385 hay que añadir 3 líneas:

Code: Select all

                      if nID == IDOK
                         ::GoNextCtrl( GetFocus() )
                         if ! ::lModal
                            return 0
                         endif   
 

Por favor pruébalo y me comentas, gracias!

Este es el ejemplo que he usado para probarlo:

enrique.prg

Code: Select all

#include "FiveWin.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd

   ACTIVATE WINDOW oWnd ON INIT NonModal()

return nil

function NonModal()

   local oDlg, oRad, nValue := 1
   
   DEFINE DIALOG oDlg
   
   @ 1, 1 RADIO oRad VAR nValue ;
      ITEMS "&One", "&Two", "T&hree" SIZE 80, 12
      
   @ 3, 10 BUTTON "Ok" ACTION MsgInfo( "ok" )      
         
   ACTIVATE DIALOG oDlg NOMODAL CENTER
   
return nil   

 

[Enrrique Vertiz]

Antonio, gracias a Ti, funciono ahora si correctamente .....
Seguimos probando

[Soft-Javi]

Buen dia Foro

he notado que tambien hay problemas con los DIALOG CON FOLDER, aparecen en la esquina y luego los centra un efecto raro y se ve feo


saludos..
Javier..

[Antonio Linares]

Javier,

Puedes proporcionar un pequeño ejemplo que reproduzca lo que comentas ? gracias

[Soft-Javi]

Antonio:

he visto otros problemas mas en esta version

1.- En un Get de espacio(5) por ejemplo y selecciona todo el get y luego pego un texto de 15 este que de largo 15, si pega un texto de 2 caracteres
este queda 2 igual, no respteta el largo original

2.- Si usas FOLDER en los TOOLBAR cuando ejecutas una accion en el primero o segundo Botton, al volver la aplicacion desaparecen todos estos, pero si ejecutas desde el tercer botton funciona bien

3.- En los DIALOG NO MODAL con FOLDER estos dan un efecto raro, como que se pinta el dialogo y luego los folder

Code: Select all

#define PAGE1   oFolder:aDialogs[1]

DEFINE BRUSH oBrush  RESOURCE "confetti"
DEFINE DIALOG oDlg NAME "FOLDERX" BRUSH oBrush

REDEFINE FOLDER oFolder              ;  
      ID 102 OF oDlg                 ;  
      ITEMS   "Opcion 1"         ;  
      DIALOGS "DIALOG_1"

REDEFINE GET oGet1                       ;
            VAR cVar1                             ;
            ID 201 OF PAGE1                       ;
            PICTURE "9999999999"            

//20 get mas

ACTIVATE DIALOG oDlg ;//CENTERED ;
        ON INIT (  oDlg:nHeight+= 50,;
                      oFolder:nHeight+= 100,;
                      SetImages( oDlg, { "venta.bmp" }, oFolder ) ) ;
        NOMODAL