PC Toledo

Código: Selecionar todos

function VXBscroller(nWinNum, XBid, XBmsg, XBpos)
* generic VXBscroller
static snlasttrack := NIL
local hotreturn, keypress := 0
local aInfo, nrelative, nratio

  * if we can't handle non topmost window we must return right away
  if nWinNum <> wvw_nNumWindows()-1 ; return NIL ; endif

  do case
     case XBmsg == SB_LINEUP
        keypress := K_UP
     case XBmsg == SB_LINEDOWN
        keypress := K_DOWN
     case XBmsg == SB_PAGEUP
        keypress := K_PGUP
     case XBmsg == SB_PAGEDOWN
        keypress := K_PGDN

     case XBmsg == SB_THUMBTRACK
        aInfo := wvw_xbinfo( nWinNum, XBid )
        if snlasttrack==NIL
           snlasttrack := aInfo[4] //last position
        endif
        * are we moving?
        if snlasttrack==XBpos
           * no, do nothing.
           return NIL
        endif

        * are we moving to TOP?
        if XBpos==aInfo[1] //min
           zbgotop(,.t.)
           zbredisp()
           snlasttrack := XBpos
           return NIL
        endif

        * are we moving to BOT?
        if XBpos+aInfo[3]>aInfo[2] //pos+page>max
           zbgobottom()
           zbredisp()
           snlasttrack := XBpos
           return NIL
        endif

        * what's the relative position to current track pos?
        nrelative := XBpos - snlasttrack
        * must convert nrelative to records unit
        nratio := zvscrollratio(nWinNum+1)
        if nrelative>0
           zblinedown(.t., nrelative*nratio)
        else
           zblineup(.t., -nrelative*nratio)
        endif

        * update snlasttrack
        snlasttrack := XBpos

        return NIL

     case XBmsg == SB_THUMBPOSITION
        aInfo := wvw_xbinfo( nWinNum, XBid )

        if snlasttrack==NIL
           * weird, do nothing
           return NIL
        endif
        * are we moving?
        if snlasttrack==XBpos
           * no, do nothing. but first clear the snlasttrack
           snlasttrack := NIL
           return NIL
        endif

        * are we moving to TOP?
        if XBpos==aInfo[1] //min
           zbgotop(,.t.)
           zbredisp()
           snlasttrack := XBpos
           return NIL
        endif

        * are we moving to BOT?
        if XBpos+aInfo[3]>aInfo[2] //pos+page>max
           zbgobottom()
           zbredisp()
           snlasttrack := XBpos
           return NIL
        endif

        * what's the relative position to current track pos?
        nrelative := XBpos - snlasttrack
        * must convert nrelative to records unit
        nratio := zvscrollratio(nWinNum+1)
        if nrelative>0
           zblinedown(.t., nrelative*nratio)
        else
           zblineup(.t., -nrelative*nratio)
        endif

        * reset snlasttrack
        snlasttrack := NIL

        return NIL

  endcase

  if ( (hotreturn:=ASCAN(keylist, {|x| x[1]==keypress})) > 0 )
     xRunKeyList(hotreturn, @keypress)
  endif

return NIL

</quote>

regards,
budyanto