Scroll Dialog and Mousewheel

[Dietmar Jahnel]

A while ago I found a class to croll a dialog

Code: Select all  Expand view

CLASS TScrDlg

   DATA oDlg
   DATA nVPos,nHPos

   METHOD New( oDlg,nV1,nV2,nH1,nH2 ) CONSTRUCTOR
   METHOD SetScroll( nV1,nV2,nH1,nH2 )
   //-*------------------------------------------------------------
   METHOD VScroll()
   METHOD VScrollThumb()
   METHOD VScrollTrack()
   METHOD VScrollPgDown()
   METHOD VScrollPgUp()
   //-*-----------------------------
   METHOD HScroll()
   METHOD HScrollThumb()
   METHOD HScrollTrack()
   METHOD HScrollPgDown()
   METHOD HScrollPgUp()

ENDCLASS

....

Can anyone give me a hint how to implement the mousewheel for scrolling the dialog in this class?
This would be a big help,
Dietmar

[Antonio Linares]

Dietmar,

This is basically what it is needed (code from TWBrowse):

Code: Select all  Expand view

   METHOD MouseWheel( nKeys, nDelta, nXPos, nYPos )
 

Code: Select all  Expand view

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

   local aPos := { nYPos, nXPos }

   aPos = ScreenToClient( ::hWnd, aPos )

   if aPos[ 1 ] > ::nHeight * 0.80
      if nDelta > 0
         ::GoLeft()
      else
         ::GoRight()
      endif
   else
      if lAnd( nKeys, MK_MBUTTON )
         if nDelta > 0
            ::PageUp()
         else
            ::PageDown()
         endif
      else
         if nDelta > 0
            ::GoUp()
         else
            ::GoDown()
         endif
      endif
   endif

return nil
 

[Dietmar Jahnel]

Many thanks,
Got this one to work!
Dietmar