FiveTech Software tech support forums

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

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

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

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

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,

muy bien