Исправьте код пожалуйста
PHP код:
|
Ответ: Исправьте код пожалуйста
всё читать лень, но сразу скажу, что в конце должна быть точка, а не точка с запятой
|
Ответ: Исправьте код пожалуйста
1) В начале после Program Ded должна стоять ;
2) function mainmenu(n:integer):integer; - смысл строки? 3) exit нельзя использовать как название переменной - оно зарезервировано. 4) Массив imA[] не объявлен. 5) ui.list_set_selected(n); - n, я так понял, переменная, но ты её не объявил 6) if menuGetSelectedIndex = exit then begin saveStore; halt; end; - кажись, синтаксис не соблюден. Всё, что нашел,но ошибок может быть и больше. |
Ответ: Исправьте код пожалуйста
Чтобы не плодить новых тем, позволю себе воспользоваться этой, ведь суть вопроса та же.
Набросал код, но он работает не так как задумывалось. Почему-то если выбрать пункт меню, то соответствующая процедура текст не выводит. Если процедуру вызвать до вывода меню, то текст отображаеться. Видно какая-то мелочь, но никак не могу разобраться... PHP код:
|
Ответ: Исправьте код пожалуйста
Убери ShowCanvas; из процедуры ShowFirstMenu;
|
Ответ: Исправьте код пожалуйста
Вложений: 1
Неа, не помогло (код в своем посте также обновил).
Если убрать ClearForm то даже после выбора пункта, меню продолжает находиться на экране и нормально функционировать. Текст не выводиться. Может нужно как-то уничтожать меню перед выводом текста?.. Прикрепил архив с проектом к посту. UPD: Цитата:
|
Ответ: Исправьте код пожалуйста
|
Ответ: Исправьте код пожалуйста
fall, выведи в дебаг заходит ли прога в нужный IF вообще.
|
Ответ: Исправьте код пожалуйста
Переделай
PHP код:
PHP код:
|
Ответ: Исправьте код пожалуйста
Nex, я так безнадежен? :)
odd, спасибо, работает! Цитата:
|
Ответ: Исправьте код пожалуйста
А как обработать нажатие центральной кнопки (которая между стрелок)?
|
Ответ: Исправьте код пожалуйста
key:=keytoaction(getkeypressed);
if key=GA_FIRE then MeaninglessProcedure1; |
Ответ: Исправьте код пожалуйста
Цитата:
|
Ответ: Исправьте код пожалуйста
Ребята мне сейчас самому понадобилась функция выбора элемента но блин из за кучи нагромождений пока искал и правил потратил 15минут.... вот решил сделать маленький тестер кому надо делать меню
program BusList; var p1,p2:integer; next,clicked:command; begin ShowMenu('Выберите диапазон', CH_IMPLICIT); p1 := MenuAppendString('Нулевой'); p2 := MenuAppendString('Первый'); next := CreateCommand('Далее', CM_SCREEN, 0); AddCommand(next); repeat delay(100);clicked := GetClickedCommand;until clicked <> EmptyCommand; if MenuGetSelectedIndex = p1 then begin //ВАШ КОД ПОД ВЫБРАННЫМ ПЕРВЫМ ЭЛЕМЕНТОМ end; if MenuGetSelectedIndex = p2 then begin //ВАШ КОД ПОД ВЫБРАННЫМ ВТОРЫМ ЭЛЕМЕНТОМ end; end. |
Часовой пояс GMT +4, время: 10:01. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot