Der sogenannte Jalousieneffekt besteht darin, die Leinwand in mehrere Bereiche zu unterteilen, wobei jeder Bereich ist
Der Progressive-Modus kopiert Grafiken gleichzeitig, genau wie das Umdrehen von Jalousien. Hier ist eine davon
Ein Beispiel für den Prozess der Anzeige von Spezialeffekten:
Erstellen Sie zunächst ein neues Projekt, fügen Sie dem Formular zwei IMAGE-Steuerelemente hinzu und fügen Sie hinzu
Importieren Sie eine Bitmap (*.bmp) in das PICTURE-Attribut von IMAGE1 und ändern Sie IMAGE1
Setzen Sie das VISIBLE-Attribut auf FALSE.
Definieren Sie dann im Codefenster das folgende Verfahren:
PROzedur TForm1.fan;
var r1:Trect;
list,r,every:integer;
beginnen
Liste:=1;
every:=trunc(screen.Height/10)+1;
While list<=every do
beginnen
für r:=0 bis 10 beginnen
r1:=rect(0,r*every,screen.Width,R*every+list);
image2.Canvas.CopyRect(r1,image1.Canvas,r1);
Ende;
aktualisieren;
Inc(Liste);
Ende;
Ende;
Sie können es später im Programm überall dort aufrufen, wo es benötigt wird.
Schauen wir uns an, wie dies im Code implementiert wird: RECT(X1,Y1,X2,Y2)
Stellt den ausgewählten rechteckigen Bereich dar, (X1, Y1) sind die Koordinaten der oberen linken Ecke des Rechtecks, (X2, Y2) ist das Rechteck
Die Koordinaten der unteren rechten Ecke. Die grafische Darstellung wird durch COPYRECT(R1,CANVAS,R2) vervollständigt, wobei R1 steht
Zielbereich, R2 ist der kopierte Bereich, CANVAS ist das kopierte Objekt (es kann auch ein sein
Beispiel für TBITMAP).