Beberapa perangkat lunak tampilan gambar yang umum digunakan memiliki fungsi yang dapat memperbesar gambar lokal.
Tambahkan dua komponen timage ke formulir, dengan salah satu komponen timage diatur ke Image1, yang bertindak sebagai pembawa untuk tampilan gambar asli. Komponen timage lain memiliki properti nama yang diatur ke Image2, yang dapat menampilkan gambar yang diperbesar. Bentuk setelah menambahkan komponen ditunjukkan pada Gambar 1.
Gambar 1 Formulir setelah menambahkan komponen
Inti dari contoh ini adalah fungsi StretchBlt, yang menggunakan fungsi StretchBlt untuk mencapai amplifikasi gambar lokal.
Prosedur TFORM1.IMAGE1MOUSEMOVE (pengirim: TOBJEK; SHIFT: TSHIFTSTATE; X, Y: Integer);
Mulai
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;
akhir;
Program ini pertama -tama akan memanggil fungsi StretchBlt, menggunakan posisi mouse saat ini sebagai titik tengah, pilih gambar lokal pada komponen Image1 dengan panjang samping 40, dan memperbesar gambar lokal pada komponen Image2. Kemudian, tampilan komponen Image2 disegarkan dengan memanggil metode penyegaran komponen Image2. Akhirnya, atur pointer mouse ke bentuk baru.
Kode program adalah sebagai berikut:
unit unit1;
antarmuka
penggunaan
Windows, pesan, sysutils, varian, kelas, grafik, kontrol, formulir,
Dialog, extctrls, stdctrls;
jenis
Tform1 = class (tform)
Gambar1: timage;
Image2: Timage;
Prosedur Image1MouseMove (pengirim: TOBJEK; SHIFT: TSHIFTSTATE; X, Y: Integer);
Prosedur FormMouseMove (pengirim: Tobject; Shift: TshiftState; x, y: integer);
Pribadi
{Deklarasi Pribadi}
publik
{Deklarasi Publik}
akhir;
var
Form1: tform1;
Pelaksanaan
{$ R *.dfm}
Prosedur TFORM1.IMAGE1MOUSEMOVE (pengirim: TOBJEK; SHIFT: TSHIFTSTATE; X, Y: Integer);
Mulai
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;
akhir;
Prosedur TFORM1.FORMMOUSEMOVE (Pengirim: TOBJEK; SHIFT: TSHIFTSTATE; X, Y: Integer);
Mulai
Screen.cursors [1]: = crdefault;
Self.cursor: = 1;
akhir;
akhir.
Simpan file, lalu tekan F9 untuk menjalankan program.
Gambar 2 Hasil Operasi Program
Zoom dalam gambar adalah fitur yang diperlukan dari perangkat lunak tampilan gambar yang sangat baik.