FiveTech Software tech support forums

Code: Select all

function Main()

   local oWnd, oScr1, oScr2

   DEFINE WINDOW oWnd TITLE "ScrollBars"

   @ 2, 5 SCROLLBAR oScr1 OF oWnd ;
      ON UP     MsgInfo("Arriba") ;
      ON DOWN   MsgInfo("Abajo") ;
      ON PAGEUP     MsgInfo("Página Arriba") ;
      ON PAGEDOWN   MsgInfo("Página Abajo") ;
      HORIZONTAL
      

   ACTIVATE WINDOW oWnd

return nil