PascalABC, GraphABC. Двигаем окно с рисунком
PascalABC, GraphABC. Двигаем окно с рисунком.
program MoveWindow;
uses graphabc;
var i,x2,y2:integer;
c:color;
begin
c:=rgb(0,0,0); {чёрный цвет}
setwindowcaption ('Двигаем окно');
setwindowsize (1366,768); {Размеры окна}
setwindowpos (0,0); {Положение окна}
clearwindow (c); {Очищаем экран}
{Рисуем рисунок}
c:=rgb(255,255,255); {Белый}
setpencolor(c);
for i:=1 to 360 do begin
x2:=trunc(sin(i/180*3.1415926)*200+500);
y2:=trunc(cos(i/180*3.1415926)*200+300);
line (500,300,x2,y2);
end;
{Двигаем окно}
{Уменьшаем окно}
for i:=1 to 500 do begin
setwindowsize (1366-i,768-i); {Размеры окна}
setwindowpos (0+i,0+i); {Положение окна}
end;
{Увеличиваем окно}
for i:=500 downto 1 do begin
setwindowsize (1366-i,768-i); {Размеры окна}
setwindowpos (0+i,0+i); {Положение окна}
end;
{Уменьшаем окно}
for i:=1 to 500 do begin
setwindowsize (1366-i,768-i); {Размеры окна}
setwindowpos (0+i,0+i); {Положение окна}
end;
{Сдвигаем в левый верхний угол}
for i:=500 downto 1 do begin
setwindowpos (0+i,0+i); {Положение окна}
end;
{Увеличиваем до исходного размера}
for i:=500 downto 1 do begin
setwindowsize (1366-i,768-i); {Размеры окна}
end;
end.
Что делает видео по-настоящему запоминающимся? Наверное, та самая атмосфера, которая заставляет забыть о времени. Когда вы заходите на RUVIDEO, чтобы посмотреть онлайн «PascalABC, GraphABC. Двигаем окно с рисунком», вы рассчитываете на нечто большее, чем просто загрузку плеера. И мы это понимаем. Контент такого уровня заслуживает того, чтобы его смотрели в HD 1080, без дрожания картинки и бесконечного буферизации.
Честно говоря, Rutube сегодня — это кладезь уникальных находок, которые часто теряются в общем шуме. Мы же вытаскиваем на поверхность самое интересное. Будь то динамичный экшн, глубокий разбор темы от любимого автора или просто уютное видео для настроения — всё это доступно здесь бесплатно и без лишних формальностей. Никаких «заполните анкету, чтобы продолжить». Только вы, ваш экран и качественный поток.
Если вас зацепило это видео, не забудьте взглянуть на похожие материалы в блоке справа. Мы откалибровали наши алгоритмы так, чтобы они подбирали контент не просто «по тегам», а по настроению и смыслу. Ведь в конечном итоге, онлайн-кинотеатр — это не склад файлов, а место, где каждый вечер можно найти свою историю. Приятного вам отдыха на RUVIDEO!
Видео взято из открытых источников Rutube. Если вы правообладатель, обратитесь к первоисточнику.