Ring Menu, Dialog Menu, Pulldown Menu

In this lesson we are going to create our different menu’s with ATTRIBUTE (STYLE = “”).

We start by making our m_menu.per DATABASE FORMONLY

SCREEN {

[mx1 ]

}

ATTRIBUTES

Edit mx1 = FORMONLY.mx1, HIDDEN; We have made a clean window for our example. Compile this file with “fcompile -xml m_menu.per“. Then create the main program m_menu.4gl. MAIN

OPEN WINDOW w_1 WITH FORM “m_menu” CALL ui.Interface.loadActionDefaults(”default”) CALL ui.Interface.loadStyles(”default”) CALL ui.Interface.setText(”Menu Styles”) MENU “Navigation” COMMAND “Dialog Menu” MENU “Dialog” ATTRIBUTE(STYLE =”dialog”, COMMENT =”Hello, i’m a Dialog Window with an Dialog Menu”, IMAGE = “information”) COMMAND “Ok” EXIT MENU END MENU

COMMAND “Pulldown Menu” MENU “Pulldown” ATTRIBUTES(STYLE = “pulldown”) COMMAND “Exit” EXIT MENU END MENU

     COMMAND “Exit”
  EXIT MENU END MENU

END MAIN This example is now finished. You will see the following result: