FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Problema Rueda de rat贸n y XBrowse
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Problema Rueda de rat贸n y XBrowse
Posted: Thu Oct 09, 2014 10:24 PM

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?

Un Saludo,

Joaqu铆n Mart铆nez
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Problema Rueda de rat贸n y XBrowse
Posted: Fri Oct 10, 2014 01:00 AM

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... :shock:

Dios no est谩 muerto...



Gracias a mi Dios ante todo!
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema Rueda de rat贸n y XBrowse
Posted: Fri Oct 10, 2014 08:12 AM
Hola,

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

Code (fw): Select all Collapse
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,
Un Saludo,

Joaqu铆n Mart铆nez
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Problema Rueda de rat贸n y XBrowse
Posted: Fri Oct 10, 2014 02:24 PM

Joaqu铆n,

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema Rueda de rat贸n y XBrowse
Posted: Fri Oct 10, 2014 05:02 PM

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,

Un Saludo,

Joaqu铆n Mart铆nez
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Problema Rueda de rat贸n y XBrowse
Posted: Thu Oct 30, 2014 05:47 PM

Antonio,

驴 Se ha inclu铆do esta correcci贸n? Para no andar con clases modificadas.

Gracias,

Un Saludo,

Joaqu铆n Mart铆nez

Continue the discussion