ScrollBar entra en recursividad

[jlcapel]

Antonio,

Este código:

Code: Select all | Expand

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 oWndreturn 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

function Test()   static lWorking := .f.   if ! lWorking     lWorking = .t.     ... código a ejecutar     lWorking = .f.    endifreturn 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