Что ж тут не то? Занимался 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!
|