Показать сообщение отдельно
Старый 24.02.2011, 22:17   #1
Rock2roll
Знающий
 
Аватар для Rock2roll
 
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений
(для 13 пользователей)
Что ж тут не то? Занимался HTML и забыл паскаль =(

С картинками всё норм...виснет после цикла

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;
bgm:=loadImage('/bgm.png');
pgb:=loadImage('/progback.png');
prg:=loadImage('/progress.png');
{загрузка всей графики}
delay(1000);
repeat
begin
bgmx:=bgmx+5;
drawImage(bgm,bgmx,0);
repaint;
end;
until true;

repaint;



drawImage(pgb,0,300);
repaint;
delay(100000);
end.
__________________
G502, GT S5230w user!
(Offline)
 
Ответить с цитированием