FiveTech Support Forums

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() HORIZONTAL
      

   @ 2, 15 SCROLLBAR oSrc2 OF oWnd ;
      ON UP   oWnd:Say( 2, 30, Time() ) ;
      ON DOWN oWnd:Say( 4, 30, "Hello!" ) ;
      ON PAGEUP     MsgInfo("Página Arriba") ;
      ON PAGEDOWN   MsgInfo("Página Abajo") 
      

   ACTIVATE WINDOW oWnd

return nil

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

function Test()

   static lWorking := .f.

   if ! lWorking
     lWorking = .t.
     ... código a ejecutar
     lWorking = .f. 
   endif

return nil