MInit

(   NumMenu : Word;
    X, Y    : Byte;
    TypMenu : Integer; (mnuManager(257), mnuSubMenu(258))
              PolName1   : String;
              PolKey1    : Word;
              PolComm1   : Word;  (150..255, mnuLine(256), mnuSubMenu(258))
              PolName2   : String;
              PolKey2    : Word;
              PolComm2   : Word;  (150..255, mnuLine(256), mnuSubMenu(258))
              ...              )

Procedura inicializuje menu následujících parametrů:

• NumMenu - Číslo menu (musí být v rámci jednoho makra jedinečné).
• X,Y - Souřadnice horního levého rohu menu.
• TypMenu - Definuje typ menu jako vertikální s podmenu mnuManager(257), nebo klasické menu mnuSubMenu(258).
• PolName1 - Text položky v menu jehož délka může být maximálně 31 znaků.
• PolKey1 - Kód klávesy, která generuje povel položky menu bez jejího výběru kurzorem.
• PolComm1 - Povel, který menu generuje při výběru položky kurzorem nebo klávesou. Toto číslo může být v rozsahu 1..255. Dalších 30 čísel je vyhrazeno pro služební účely (mnuManager, mnuSubMenu, mnuLine a počet prvků sub menu). Pro správnou funkci používejte pouze rozsah 150 až 255. Ç mnuLine(256) - horizontální oddělovací čára Ç mnuSubMenu+PP - následní definice vertikálního menu, kde PP je počet položek vertikálního menu

Podívejte se na: Procedury a funkce - Menu

Příklad definice menu:

MInit(1,1, 1, mnuManager,
             "PRVNÍ",    kbNoKey, mnuSubMenu+5,
               "~P~rvní",   kbF5,    1,
               "~D~ruhý",   kbF6,    2,
               "~T~řetí",   kbF7,    3,
               "",          kbNoKey, mnuLine,
               "~V~šechny", kbNoKey, 10
             "DRUHÝ",     kbNoKey, 4);