CPP_RAD_Ejercicio30

/* ej30_Menus
Ejemplo para incluir menus en nuestra forma */
#include <radc++.h>

Form form1("Menu - RAD C++ Ejemplo");

Menu menu(form1);
MenuItem __File,__Exit,__Help,__About;

FormProcedure form1Proc(FormProcArgs) {
    ON_CLOSE()  Application.close();

    ON_COMMAND_BY(__Exit) Application.close();
    ON_COMMAND_BY(__About)
           form1.infoBox("Ejemplo de Menu - RAD C++ 1.2\r\n\r\nby www.radcpp.com");

    return 0;
}

rad_main()

        form1.procedure = form1Proc;
        //main menus
        __File = menu.add("&Archivo");
        __Help = menu.add("A&yuda");

               //sub-menus not tracked
               __File.add("&Nuevo");
               __File.add("&Abrir");
               __File.add("&Guardar");
               __File.addSeparator();

        //sub-menus tracked
        __Exit = __File.add("&Salida",AUTO_ID);
        __About = __Help.add("&Acerca de",AUTO_ID);

rad_end()