procedure title4;
const speed=3;
const speed1=3;
var
i,f,j,pic,pic1,pic2,pic3,pic4,pic5,pic6: integer;
w,h,n:real;
begin
SetWindowSize(530,530);
pic3:=loadPicture('1.bmp');
DrawPicture(pic3,1,1);
SetWindowCaption('Перемещение картинки');
pic1:=LoadPicture('luxcar2(1).jpg');
pic4:=loadPicture('luxcar1(2).jpg');
pic6:=loadPicture('luxcar1(3).jpg');
pic5:=loadpicture('luxcar2(3).jpg');
n:=WindowWidth/1 ;
w:=WindowWidth/4 ;
h:=Windowheight/2;
///Dvijnyak
begin
for i:=0 to WindowWidth do
begin
DrawPicture(pic3,1,1);
DrawPicture(pic1,170,i);
if i mod speed = 0 then Sleep(1);
end;
for i:=round(n) downto 120 do
begin
DrawPicture(pic3,1,1);
DrawPicture(pic4,270,i);
if i mod speed1 = 0 then Sleep(1);
end;
for i:= round(h) downto 0 do
begin
DrawPicture(pic3,1,1);
DrawPicture(pic6,i,170);
if i mod speed1 = 0 then Sleep(1);
end;
end;
end
1.bmp ( 824.04 килобайт ) Кол-во скачиваний: 1042