소위 블라인드 효과는 캔버스를 여러 영역으로 나누는 것입니다. 각 영역은
프로그레시브 모드는 블라인드를 뒤집는 것처럼 그래픽을 동시에 복사합니다.
특수 효과를 표시하는 과정의 예:
먼저 새 프로젝트를 만들고 양식에 두 개의 IMAGE 컨트롤을 추가한 다음
IMAGE1의 PICTURE 속성으로 비트맵(*.bmp)을 가져오고 IMAGE1을 변경합니다.
VISIBLE 속성을 FALSE로 설정합니다.
그런 다음 코드 창에서 다음 절차를 정의합니다.
절차 TForm1.fan;
var r1:추적;
목록,r,모든:정수;
시작하다
목록:=1;
모든:=trunc(screen.Height/10)+1;
목록<=모든 작업을 수행하는 동안
시작하다
r:=0 ~ 10의 경우 시작하세요.
r1:=ret(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의 예).