FiveTech Software tech support forums

Don,

Please remove NOWAIT from here and try it again:

ACTIVATE DIALOG OWAITDLG ;
CENTERED ;
NOWAIT

... CR_LF() WORKTEXT += CR_LF() WORKTEXT += 'Please Wait' + CR_LF() @ 10, 20 SAY OSAY VAR WORKTEXT ; OF OWAITDLG ACTIVATE DIALOG OWAITDLG ; CENTERED ; NOWAIT // pass the window/osay hwnd hitem1 := ItemNew( owaitdlg:hwnd ) hitem2 := ItemNew( OSAY:hwnd ) HbDLLEntry2( "TEST3", hItem1, hitem2 ...

... COLOR CLR_BLACK, CLR_WHITE WITH OBJECT oDialog :bStart := { || Eval( oGif:bLClicked, SysRefreh() ), oDialog:End() } END ACTIVATE DIALOG oDialog NOWAIT CENTERED ; ON INIT oGif := TGif( oDialog, "meter.gif", 0,0,,,,, bAcao ) Return Función: Sin utilizar el codblock de la clase ejecutando ...

... COLOR CLR_BLACK, CLR_WHITE WITH OBJECT oDialog :bStart := { || Eval( oGif:bLClicked, SysRefreh() ), oDialog:End() } END ACTIVATE DIALOG oDialog NOWAIT CENTERED ; ON INIT oGif := TGif( oDialog, "meter.gif", 0,0,,,,, bAcao ) Return Função: Sem utilizar o codblock da classe executando ...

... alguma forma de manter o gif animado enquanto se executa as ações? Ex.: bAcao = { || oOBjeto := oTeste:ReQuery() } na rotina DEFINE DIALOG oDialog NOWAIT CENTERED ; ON INIT TGif( oDialog, "meter.gif",0,0,,,,, bAcao) Att., Oliveiros Junior

... oHorario VAR cHorario ITEMS {"Diurno","Nocturno"} @ 4,06 CHECKBOX lStatus PROMPT "Status" ACTIVATE DIALOG oDlg NOWAIT

Gracias muchachos por su ayuda Esto fue lo que me aconsejo Paquito anteriormente sobre el tema de las ventanas no modales Cuando vd. pone NOWAIT le indica al sistema que no "pare" el hilo de ejecucion mostrando la ventana, sino que siga el hilo de ejecucion, aunque muestre la ventana. ...

Karinha Muchas gracias Fijate que quedo solucionado cambiando esta linea ACTIVATE DIALOG oDlg Valid oWChild:End() nowait on init (oninit( oDlg ), PonFoto(oImage,cFoto,oDlg), oImage:LoadImage( , cFoto), oBrw:refresh(), oDlg:Update()); oDlg:move(0,0) Por esta ACTIVATE DIALOG oDlg ...

Funciona A continuación pongo el codigo que he implementado #include "FiveWin.ch"#include "Constant.ch"#define CBN_SELCHANGE      1#define CBN_CLOSEUP        8#include "xhb.ch"#include "xhbcls.ch"//--------------------------------------------------------------...

Parece que este comportamiento y el reportado por Enrico estan basados en el mismo bug: http://forums.fivetechsupport.com/viewtopic.php?p=200302 He encontrado una solución para este error. En la clase TDialog estas líneas deben ser añadidas en el método Command()      case nID == IDCANCEL .and. ! ::...

... 1,1 GET oGet3 VAR cGet3 OF oFld:aDialogs[3]oGet3:Disable()@ 1,1 BUTTON oBtn  OF oFld:aDialogs[4]ACTIVATE DIALOG oDlg NOWAIT CENTER;         VALID MsgYesNo("Salir")RETURN NIL En esta modificacion del ejemplo, si se pulsa escape cuando estamos en el ...

Prueba si te sirve esta solución:

viewtopic.php?f=18&t=33874&p=200274#p200274

umm, usualmente el folder en si en FWH no toma foco, ya que es un contenedor, yo creo que ni eso, ya que lo que contiene son dialogos child, quienes son lo que contiene controles, quienes son los que llaman al valid. que quien toma foco es el primer control contenido en el primer dialogo child. prue...

... FUNCTION Prueba1(oWnd)Local oDlg, oFldDEFINE DIALOG oDlg TITLE "Dialogo"@ 1,1 FOLDER oFld  OF oDlgACTIVATE DIALOG oDlg NOWAIT CENTER;         VALID MsgYesNo("Salir")RETURN NILSTATIC FUNCTION Prueba2(oWnd)Local oDlgDEFINE DIALOG oDlg TITLE "Dialogo"ACTIVATE ...

He agregado las clases

WINDOW
DIALOG

Para intentar interceptar la pulsacion de la tecla ESCAPE pero no consiguo detectarla en ninguno de los métodos