home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTSCRL.PRG < prev    next >
Text File  |  1994-04-11  |  1KB  |  53 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "Testing ScrollBars" ;
  10.       MENU BuildMenu()
  11.  
  12.    SET MESSAGE OF oWnd TO ;
  13.       OemToAnsi( "FiveWin 1.5 - (C) A.Linares, F.Pulpón 1993" )
  14.  
  15.    ACTIVATE WINDOW oWnd
  16.  
  17. return
  18.  
  19. //----------------------------------------------------------------------------//
  20.  
  21. function BuildMenu()
  22.  
  23.    local oMenu
  24.  
  25.    MENU oMenu
  26.       MENUITEM "Add &ScrollBar" ACTION AddSbr()
  27.    ENDMENU
  28.  
  29. return oMenu
  30.  
  31. //----------------------------------------------------------------------------//
  32.  
  33. function AddSbr()
  34.  
  35.    static lAdded
  36.  
  37.    if lAdded == nil
  38.       lAdded = .t.
  39.  
  40.       @ 2, 5 SCROLLBAR OF oWnd ;
  41.         ON UP   nMsgBox( "Hey!, Go Up" ) ;
  42.         ON DOWN nMsgBox( "Going down man" )
  43.  
  44.       @ 2, 15 SCROLLBAR OF oWnd ;
  45.         ON UP   oWnd:Say( 2, 30, Time() ) ;
  46.         ON DOWN oWnd:Say( 4, 30, "Hello!" )
  47.  
  48.    endif
  49.  
  50. return
  51.  
  52. //----------------------------------------------------------------------------//
  53.