ScrollBar entra en recursividad

[jlcapel]

Antonio,

Este código:

Code: Select all  Expand view

function Main()

   local oWnd, oScr1, oScr2

   DEFINE WINDOW oWnd TITLE "ScrollBars"

   @ 2, 5 SCROLLBAR oScr1 OF oWnd ;
      ON UP   oScr1:GoTop() ;
      ON DOWN oScr1:GoBottom() HORIZONTAL
     

   @ 2, 15 SCROLLBAR oSrc2 OF oWnd ;
      ON UP   oWnd:Say( 2, 30, Time() ) ;
      ON DOWN oWnd:Say( 4, 30, "Hello!" ) ;
      ON PAGEUP     MsgInfo("Página Arriba") ;
      ON PAGEDOWN   MsgInfo("Página Abajo")
     

   ACTIVATE WINDOW oWnd

return nil

//-----------


Hace que el msginfo del pageup o pagedown entre en recursividad.

Saludos,
José Luis Capel

[Antonio Linares]

Jose Luis,

Sí, lo habiamos visto, pero no es recursividad sino que el evento no deja de dispararse continuamente.

La solución es llamar a una función que use una variable static que cambie de estado para que la función no vuelva a procesarse hasta que no termine su trabajo:

Code: Select all  Expand view

function Test()

   static lWorking := .f.

   if ! lWorking
     lWorking = .t.
     ... código a ejecutar
     lWorking = .f.
   endif

return nil


[ORibeiro]

Estoy teniendo el mismo problema, pero sólo con Windows Server 2003.

Si yo puedo desencadenar un comando en ScrollBar que se abre un cuadro de diálogo, en la flecha en el rollo que se ha pulsado no se congela y comienza a rodar locamente registros.

Muiiiito raro! Si alguien tiene alguna sugerencia, gracias.

Gracias,

Oscar Ribeiro

[Antonio Linares]

viewtopic.php?f=6&t=26592&p=147098#p147098