ما يسمى بتأثير الستائر هو تقسيم اللوحة القماشية إلى عدة مناطق، كل منطقة
يقوم الوضع التقدمي بنسخ الرسومات في وقت واحد، تمامًا مثل الستائر المعتمة
مثال على عملية عرض المؤثرات الخاصة:
أولاً، قم بإنشاء مشروع جديد، وأضف عنصري تحكم IMAGE إلى النموذج، ثم قم بإضافتهما
قم باستيراد صورة نقطية (*.bmp) إلى سمة PICTURE الخاصة بـ IMAGE1 وقم بتغيير IMAGE1
قم بتعيين السمة المرئية إلى FALSE.
ثم حدد الإجراء التالي في نافذة التعليمات البرمجية:
الإجراء TForm1.fan؛
فار r1:Trect;
قائمة، ص، كل: عدد صحيح؛
يبدأ
القائمة:=1;
every:=trunc(screen.Height/10)+1;
بينما القائمة <= كل ما تفعله
يبدأ
بالنسبة لـ r:=0 إلى 10، ابدأ
r1:=rect(0,r*every,screen.Width,R*every+list);
image2.Canvas.CopyRect(r1,image1.Canvas,r1);
نهاية؛
تحديث؛
شركة (قائمة)؛
نهاية؛
نهاية؛
يمكنك تسميته أينما دعت الحاجة في البرنامج لاحقًا.
دعونا نلقي نظرة على كيفية تنفيذ ذلك في الكود، RECT(X1,Y1,X2,Y2)
يمثل النطاق المستطيل المحدد، (X1، Y1) هو إحداثيات الزاوية اليسرى العليا للمستطيل، (X2، Y2) هو المستطيل
إحداثيات الزاوية اليمنى السفلى. يكتمل العرض الرسومي بواسطة COPYRECT(R1,CANVAS,R2)، حيث يوجد R1
المنطقة المستهدفة، R2 هي المنطقة المنسوخة، CANVAS هو الكائن المنسوخ (يمكن أن يكون أيضًا
مثال على TBITMAP).