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

  SBREMOVE()                                             Scroll Bar Function
 Purpose..: Remove the scroll bar from the screen
-------------------------------------------------------------------------------
 Syntax...: sbRemove( <aSBar> ) --> NIL

 Arguments: <aSBar>     = scroll bar structure to be wiped off the screen.

 Returns..: NIL

 Source...: SCRLBAR.PRG
-------------------------------------------------------------------------------
 Example..: . The example creates a new vertical
              scroll bar structure, changes the thumb character,
              the bar fill character, the decrement control character,
              the increment control character and the color specification.

              To this, we add the appropriate range for scroll
              a DBF file. The screen length is taken from the record
              total to keep a blank screen from being displayed when the
              bottom of the file is hit. We print out which array
              element is referred to by the scroll bar. Then it
              removes the scroll bar from the screen by
              restoring the screen underneath it.

                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 )
                ...
                sbSetPos  ( aVertSB, aArray[ nI ] )
                ? aArray[ sbWhere( aVertSB ) ]
                ...
                sbRemove  ( aVertSB )