Как сделать

[Kren]

Доброго всем времени суток

Только что скачал MidletPascal но пока ничего не получается, помогите пожалуйста новичку

1. Как сделать меню например:
О программе
Сссылка
Ссылка
и тд.

Так же кнопки Выход из программы и Выбрать пункт из меню
при выборе пункта меню выводится форма с текстом, его можно прочитать и кнопка назад в меню

Очень нужно, подскажите как все сделать от начала до конца, пытался сделать но ничего не получается

2. Можно ли сделать и как такую функцию:
Выбираю в меню раздел захожу, а он делает запрос например site.site/news.txt и закачивает их в форму, после прочтения обратно выход в меню

За ранее всем Вам очень благодарен, жду ответов!!!

[Kren]

Если есть готовые подробные примеры, тоже буду рад посмотреть и воспользоваться как образцом

[dermeg]

Вот смотри пример:

program NewProject;
var menuCommand,exitCommand:command;
exitGame:integer;
keyCode:integer;
clicked: command;
exit, about,backgame,news: integer;
img: image;

//вызов меню
procedure menu;
var play:command;
begin
showMenu('Crazy Monkey', CH_IMPLICIT);

backgame := menuAppendString('Вернуться в игру');
news := menuAppendString('Новости проекта');
about := menuAppendString('О игре...');
exit := menuAppendString('Выход из игры');

play := createCommand('Выбрать', CM_SCREEN, 1);
addCommand(play);
repaint;
repeat
delay(100);
clicked := getClickedCommand;
until clicked = play;
showCanvas;
end;

//новости
procedure newsShow;
var conn: http;
htmlBody: string;
contentType: string;
label_id: integer;
cm : command;
begin
ShowForm;
label_id:=formAddString('Подождите, идёт загрузка новостей...');
if not openHttp(conn, 'http://www.cr.pskov.name/crnews.php') then halt;
setHttpMethod(conn, GET);
addHttpHeader(conn, 'User-agent', 'MIDletPascal browser');
if sendHttpMessage(conn) <> 200 then halt;
htmlBody := getHttpResponse(conn);
contentType := getHttpHeader(conn, 'Content-type');
closeHttp(conn);
clearForm;
label_id:=formAddString(htmlBody);
cm := createCommand('Назад', CM_BACK, 1);
addCommand(cm);
repaint;
repeat
delay(100);
clicked := getClickedCommand;
until clicked = cm;
removeCommand(cm);
clearForm;
menu;
end;

//о программе
procedure aboutShow;
var label_id,space_id: integer;
cm : command;
begin
showForm;
setTicker('Игра написана MEG-Studio 2006');
label_id:=formAddString('Crazy Monkey - эмулятор игрового автомата.');
cm := createCommand('OK', CM_OK, 1);
addCommand(cm);
repaint;
repeat
delay(100);
clicked := getClickedCommand;
until clicked = cm;
removeCommand(cm);
clearForm;
menu; // Убираем предупреждение с экрана
end;

//основной цикл программы
begin
exitGame:=0;
menuCommand := createCommand('Меню', CM_OK, 1);
exitCommand := createCommand('Выход', CM_BACK, 1);
img:=LoadImage('/icon.png');
addCommand(menuCommand);
addCommand(exitCommand);
repeat
//читает нажатие клавиш 1 2 3 4 5 6 7 8 9 0 # *
// keyCode := GetKeyClicked;
//читает нажатие командных клавиш
clicked:=getClickedCommand;
if (clicked = menuCommand) then
begin
menu;
end;
if (clicked = exitCommand) then
begin
exitGame:=1;
end;
//провека какой пункт меню был выбран
if menuGetSelectedIndex = news then newsShow;
if menuGetSelectedIndex = about then aboutShow;
if menuGetSelectedIndex = exit then exitGame:=1;
DrawImage(img,Random(170),Random(170));
repaint;
delay(500);
until (exitGame=1);
end.

[Kren]

Огромное Вам спасибо, все работает ))

[Kren]

У меня появился еще вот такой вопрос, буду благодарен за ответ:
Как сделать? например, у театра есть афиша на месяц-два, нужно сделать так что бы ее можно было скачать в телефоне и просматривать в программе локально, скачивать тоже из программы, потом в меню есть кнопка, проверить афишу, если афиша таже то ее не скачивает, а если новая то удаляет старую и закачивает новую и сохраняет, возможно вообще так или это моя не скромная фантазия?

[dermeg]

Возможно, скачиваешь и помещаешь в RecordStore, а вот насчёт новой офиши просто проверяй дату или номер последнго обновления которую тоже храни в RecordStore, качаеш из интернета файл afisha_no.php (или какойнибудь другой) и сравниваеш с номером афиши в телефоне, если номер больше чем номер в RecordStore, то закачиваешь обновление. Покрайней мере я сделал бы примерно вот так. Про RecordStore читай гдето на форуме было.

[Kren]

Мда... что-то я ничего не понял, примерчиков нет ни у кого?
Пример работы с RecordStore с комментариями тоже не помешал бы!!!

[dermeg]

Про RS читай здесь http://www.boolean.name/showthread.php?t=473

[Kren]

Спасибо, все ок!!!

[KAK? TAK!]

спс!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Spiderman]

Мой личный совет, Kren - изучай Java! Работай на перспективу и не теряй времени зря.

[demon112]

c:=formAddString('текст1');
c:=formAddString('текст2');

как сделать чтоб текст 2 писался с новой строки? функция c:=formAddSpace; не помагает(

[Dj_Alex]

попробуй использовать chr(13) для перевода на другую строку

[impersonalis]

13 10

[demon112]

Неканает...(