home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTMENU.PRG < prev    next >
Text File  |  1994-06-05  |  3KB  |  92 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    DEFINE WINDOW oWnd FROM 1, 5 TO 20, 70 TITLE "Testing Menus" ;
  10.       MENU BuildMenu()
  11.  
  12.  
  13.    @ 4, 4 BUTTON "&Hilite Second Popup" SIZE 160, 25 OF oWnd ;
  14.       ACTION oWnd:oMenu:Hilite( 2 )
  15.  
  16.    @ 7, 4 BUTTON "&UnHilite Second Popup" SIZE 160, 25 OF oWnd ;
  17.       ACTION oWnd:oMenu:UnHilite( 2 )
  18.  
  19.  
  20.    SET MESSAGE OF oWnd TO FWVERSION + " - Menu Management Power"
  21.  
  22.    ACTIVATE WINDOW oWnd
  23.  
  24. return nil
  25.  
  26. //----------------------------------------------------------------------------//
  27.  
  28. function BuildMenu()
  29.  
  30.    local oMenu
  31.    local oFirst, oSecond
  32.  
  33.    MENU oMenu
  34.       MENUITEM "&Test"
  35.       MENU
  36.          MENUITEM oFirst PROMPT "&First Alt-F2" MESSAGE "First option" ;
  37.             ACTION If( oFirst:lActive, oFirst:Disable(), oFirst:Enable() ) ;
  38.             ACCELERATOR ACC_ALT, VK_F2
  39.  
  40.          MENUITEM oSecond PROMPT "&Second Ctrl-F2" MESSAGE "Second option" ;
  41.             ACTION oSecond:SetCheck( ! oSecond:lChecked ) ;
  42.             ACCELERATOR ACC_CONTROL, VK_F2
  43.  
  44.          SEPARATOR
  45.  
  46.          MENUITEM FILE "..\bitmaps\End.bmp" MESSAGE "Bye, bye... -F2-" ;
  47.                   ACTION oWnd:End() ;
  48.                   ACCELERATOR 0, VK_F2
  49.  
  50.       ENDMENU
  51.  
  52.       MENUITEM "Some more..."
  53.       MENU
  54.          MENUITEM "&Enable" ACTION oFirst:Enable() ;
  55.             MESSAGE "Ok, let's start again"
  56.  
  57.          MENUITEM FILE "..\bitmaps\print.bmp" MESSAGE "Funciona ? Shift-F2" ;
  58.             ACTION MsgInfo( "Hello, I am a Girl!" ) ;
  59.             ACCELERATOR ACC_SHIFT, VK_F2
  60.  
  61.          MENUITEM FILE "..\bitmaps\Phone.bmp" MESSAGE "Otro..."
  62.  
  63.          MENUITEM FILE "..\bitmaps\Files.bmp" MESSAGE "Clients Management"
  64.       ENDMENU
  65.  
  66.       MENUITEM FILE "..\bitmaps\Ico.bmp" MESSAGE "FiveWin, pure power!" ;
  67.          ACTION MsgInfo( "FiveWin: The power of xBase & OOPS" )
  68.       MENU
  69.          MENUITEM FILE "..\bitmaps\warning.bmp" MESSAGE "Really nice MenuItems!"
  70.          MENU
  71.             MENUITEM FILE "..\bitmaps\red.bmp"      MESSAGE "Red Color"
  72.             MENUITEM FILE "..\bitmaps\green.bmp"    MESSAGE "Green Color"
  73.             MENUITEM FILE "..\bitmaps\yellow.bmp"   MESSAGE "Yellow Color"
  74.             MENUITEM FILE "..\bitmaps\cyan.bmp"     MESSAGE "Cyan Color"
  75.             MENUITEM FILE "..\bitmaps\magenta.bmp"  MESSAGE "Magenta Color"
  76.          ENDMENU
  77.       ENDMENU
  78.  
  79.       MENUITEM "&Utilities"
  80.       MENU
  81.          MENUITEM FILE "..\bitmaps\Calc.bmp" MESSAGE "Using Windows Calculator... Alt-C" ;
  82.             ACTION WinExec( "Calc.exe" )  ;
  83.             ACCELERATOR ACC_ALT, ASC( "C" )
  84.  
  85.       ENDMENU
  86.  
  87.    ENDMENU
  88.  
  89. return oMenu
  90.  
  91. //----------------------------------------------------------------------------//
  92.