程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> 如何在Delphi平台上實現圖像放大鏡

如何在Delphi平台上實現圖像放大鏡

編輯：Delphi

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

向窗體上添加兩個TImage組件，其中一個TImage組件的Name屬性設置為Image1，它充當原圖片顯示的載體。另一個TImage組件的Name屬性設置為Image2，它可以顯示放大後的圖像。

本例的核心是StretchBlt函數，利用StretchBlt函數實現局部圖像放大，響應代碼如下：

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;

程序首先會調用StretchBlt函數，以鼠標當前位置作為中心點，以邊長為40選中Image1組件上的局部圖像，並放大此局部圖像到Image2組件上。然後通過調用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.

保存文件，然後按F9鍵運行程序。

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