قم بتنفيذ زجاج مكبر الصور مع دلفي

لدى بعض برامج عرض الصور الشائعة الاستخدام وظيفة يمكن أن توسع الصور المحلية.

أضف مكونين من الوقت إلى النموذج ، مع تعيين أحد مكونات التوقيت على 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 نتائج تشغيل البرنامج

يعد التكبير في الصور ميزة ضرورية لبرنامج عرض الصور الممتاز.