FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Dialogo NOMODAL
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Dialogo NOMODAL
Posted: Fri Jul 15, 2011 10:53 PM

como se cuando se cierra un dialogo nomodal?

es que tengo un timer en el on init del dialgo pero al cerrarlo no me termina el timer...
gracias
paco

____________________

Paco
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Dialogo NOMODAL
Posted: Sat Jul 16, 2011 01:45 AM

Paco,

Usa la claúsula VALID del diálogo:

ACTIVATE DIALOG oDlg NOWAIT VALID ( oTimer:End(), .T. )

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: Dialogo NOMODAL
Posted: Sat Jul 16, 2011 03:08 AM

Antonio,ya habia probado usando el valid, pero el programa falla, manda error el valor del timer es U, se supone que lo crea en el on init pero me toma como si no estuviera creado... hago esto:
local otimer
define dialog odlg .....
activate dialog odlg nowait ;
on init creatimer(otimer,10000) valid (otimer:end(),.t.)

stat function creatimer(otimer,nSeg)
define timer otimer interval nseg action actualizacion()
activate timer otimer
return nil

function actulizacion(otimer)

otimer:deactivate()
bla bla bla bla
otimer:activate()
return nil

y asi me falla
revisare nuevamente..
gracias
saludos
paco

____________________

Paco
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: Dialogo NOMODAL
Posted: Sat Jul 16, 2011 03:51 AM
Francisco

Pasa oTimer por referencia o retornas el objeto TIMER en la funcion creatimer() y se lo asignas a la variable oTimer

Code (fw): Select all Collapse
on init creatimer(@otimer,10000) valid (otimer:end(),.t.)


o

Code (fw): Select all Collapse
on init oTimer := creatimer(10000) valid (otimer:end(),.t.)

stat function creatimer(nSeg)
....
return oTimer
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Dialogo NOMODAL
Posted: Sat Jul 16, 2011 09:05 AM

Francisco,

Haz como te indica Daniel ó simplemente cambia local oTimer a static oTimer :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: Dialogo NOMODAL
Posted: Sat Jul 16, 2011 01:56 PM

Funciona Perfecto!!
Gracias Daniel, Antonio
saludos
paco

____________________

Paco

Continue the discussion