用Delphi實現(xiàn)圖像放大鏡

    在一些常用的看圖軟件中都帶有一個可以放大局部圖像的功能，本實例就是為模仿這一功能開發(fā)的。

　　向窗體上添加兩個TImage組件，其中一個TImage組件的Name屬性設(shè)置為Image1，它充當(dāng)原圖片顯示的載體。另一個TImage組件的Name屬性設(shè)置為Image2，它可以顯示放大后的圖像。添加組件后的窗體如圖1所示。

圖1 添加組件后的窗體

　　本例的核心是StretchBlt函數(shù)，利用StretchBlt函數(shù)實現(xiàn)局部圖像放大，響應(yīng)代碼如下：

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin 　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; end;

　　程序首先會調(diào)用StretchBlt函數(shù)，以鼠標(biāo)當(dāng)前位置作為中心點，以邊長為40選中Image1組件上的局部圖像，并放大此局部圖像到Image2組件上。然后通過調(diào)用Image2組件的Refresh方法以刷新Image2組件的顯示。最后設(shè)置鼠標(biāo)指針為新的形狀。

　　程序代碼如下：

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type 　TForm1 = class(TForm) 　Image1: TImage; 　Image2: TImage; 　procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); 　procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); private 　{ Private declarations } public 　{ Public declarations } end; var 　Form1: TForm1; 　implementation 　{$R *.dfm} 　procedure TForm1.Image1MouseMove(Sender:TObject;Shift:TShiftState;X,Y: Integer); 　begin 　　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; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); begin 　Screen.Cursors[1]:=crDefault; 　Self.Cursor:=1; end; end.

　　保存文件，然后按F9鍵運行程序，程序運行結(jié)果如圖2所示。

圖2 程序運行結(jié)果

　　放大圖像是一個優(yōu)秀的看圖軟件必備的功能，本實例提供了一種非常簡便易行的方法，不但代碼數(shù)量少，而且執(zhí)行效率高。