FiveTech Support Forums

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oScr1, oScr2

   DEFINE WINDOW oWnd TITLE "ScrollBars"

   @ 2, 5 SCROLLBAR oScr1 OF oWnd ;
      ON UP   oScr1:GoTop() ;
      ON DOWN oScr1:GoBottom()

   @ 2, 15 SCROLLBAR oSrc2 OF oWnd ;
      ON UP   oWnd:Say( 2, 30, Time() ) ;
      ON DOWN oWnd:Say( 4, 30, "Hello!" )
      
 @ 4, 20 SCROLLBAR oSbr HORIZONTAL SIZE 300, 30 ;
      ON DOWN MsgInfo( "Down" )
      
  oSbr:SetColor( nRGB( 54, 147, 255 ), nRGB( 128, 217, 255 ) )
    
   ACTIVATE WINDOW oWnd

return nil