Click above to get retro games delivered to your door ever month!

  SBPOS()                                                Scroll Bar Function
 Purpose..: Return the absolute position of the thumb character
-------------------------------------------------------------------------------
 Syntax...: sbPos( <aSBar> ) --> nPos

 Arguments: <aSBar>     = scroll bar structure returned via
                          a call to sbNew().

 Returns..: <N> nPos is the absolute position of the thumb character
            in the scroll bar. To obtain the relative position, use sbWhere().

 Source...: SCRLBAR.PRG
-------------------------------------------------------------------------------
 Example..: . The example prints out the absolute position of the
              thumb character, ., in a vertical scroll bar.

                aVertSB := sbNew( SB_VSCROLL )
                sbChrThumb( aVertSB, "." )
                sbChrBar  ( aVertSB, "#" )
                sbChrDec  ( aVertSB, "." )
                sbChrInc  ( aVertSB, "." )
                sbClrSpec ( aVertSB, "W+/B, B/*W, W+/B" )
                sbSetRange( aVertSB, 1, len( aArray ) - nScrLength + 1 )
                ...
                ? sbPos( aVertSB )
                ...