Problema Rueda de ratón y XBrowse

[jmartial]

Hola,

He notado que si en un xBrowse se mueve la rueda del ratón sube y baja el selector como con las teclas, hasta ahí bien.

Pero, Si por ejemplo el xBrowse tiene 3 líneas, sólo funciona la rueda del ratón, si el puntero del ratón está encima de esas 3 líneas.

Creo que es erróneo, debe funcionar esté donde esté dentro del xBrowse.

¿Cómo se podría solucionar?

[joseluisysturiz]

Lo que dices ya es experimentado por muchos, lo que asumos es que el methodo para que se mueva la niea horizontal se activa cuando el puntero del mouse esta sobre registros, es como un tooltip, siono esta el cursor sobre un objeto, este no se activa, tambien estoy de acuerdo con lo que dices, pero como dicen por aca...el codigo esta abierto para ajustar a las necesidades y modificar a beneficios, de esto sobre xbrowse creo qe ahora lo controla es Mr.RAO, saludos...

[jmartial]

Hola,

Se soluciona cambiando este método, fijaros que lo que he hecho es comentar una condición:

Code: Select all  Expand view

METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos ) CLASS TXBrowse

   local aPoint := { nYPos, nXPos }

   ScreenToClient( ::hWnd, aPoint )

   if IsOverWnd( ::hWnd, aPoint[ 1 ], aPoint[ 2 ] )
      *.and. ::MouseRowPos( aPoint[ 1 ] ) > 0

      if lAnd( nKeys, MK_MBUTTON )
         if nDelta > 0
            ::PageUp()
         else
            ::PageDown()
         endif
      else
         if nDelta > 0
            ::GoUp( WheelScroll() )
         else
            ::GoDown( WheelScroll() )
         endif
      endif

   endif

Return nil

Antonio, a ver si se pudiera corregir en la próxima versión, para no andar con clases modificadas.

Gracias,

[Antonio Linares]

Joaquín,

Muy bien. Como ves lo bueno de FiveWin es que puedes modificarlo facilmente

[jmartial]

Hola Antonio,

Eso es lo bueno, pero si está bien para todos o sino, se puede crear una DATA que active uno u otro comportamiento, aunque creo que no era correcto antes.

Lo suyo es que lo incluyeras en la siguiente versión, para no tener las clases modificadas, arrastrándolas en cada versión.

Gracias,

[jmartial]

Antonio,

¿ Se ha incluído esta corrección? Para no andar con clases modificadas.

Gracias,