ซอฟต์แวร์การดูรูปภาพที่ใช้กันทั่วไปบางตัวมีฟังก์ชั่นที่สามารถขยายภาพท้องถิ่นได้
เพิ่มสององค์ประกอบ timage ลงในแบบฟอร์มโดยมีหนึ่งในส่วนประกอบ timage ที่ตั้งค่าเป็น Image1 ซึ่งทำหน้าที่เป็นผู้ให้บริการสำหรับการแสดงภาพต้นฉบับ องค์ประกอบเวลาอื่นมีคุณสมบัติตั้งชื่อเป็น Image2 ซึ่งสามารถแสดงภาพที่ขยายได้ แบบฟอร์มหลังจากเพิ่มส่วนประกอบจะแสดงในรูปที่ 1
รูปที่ 1 แบบฟอร์มหลังจากเพิ่มส่วนประกอบ
แกนกลางของตัวอย่างนี้คือฟังก์ชั่นการยืดกล้ามเนื้อซึ่งใช้ฟังก์ชั่นยืดเยื้อเพื่อให้ได้การขยายภาพในท้องถิ่น
ขั้นตอน tform1.image1mousemove (ผู้ส่ง: tobject; shift: tshiftstate; x, y: จำนวนเต็ม);
เริ่ม
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 ('magnify.cur');
self.cursor: = 1;
จบ;
โปรแกรมจะเรียกใช้ฟังก์ชัน stretchblt ก่อนใช้ตำแหน่งปัจจุบันของเมาส์เป็นจุดกึ่งกลางเลือกภาพท้องถิ่นบนองค์ประกอบ Image1 ที่มีความยาวด้านข้าง 40 และขยายภาพท้องถิ่นบนองค์ประกอบ Image2 จากนั้นการแสดงผลของส่วนประกอบ Image2 จะถูกรีเฟรชโดยการเรียกใช้วิธีการรีเฟรชของส่วนประกอบ Image2 ในที่สุดตั้งค่าตัวชี้เมาส์เป็นรูปร่างใหม่
รหัสโปรแกรมมีดังนี้:
บทที่หน่วย 1;
ส่วนต่อประสาน
ใช้
Windows, ข้อความ, sysutils, ตัวแปร, คลาส, กราฟิก, การควบคุม, รูปแบบ,
กล่องโต้ตอบ, extctrls, stdctrls;
พิมพ์
tform1 = คลาส (tform)
Image1: timage;
Image2: timage;
ขั้นตอน image1mousemove (ผู้ส่ง: tobject; shift: tshiftstate; x, y: จำนวนเต็ม);
ขั้นตอนการจัดรูปแบบ (ผู้ส่ง: tobject; shift: tshiftstate; x, y: จำนวนเต็ม);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
จบ;
วาจา
Form1: TFORM1;
การดำเนินการ
{$ r *.dfm}
ขั้นตอน tform1.image1mousemove (ผู้ส่ง: tobject; shift: tshiftstate; x, y: จำนวนเต็ม);
เริ่ม
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 ('magnify.cur');
self.cursor: = 1;
จบ;
ขั้นตอน TFORM1.FormMousemove (ผู้ส่ง: tobject; shift: tshiftState; x, y: จำนวนเต็ม);
เริ่ม
Screen.cursors [1]: = Crdefault;
self.cursor: = 1;
จบ;
จบ.
บันทึกไฟล์จากนั้นกด F9 เพื่อเรียกใช้โปรแกรม
รูปที่ 2 ผลการดำเนินงานของโปรแกรม
การ Zoom in images เป็นคุณสมบัติที่จำเป็นของซอฟต์แวร์การดูภาพที่ยอดเยี่ยม