MIDlet Pascal
Поиск по сайту
Форма входа

Статистика


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Воскресенье, 15.07.2018, 20.12.18
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
вопрос - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Midlet Pascal » Вопросы по MidletPascal » вопрос
вопрос
LincorДата: Среда, 20.02.2013, 18.24.10 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 6
Репутация: 0
Статус: Offline
я столкнулся с проблемой в коде. из этого меню почему-то не вызываются процедуры options и about:

Код
procedure menu;
var key,pos,i: integer;
menu: array[1..5] of Image;
begin
// Начальная позиция в меню
pos:=2;
// Заполняем названия пунктов меню
menu[1]:=LoadImage('/menu_fon.png');
menu[2]:=LoadImage('/Play.png');
menu[3]:=LoadImage('/Options.png');
menu[4]:=LoadImage('/About.png');
menu[5]:=LoadImage('/Exit.png');
repeat
drawImage(menu[1],0,0);
// Здесь рисуем каждый элемент меню
for i:=2 to 5 do
begin
if i=pos then
begin
SetColor(0,160,255);
FillRect(115-(getimagewidth(menu[i])/2),i*30+15,140,26);
drawImage(menu[i],120-(getimagewidth(menu[i])/2),i*30+20);
end
else
begin
drawImage(menu[i],120-(getimagewidth(menu[i])/2),i*30+20);
end
end;
SetColor(0,0,0);
// Выводим всё на экран
repaint;
delay(20);
// Тут получаем нажатие на клавиши
key:=getKeyClicked;
key:=keyToAction(key);
// Проверяем какие клавиши нажаты
if key=GA_UP then if pos=2 then pos:=5 else pos:=pos-1;
if key=GA_DOWN then if pos=5 then pos:=2 else pos:=pos+1;
if key=GA_FIRE then
begin
// Если переход по пункту меню - то смотрим какой пункт выбран
// и совершаем соответствующее действие
if pos=2 then wp_start;
if pos=3 then options;
if pos=4 then about;
if pos=5 then Halt;
end;
until false;
end;


Сообщение отредактировал Lincor - Среда, 20.02.2013, 18.24.34
 
WladymyrДата: Среда, 20.02.2013, 21.56.18 | Сообщение # 2
Генералиссимус
Группа: Администраторы
Сообщений: 15
Репутация: 1
Статус: Offline
Цитата (Lincor)
я столкнулся с проблемой в коде. из этого меню почему-то не вызываются процедуры options и about:

Если процедура menu стоить выше процедур options и about то оно вызыватть и небудет, если же ниже, то всё верно.Просмторите несовпадают ли названия глобальных переменных с названия ми процедур.
 
Форум » Midlet Pascal » Вопросы по MidletPascal » вопрос
  • Страница 1 из 1
  • 1
Поиск:

Wladymyr © 2018
Создать бесплатный сайт с uCoz