The so-called blinds effect is to divide the canvas into several areas, each area is
Progressive mode copies graphics simultaneously, just like flipping blinds. Here is one
An example of the process of displaying special effects:
First, create a new project, add two IMAGE controls to the form, and add
Import a bitmap (*.bmp) into the PICTURE attribute of IMAGE1 and change IMAGE1
Set the VISIBLE attribute to FALSE.
Then, define the following procedure in the code window:
PRocedure TForm1.fan;
var r1:Trect;
list,r,every:integer;
begin
list:=1;
every:=trunc(screen.Height/10)+1;
While list<=every do
begin
for r:=0 to 10 do begin
r1:=rect(0,r*every,screen.Width,R*every+list);
image2.Canvas.CopyRect(r1,image1.Canvas,r1);
end;
update;
Inc(list);
end;
end;
You can call it wherever needed in the program later.
Let's take a look at how this is implemented. In the code, RECT(X1,Y1,X2,Y2)
Represents the selected rectangular range, (X1, Y1) is the coordinates of the upper left corner of the rectangle, (X2, Y2) is the rectangle
The coordinates of the lower right corner. Graphical display is completed by COPYRECT(R1,CANVAS,R2), where R1 is
Target area, R2 is the copied area, CANVAS is the copied object (it can also be a
Example of TBITMAP).