Index Parent

Menu classes


Menustrip, Menu and Menuitem are used to create menus for applications and windows and context-menus for any object.

A Menu can only be added to a Menustrip.

A Menuitem named MI can only be added to:

Once a Menustrip was used as strip for an application or a window it can't be removed or disposed.

Once a Menustrip was used as context-menu for an object it can't be removed or disposed.
To remove/dispose it you must set another Menustrip as context-menu for that object and then remove or dispose it.

Of course all the above is handled by RxMUI: if something is not possible, RxMUI just returns an error code.

See MakeObj() Menuitem()

 

ATTRIBUTES FOR Menuitem
Name Type Class Note
Checked B ISGN  
CheckIt B ISG  
Enabled B ISGN  
Exclude N ISG  
MenuTrigger B GN Set to 1 and notified when a Menuitem is selected
ShortCut S ISG  
SubItem S I  
Title S ISG  
Toggle B ISG  

 

ATTRIBUTES FOR Menu
Name Type Class Note
Enabled B ISGN  
Title S ISG  

 

ATTRIBUTES FOR Menustrip
Name Type Class Note
Enabled B ISGN  
Title S ISG  

 

METHODS
Name Parameters Note
None defined

 

The following lines all create the same Menustrip object:

  1. Recursively
        app.Menustrip="mstrip"
         mstrip.0="mproject"
         mstrip.Class="Menustrip"
          mproject.Class="Menu"
          mproject.Title="Project"
           mproject.0="mabout"
            mabout.Class="Menuitem"
            mabout.title="About..."
            mabout.shortcut="?"
           mproject.1="maboutrxmui"
            maboutrxmui.Class="Menuitem"
            maboutrxmui.title="About RxMUI..."
           mproject.2="maboutmui"
            maboutmui.Class="Menuitem"
            maboutmui.title="About MUI..."
           mproject.3="md1"
            md1.Class="Menuitem"
            md1.title="BAR"
           mproject.4="mhide"
            mhide.Class="Menuitem"
            mhide.title="Hide"
            mhide.shortcut="H"
           mproject.5="md2"
            md2.Class="Menuitem"
            md2.title="BAR"
           mproject.6="mquit"
            mquit.Class="Menuitem"
            mquit.title="Quit"
            mquit.shortcut="Q"
         mstrip.1="meditor"
          meditor.Class="Menu"
          meditor.Title="Editor"
           meditor.0="mdefault"
            mdefault.Class="Menuitem"
            mdefault.title="Reset to defaults"
            mdefault.shortcut="R"
           meditor.1="mlast"
            mlast.Class="Menuitem"
            mlast.title="Last saveds"
            mlast.shortcut="L"
           meditor.2="mrestore"
            mrestore.Class="Menuitem"
            mrestore.title="Restore"
            mrestore.shortcut="R"
           meditor.3="md3"
            md3.Class="Menuitem"
            md3.title="BAR"
           meditor.4="mmui"
            mmui.Class="Menuitem"
            mmui.title="MUI..."
  2. Pre
        mstrip.0="mproject"
         mproject.Class="Menu"
         mproject.Title="Project"
          mproject.0=Menuitem("mabout","About...","?")
          mproject.1=Menuitem("maboutrxmui","About RxMUI...")
          mproject.2=Menuitem("maboutmui","About MUI...")
          mproject.3=Menuitem("","BAR")
          mproject.4=Menuitem("mhide","Hide","H")
          mproject.5=Menuitem("","BAR")
          mproject.6=Menuitem("mquit","Quit","Q")
        mstrip.1="meditor"
         meditor.Class="Menu"
         meditor.Title="Editor"
          meditor.0=Menuitem("mdefault","Reset to defaults","D")
          meditor.1=Menuitem("mlast","Last saveds","L")
          meditor.2=Menuitem("mrestore","Restore","R")
          meditor.3=Menuitem("","BAR")
          meditor.4=Menuitem("mmui","MUI...")
        if NewObj("Menustrip","mstrip")>0 then exit
        ...
        app.Menustrip="mstrip"
  3. Mixed
        app.Menustrip="mstrip"
         mstrip.0="mproject"
         mstrip.Class="Menustrip"
          mproject.Class="Menu"
          mproject.Title="Project"
           mproject.0=Menuitem("mabout","About...","?")
           mproject.1=Menuitem("maboutrxmui","About RxMUI...")
           mproject.2=Menuitem("maboutmui","About MUI...")
           mproject.3=Menuitem("","BAR")
           mproject.4=Menuitem("mhide","Hide","H")
           mproject.5=Menuitem("","BAR")
           mproject.6=Menuitem("mquit","Quit","Q")
         mstrip.1="meditor"
          meditor.Class="Menu"
          meditor.Title="Editor"
           meditor.0=Menuitem("mdefault","Reset to defaults","D")
           meditor.1=Menuitem("mlast","Last saveds","L")
           meditor.2=Menuitem("mrestore","Restore","R")
           meditor.3=Menuitem("","BAR")
           meditor.4=Menuitem("mmui","MUI...")
  4. MakeObj()
        app.Menustrip=MakeObj(,"Menustrip",,
            MakeObj(,"Menu","Project",,
                Menuitem("mabout","About...","?"),,
                Menuitem("maboutrxmui","About RxMUI..."),,
                Menuitem("maboutmui","About MUI..."),,
                Menuitem("","BAR"),,
                Menuitem("mhide","Hide","H"),,
                Menuitem("","BAR"),,
                Menuitem("mquit","Quit","Q")),,
            MakeObj("medit","Menu","Editor",,
                Menuitem("mdefault","Reset to defaults","D"),,
                Menuitem("mlast","Last saveds","L"),,
                Menuitem("mrestore","Restore","R"),,
                Menuitem("","BAR"),,
                Menuitem("mmui","MUI...")))