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

在一些常用的看圖軟件中都帶有一個可以放大局部圖像的功能，本實例就是為模仿這一功能開發(fā)的。
    向窗體上添加兩個TImage組件，其中一個TImage組件的Name屬性設置為Image1，它充當原圖片顯示的載體。另一個TImage組件的Name屬性設置為Image2，它可以顯示放大后的圖像。添加組件后的窗體如圖1所示。
    圖1 添加組件后的窗體
    本例的核心是StretchBlt函數(shù)，利用StretchBlt函數(shù)實現(xiàn)局部圖像放大，響應代碼如下：
    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ù)，以鼠標當前位置作為中心點，以邊長為40選中Image1組件上的局部圖像，并放大此局部圖像到Image2組件上。然后通過調(diào)用Image2組件的Refresh方法以刷新Image2組件的顯示。最后設置鼠標指針為新的形狀。
    程序代碼如下：
    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.