Yang disebut efek tirai adalah membagi kanvas menjadi beberapa area, masing-masing area
Mode progresif menyalin grafik secara bersamaan, seperti membalik tirai
Contoh proses menampilkan efek khusus:
Pertama, buat proyek baru, tambahkan dua kontrol IMAGE ke formulir, dan tambahkan
Impor bitmap (*.bmp) ke dalam atribut PICTURE dari IMAGE1 dan ubah IMAGE1
Setel atribut VISIBLE ke FALSE.
Kemudian, tentukan prosedur berikut di jendela kode:
Prosedur TForm1.fan;
var r1:Perbaiki;
daftar,r,setiap:integer;
mulai
daftar:=1;
setiap:=trunc(layar.Tinggi/10)+1;
Sementara daftar<=setiap lakukan
mulai
untuk r:=0 hingga 10 dimulai
r1:=persegi(0,r*setiap,layar.Lebar,R*setiap+daftar);
image2.Canvas.CopyRect(r1,image1.Canvas,r1);
akhir;
memperbarui;
Inc(daftar);
akhir;
akhir;
Anda dapat memanggilnya dimanapun diperlukan dalam program nanti.
Mari kita lihat bagaimana ini diterapkan. Dalam kode, RECT(X1,Y1,X2,Y2)
Mewakili rentang persegi panjang yang dipilih, (X1, Y1) adalah koordinat sudut kiri atas persegi panjang, (X2, Y2) adalah persegi panjang
Koordinat pojok kanan bawah. Tampilan grafis dilengkapi dengan COPYRECT(R1,CANVAS,R2), dimana R1 berada
Area sasaran, R2 adalah area yang disalin, CANVAS adalah objek yang disalin (bisa juga a
Contoh TBITMAP).