لدى بعض برامج عرض الصور الشائعة الاستخدام وظيفة يمكن أن توسع الصور المحلية.
أضف مكونين من الوقت إلى النموذج ، مع تعيين أحد مكونات التوقيت على Image1 ، والذي يعمل كحامل لشاشة الصورة الأصلية. يحتوي مكون TIMAGE آخر على خاصية الاسم التي تم تعيينها على Image2 ، والتي يمكنها عرض الصورة الموسعة. يظهر الشكل 1 النموذج بعد إضافة مكونات.
الشكل 1 النموذج بعد إضافة مكونات
جوهر هذا المثال هو وظيفة التمدد ، والتي تستخدم وظيفة تمتد لتحقيق تضخيم الصور المحلية.
الإجراء tform1.image1mousemove (المرسل: tobject ؛ Shift: tshiftstate ؛ x ، y: integer) ؛
يبدأ
stretchblt (image2.canvas.handle ، 0،0 ، image2.width ، image2.height ،
Image1.Canvas.handle ، X-20 ، Y-20،40،40 ، srccopy) ؛
Image2.refresh ؛
screen.cursors [1]: = loadcursorfromfile ('magefy.cur') ؛
self.cursor: = 1 ؛
نهاية؛
سيقوم البرنامج أولاً بالاتصال بوظيفة StretchBlt ، واستخدم الموضع الحالي للماوس كنقطة مركزية ، وتحديد الصورة المحلية على مكون Image1 بطول جانبي 40 ، وتكبير الصورة المحلية على مكون Image2. بعد ذلك ، يتم تحديث عرض مكون Image2 عن طريق استدعاء طريقة التحديث لمكون Image2. أخيرًا ، اضبط مؤشر الماوس على الشكل الجديد.
رمز البرنامج كما يلي:
الوحدة 1 ؛
واجهة
يستخدم
Windows ، الرسائل ، sysutils ، المتغيرات ، الفئات ، الرسومات ، عناصر التحكم ، النماذج ،
مربعات الحوار ، extctrls ، stdctrls ؛
يكتب
tform1 = فئة (tform)
Image1: Timage ؛
Image2: Timage ؛
الإجراء Image1mousemove (المرسل: tooject ؛ Shift: TshiftState ؛ x ، y: integer) ؛
الإجراء formmouseMove (المرسل: TOBJECT ؛ Shift: tshiftstate ؛ x ، y: integer) ؛
خاص
{إعلانات خاصة}
عام
{الإعلانات العامة}
نهاية؛
var
Form1: Tform1 ؛
تطبيق
{$ r *.dfm}
الإجراء tform1.image1mousemove (المرسل: tobject ؛ Shift: tshiftstate ؛ x ، y: integer) ؛
يبدأ
stretchblt (image2.canvas.handle ، 0،0 ، image2.width ، image2.height ، image1.canvas.handle ، x-20 ، y-20،40،40 ، srccopy) ؛
Image2.refresh ؛
screen.cursors [1]: = loadcursorfromfile ('magefy.cur') ؛
self.cursor: = 1 ؛
نهاية؛
الإجراء tform1.formmousemove (المرسل: tobject ؛ Shift: tshiftstate ؛ x ، y: integer) ؛
يبدأ
screen.cursors [1]: = crdefault ؛
self.cursor: = 1 ؛
نهاية؛
نهاية.
احفظ الملف ، ثم اضغط على F9 لتشغيل البرنامج.
الشكل 2 نتائج تشغيل البرنامج
يعد التكبير في الصور ميزة ضرورية لبرنامج عرض الصور الممتاز.