Reference to a menubar to be shown at the top of the form |
Member of Form (PRIM_FORM)
Data Type - PRIM_MBAR - Primary container for menu items
The Menubar property is a reference to a PRIM_MBAR component.
The Menu Bar is always shown attached to the lower edge of the form title bar.
This example shows a simple menu bar with 3 options and 3 items per option.
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(454) Clientheight(248) Componentversion(2) Top(227) Left(199) Menubar(#MenuBar1)
Define_Com Class(#PRIM_MBAR) Name(#MenuBar1) Parent(#COM_OWNER)
Define_Com Class(#PRIM_MITM) Name(#MenuItem1) Displayposition(1) Parent(#MenuBar1) Caption('Option 1')
Define_Com Class(#PRIM_SMNU) Name(#SubMenu1) Parent(#MenuItem1)
Define_Com Class(#PRIM_MITM) Name(#MenuItem2) Displayposition(1) Parent(#SubMenu1) Caption('Item 1')
Define_Com Class(#PRIM_MITM) Name(#MenuItem3) Displayposition(2) Parent(#SubMenu1) Caption('Item 2')
Define_Com Class(#PRIM_MITM) Name(#MenuItem4) Displayposition(3) Parent(#SubMenu1) Caption('Item 3')
Define_Com Class(#PRIM_MITM) Name(#MenuItem5) Displayposition(2) Parent(#MenuBar1) Caption('Option 2')
Define_Com Class(#PRIM_SMNU) Name(#SubMenu2) Parent(#MenuItem5)
Define_Com Class(#PRIM_MITM) Name(#MenuItem6) Displayposition(1) Parent(#SubMenu2) Caption('Item 1')
Define_Com Class(#PRIM_MITM) Name(#MenuItem7) Displayposition(2) Parent(#SubMenu2) Caption('Item 2')
Define_Com Class(#PRIM_MITM) Name(#MenuItem8) Displayposition(3) Parent(#SubMenu2) Caption('Item 3')
Define_Com Class(#PRIM_MITM) Name(#MenuItem9) Displayposition(3) Parent(#MenuBar1) Caption('Option 3')
Define_Com Class(#PRIM_SMNU) Name(#SubMenu3) Parent(#MenuItem9)
Define_Com Class(#PRIM_MITM) Name(#MenuItem10) Displayposition(1) Parent(#SubMenu3) Caption('Item 1')
Define_Com Class(#PRIM_MITM) Name(#MenuItem11) Displayposition(2) Parent(#SubMenu3) Caption('Item 2')
Define_Com Class(#PRIM_MITM) Name(#MenuItem12) Displayposition(3) Parent(#SubMenu3) Caption('Item 3')
End_Com