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

Функция возвращает true (истина) если пункт в меню с идентификатором index выбран.

function MenuIsSelected(index: integer): boolean;
 



Пример

var tetris, minesweeper, snake : integer;
      play, clicked : command;   
begin
    ShowMenu('Выберите игру', CH_IMPLICIT);
    
    tetris      := MenuAppendStringImage('Тетрис', LoadImage('/tetris.png'));
    minesweeper := MenuAppendStringImage('Сапер', LoadImage('/mine.png'));
    snake       := MenuAppendStringImage('Змейка', LoadImage('/snake.png'));

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

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

    ShowCanvas;

    if MenuIsSelected(tetris) then PlayTetris;
    if MenuIsSelected(minesweeper) then PlayMinesweeper;
    if MenuIsSelected(snake) then PlaySnake;
    ...
end.





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

MIDP1.0




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

Не требуется




Смотри также

ShowMenu, MenuAppendString, MenuAppendStringImage, MenuIsSelected