Добавляет пункт меню в виде строки текста с картинкой в текущее меню. Функция возвращает идентификатор ID этого пункта внутри данного меню.
function MenuAppendStringImage(text: string; img:image): integer;
|
Пример
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 MenuGetSelectedIndex = tetris then PlayTetris;
if MenuGetSelectedIndex = minesweeper then PlayMinesweeper;
if MenuGetSelectedIndex = snake then PlaySnake;
...
end. |
Совместимость MIDP1.0
Требуемый модуль
Не требуется
Смотри также
ShowMenu, MenuAppendString, MenuIsSelected, MenuGetSelectedIndex |