FiveTech Software tech support forums

Code: Select all

// More work on previuos Tutor06

#include "FiveWin.ch"

static oWnd

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

function Main()

   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 ;
      TITLE "Working with Menus" ;
      MENU  BuildMenu()

   SET MESSAGE OF oWnd ;
      TO FWVERSION + ", " + FWCOPYRIGHT CENTERED KEYBOARD

   ACTIVATE WINDOW oWnd           // MAXIMIZED

return nil

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

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Information"
      MENU
         MENUITEM   "&About..." ;
            ACTION  MsgInfo( "FiveWin Tutorial" + Chr( 13 ) + FWCOPYRIGHT ) ;
            MESSAGE "Information about this application"

         SEPARATOR

         MENUITEM   "&End..."  ;
            ACTION  If( MsgYesNo( "Want to end ?" ), oWnd:End(),) ;
            MESSAGE "End this application"
      ENDMENU

      MENUITEM "&Files"
      MENU
         MENUITEM   "&Customers..." ;
            ACTION  msginfo("just a test") ;
            MESSAGE "Customers maintainance"

	     MENUITEM "&Reindex"
	      menu
    	     menuitem "&All" ;
             action (  Alert('oGen:Reindex()') )
          menuitem "A&pp" ;
             action (  Alert('oGen:AppReindex()') )
          menuitem "&Table" ;
             action (  Alert('oGen:TabReindex()') )
          menuitem "&File" ;
             action (  Alert('oGen:DBReindex()') )
          endmenu
         MENUITEM   "&Stock" ;
            ACTION  MsgInfo( "Any option from here" ) ;
            MESSAGE "Stock maintainance"
	     MENUITEM "Re&structure"
	      menu
    	     menuitem "&All" ;
             action (  Alert('oGen:Reindex()') )
          menuitem "A&pp" ;
             action (  Alert('oGen:AppReindex()') )
          menuitem "&Table" ;
             action (  Alert('oGen:TabReindex()') )
          menuitem "&File" ;
             action (  Alert('oGen:DBReindex()') )
          endmenu
			
      ENDMENU

      MENUITEM "&Utils"
      MENU
         MENUITEM   "&Calculator..." ;
            ACTION  WinExec( "Calc" ) ;
            MESSAGE "Run Windows calculator"

         MENUITEM   "C&alendar..." ;
            ACTION  WinExec( "Calendar" ) ;
            MESSAGE "Run Windows calendar"

         MENUITEM   "&Some fun..." ;
            ACTION  WinExec( "Sol" ) ;
            MESSAGE "Play a game..."
      ENDMENU
   ENDMENU

return oMenu