สิ่งที่เรียกว่า blinds effect คือ การแบ่งผืนผ้าใบออกเป็นหลายพื้นที่ แต่ละพื้นที่คือ
โหมดโปรเกรสซีฟจะคัดลอกกราฟิกไปพร้อมกัน เช่นเดียวกับการพลิกมู่ลี่
ตัวอย่างกระบวนการแสดงผลพิเศษ:
ขั้นแรก สร้างโครงการใหม่ เพิ่มตัวควบคุม IMAGE สองตัวลงในแบบฟอร์ม และเพิ่ม
นำเข้าบิตแมป (*.bmp) ลงในแอตทริบิวต์ PICTURE ของ IMAGE1 และเปลี่ยน IMAGE1
ตั้งค่าแอตทริบิวต์ VISIBLE เป็น FALSE
จากนั้น กำหนดขั้นตอนต่อไปนี้ในหน้าต่างรหัส:
ขั้นตอน TForm1.fan;
var r1:รักษา;
รายการ r ทุก: จำนวนเต็ม;
เริ่ม
รายการ:=1;
ทุก:=trunc(screen.Height/10)+1;
ในขณะที่รายการ<=ทุกคนทำ
เริ่ม
สำหรับ r:=0 ถึง 10 ให้เริ่มต้น
r1:=rect(0,r*ทุก,screen.Width,R*ทุกรายการ+);
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)