M I D l e t P a s c a l
MenuAppendString

Добавляет пункт меню в виде строки текста в текущее меню. Функция возвращает идентификатор ID этого пункта внутри данного меню.

function MenuAppendString(text: string): integer;
 



Пример

var tetris, minesweeper, snake : integer;
      play, clicked : command;   
begin
    ShowMenu('Выберите игру', CH_IMPLICIT);
    
    tetris      := MenuAppendString('Тетрис');
    minesweeper := MenuAppendString('Минер');
    snake       := MenuAppendString('Змейка');

    play := CreateCommand('Играть', CM_SCREEN, 1);
    AddCommand(play);

    repeat
      delay(100);
      clicked := GetClickedCommand;
    until clicked = play;

    ShowCanvas;

    if MenuGetSelectedIndex = tetris then PlayTetris;
    if MenuGetSelectedIndex = minesweeper then PlayMinesweeper;
    if MenuGetSelectedIndex = snake then PlaySnake;
    ...
end.





Совместимость

MIDP1.0




Требуемый модуль

Не требуется




Смотри также

ShowMenu, MenuAppendStringImage, MenuIsSelected, MenuGetSelectedIndex