Text of submenu options is indented more than
normal menu options:
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 oMenuRoman
