WMenuInit

(   NumWind   : Word;
    PolName1  : String;
    PolComm1  : Word;  (150..255, mnuLine, mnuSubMenu)
    PolName2  : String;
    PolKey2   : Word;
    PolComm2  : Word;  (150..255, mnuLine, mnuSubMenu)
    ...    )

Inicializuje menu v okně NumWind. Menu lze navrhnout pomocí parametrů:

• PolNameX
  Text zobrazený v menu
• PolCommX
  Číslo příkazu (v rozsahu 150..255), menu oddělovač (mnuLine) nebo podmenu (mnuSubMenu)

Počet parametrů není omezen.

Příkaz lze použít i na okno, které již menu mělo. Tím dojde ke změně menu.

Menu začne pracovat po spuštění okna funkcí _Execute a v tomto případě platí:

1. Menu se uzavírá po stisku kláves [F1] ... [F20], aby bylo možno vyhodnotit příkazy definované procedurou NewStLine a jestliže existuje spojení funkční klávesy a příkazu, končí _Execute s tímto příkazem.
2. Menu se uzavírá po stisku klávesy [ESC] a funkce _Execute v tomto případě končí příkazem cmCancel.

Podívejte se na: Menu operace

Příklad:

const wnMain = 10;
dim   Comm   : Word;

WInit(wnMain, 00,00,60,10, "Test Menu", 7, 0)
WMenuInit(wnMain, "P~R~VNÍ",        mnuSubMenu+4,
                   "~A~bcd",    150,
                   "~B~cdefg",  151,
                   "",          mnuLine,
                   "~X~yz",     152,
              "~D~RUHÝ",        153);
WOpen(wnMain);
WMenuAutoStart(wnMain, true);
NewStLine("Norm",  "Dialog",   kbF6,  154);
Comm := _Execute(wnMain);

Příklady