Так называемый эффект жалюзи заключается в разделении холста на несколько областей, каждая из которых
Прогрессивный режим одновременно копирует графику, как при движении жалюзи. Вот один из них.
Пример процесса отображения спецэффектов:
Сначала создайте новый проект, добавьте в форму два элемента управления IMAGE и добавьте
Импортируйте растровое изображение (*.bmp) в атрибут PICTURE IMAGE1 и измените IMAGE1.
Установите для атрибута VISIBLE значение FALSE.
Затем определите следующую процедуру в окне кода:
ПРОЦЕДУРА TForm1.fan;
вар r1:Trect;
список, г, каждый: целое число;
начинать
список:=1;
каждый:=trnc(screen.Height/10)+1;
Пока список<=каждый делает
начинать
для r:= от 0 до 10 начните
r1:=rect(0,r*every,screen.Width,R*every+list);
image2.Canvas.CopyRect(r1,image1.Canvas,r1);
конец;
обновлять;
Inc(список);
конец;
конец;
Вы можете вызвать его позже в любом месте программы.
Давайте посмотрим, как это реализовано в коде RECT(X1,Y1,X2,Y2).
Представляет выбранный прямоугольный диапазон, (X1, Y1) — координаты верхнего левого угла прямоугольника, (X2, Y2) — прямоугольник.
Координаты правого нижнего угла. Графическое отображение завершается COPYRECT(R1,CANVAS,R2), где R1 —
Целевая область, R2 — скопированная область, CANVAS — скопированный объект (также может быть
Пример TBITMAP).