Показать сообщение отдельно
Старый 24.02.2011, 19:51   #3
YellowAfterlife
ПроЭктировщик
 
Аватар для YellowAfterlife
 
Регистрация: 19.02.2011
Сообщений: 134
Написано 81 полезных сообщений
(для 219 пользователей)
Ответ: Что ж тут не то? Занимался HTML и забыл паскаль =(

Все же можно предположить, что мидлет вылетает изза ресурсов. Посмотрите в консоль - там будет написана ошибка, вызывающая зависание.
Так же можно использовать процедуру debug(string) для пошаговой проверки - можно узнать, что и когда случается, и почему программа перестает работать.
Тестировал с следующим кодом, работает, возращает информацию о стадиях в консоль (Log).
program Mp11;
var 
bgmx:integer;
bgm,pgb,prg:image;
begin
bgmx
:=-240;
setColor(0,0,0);
fillRect(0,0,240,400);
setcolor(255,255,255);
drawText('Загрузка библиотеки...',10,10);
repaint;
{
загрузка первого файла музыки}
delay(1000);
drawText('Загрузка среды...',10,30);
repaint;
debug('Loading images...');
bgm:=loadImage('/icon.png');
pgb:=loadImage('/icon.png');
prg:=loadImage('/icon.png');
debug('Images loaded.');
{
загрузка всей графики}
delay(1000);
repeat
bgmx
:=bgmx+5;
drawImage(bgm,bgmx,0);
repaint;
until bgmx GetWidth;
debug('Loop done.');
repaint;
debug('Drawing pgb...');
drawImage(pgb,0,300);
repaint;
debug('Done.');
delay(100000);
end
__________________

Мой сайт-блог. Игры, обновления, примеры для Haxe, JavaScript(+HTML5), GameMaker, Love2d...
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Rock2roll (24.02.2011)