Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 01.11.2012, 12:44   #1
Spot
AnyKey`щик
 
Регистрация: 31.10.2012
Сообщений: 5
Написано 0 полезных сообщений
(для 0 пользователей)
Вопрос по командам

Есть код:
Program test1;
var exitCmd, nextcmd,clicked,cont: command; 
 str: integer;
begin
	clearform;
	str:=FormAddString('Страница1');			
	showform;
    exitCmd := CreateCommand('Выход', CM_EXIT, 1); 
    nextcmd:=CreateCommand('Далее', CM_EXIT, 2); 
    AddCommand(exitCmd); 
    Addcommand(nextcmd);
    repeat 
      clicked := GetClickedCommand;
		if clicked=nextcmd then
		begin
			clearform;
			str:=FormAddString('Страница2 ');			
			showform;
			cont := createCommand('Назад', CM_BACK, 1);
			addCommand(cont);
			repeat
				clicked := GetClickedCommand;
					delay(100);
			until Clicked = cont;
		end;
    until Clicked =exitcmd; 
end.
1. Почему кнопка назад не работает
2. Можно ли как-то задать четкий порядок расположения команд, например Назад - слева, посередке - Функции или Опции, справа - Вперед.
А то на nokia 6300 справа выходить команда "Выход" , а слева "Функции", а там "Далее", а в дефолтном эмуляторе нормально показывает
(Offline)
 
Ответить с цитированием
Старый 07.11.2012, 13:36   #2
Dark Dragon
Оператор ЭВМ
 
Аватар для Dark Dragon
 
Регистрация: 13.10.2012
Адрес: Российская Федерация,г.Челябинск.
Сообщений: 41
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Вопрос по командам

На самом деле с формами лучше не связываться.Лучше использовать Графический интерфейс и считывать нажатые клавиши.Константы управления софт клавишами и джойстиком тебе в помощь!
__________________
P.S.: Если что я этого не говорил
(Offline)
 
Ответить с цитированием
Старый 07.11.2012, 19:02   #3
Amigo888
Нуждающийся
 
Регистрация: 05.08.2011
Сообщений: 85
Написано 16 полезных сообщений
(для 16 пользователей)
Ответ: Вопрос по командам

Дело в том что расположение форм в Nokia заданы телефоном (вернее java машиной)
(Offline)
 
Ответить с цитированием
Старый 08.11.2012, 18:29   #4
Deport
Оператор ЭВМ
 
Аватар для Deport
 
Регистрация: 06.03.2009
Сообщений: 38
Написано 3 полезных сообщений
(для 3 пользователей)
Сообщение Ответ: Вопрос по командам

Не совсем уверен но может вам поможет мой образец для тестов

program sys;
var x: integer;
str:string;
ext,del,ok: Command;
Begin

ext := CreateCommand('start', cm_exit, 1);
del := CreateCommand('del', cm_screen, 1);
AddCommand(ext);
AddCommand(del);
repeat
ok:=GetClickedCommand;
if GetKeyPressed = KE_KEY1 then str:=''+str+'1';
if GetKeyPressed = KE_KEY2 then str:=''+str+'2';
if GetKeyPressed = KE_KEY3 then str:=''+str+'3';
if GetKeyPressed = KE_KEY4 then str:=''+str+'4';
if GetKeyPressed = KE_KEY5 then str:=''+str+'5';
if GetKeyPressed = KE_KEY6 then str:=''+str+'6';
if GetKeyPressed = KE_KEY7 then str:=''+str+'7';
if GetKeyPressed = KE_KEY8 then str:=''+str+'8';
if GetKeyPressed = KE_KEY9 then str:=''+str+'9';
if GetKeyPressed = KE_KEY0 then str:=''+str+'0';


x := Length(str);
if ok=del then begin
if x>0 then str:=Copy(str,0,x-1);
if x=0 then playAlertSound;
end;

SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight);
SetColor(255, 255, 255);
DrawText(''+str+'', 0, 0);
Repaint;
delay(100);

until (x>0) and (ok = ext);
RemoveCommand(ext);
RemoveCommand(del);
str:='Вы выбрали номер: '+str+'';
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight);
SetColor(255, 255, 255);
DrawText(''+str+'', 0, 0);
Repaint;
delay(-1);
end.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 12:46.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com