Scrollbar entra en recursividad en Windows 2003 Server

[ORibeiro]

Estoy teniendo el mismo problema de ( http://forums.fivetechsupport.com/viewtopic.php?f=7&t=5318&p=23500&hilit=on+pagedown#p23500 ), 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]

Oscar,

En la Clase TScrollBar tienes este código:

Code: Select all  Expand view

METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TScrollBar

   do case
      case nMsg == FM_SCROLLUP
           ::GoUp()
           return 0

      case nMsg == FM_SCROLLDOWN
           ::GoDown()
           return 0

      case nMsg == FM_SCROLLPGUP
           ::PageUp()
           return 0

      case nMsg == FM_SCROLLPGDN
           ::PageDown()
           return 0

      case nMsg == FM_THUMBPOS
           ::ThumbPos( nWParam )
           return 0

      case nMsg == FM_THUMBTRACK
           ::ThumbTrack( nWParam )
           return 0
   endcase

return ::Super:HandleEvent( nMsg, nWParam, nLParam )

Prueba a comentar todos esos return 0 y pruebalo nuevamente, gracias

[ORibeiro]

Antonio,

Gracias por su interés en ayudarme.

Saqué los comandos "Return 0", compilado el "scrllbar.prg" con mi sistema, pero el problema persiste.

¿Alguna otra idea?

Oscar

[Antonio Linares]

Oscar,

No puedes lanzar la acción desde otro evento ?

Hay procesos en Windows que no se deben interrumpir porque puede ocurrir lo que te está pasando.

Intenta ejecutar la acción desde un botón, etc. pero no desde el scrollbar

[ORibeiro]

Antonio,

Yo uso "ScrollBar" para navegar entre los registros de hacer algunas comprobaciones para cada uno. En este punto, voy a cambiar mis "prgs" y siguiendo la sugerencia de crear una variable "LSCR = .T." y modificarlo para "LSCR = .F." cada vez que es necesario abrir una "Dialog" para confirmar y volver al usuario y volto para "LSCR = .T." sólo después de su respuesta. ¡Funciona! El "ScrollBar" sigue activa pero sin ninguna acción com "LSCR = .F."

Gracias,

[Antonio Linares]

muy bien