知识大全用Delphi实现图像放大镜

Posted 2022-07-22 知

篇首语：君不见长松卧壑困风霜，时来屹立扶明堂。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用Delphi实现图像放大镜相关的知识，希望对你有一定的参考价值。

用Delphi实现图像放大镜 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

在一些常用的看图软件中都带有一个可以放大局部图像的功能本实例就是为模仿这一功能开发的　　　　向窗体上添加两个TImage组件其中一个TImage组件的Name属性设置为Image 它充当原图片显示的载体另一个TImage组件的Name属性设置为Image 它可以显示放大后的图像添加组件后的窗体如图所示　　 >　　 >　　　　本例的核心是StretchBlt函数利用StretchBlt函数实现局部图像放大响应代码如下　　　　procedure TForm Image MouseMove(Sender: TObject; Shift: TShiftState; X Y: Integer);　　begin　　StretchBlt(Image Canvas Handle Image Width Image Height 　　Image Canvas Handle X Y SRCCOPY);　　Image Refresh;　　Screen Cursors[ ]:=LoadCursorFromFile( MAGNIFY CUR );　　Self Cursor:= ;　　end;　　　　程序首先会调用StretchBlt函数以鼠标当前位置作为中心点以边长为选中Image 组件上的局部图像并放大此局部图像到Image 组件上然后通过调用Image 组件的Refresh方法以刷新Image 组件的显示最后设置鼠标指针为新的形状　　　　程序代码如下　　　　unit Unit ;　　interface　　uses　　　　Windows Messages SysUtils Variants Classes Graphics Controls Forms 　　Dialogs ExtCtrls StdCtrls;　　　　type　　TForm = class(TForm)　　Image : TImage;　　Image : TImage;　　procedure Image MouseMove(Sender: TObject; Shift: TShiftState; X Y: Integer);　　procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X Y: Integer);　　private　　 Private declarations 　　public　　 Public declarations 　　end;　　　　var　　Form : TForm ;　　implementation　　$R * dfm　　procedure TForm Image MouseMove(Sender:TObject;Shift:TShiftState;X Y: Integer);　　begin　　StretchBlt(Image Canvas Handle Image Width Image Height Image Canvas Handle X Y SRCCOPY);　　Image Refresh;　　Screen Cursors[ ]:=LoadCursorFromFile( MAGNIFY CUR );　　Self Cursor:= ;　　end;　　　　procedure TForm FormMouseMove(Sender: TObject; Shift: TShiftState; X Y: Integer);　　begin　　Screen Cursors[ ]:=crDefault;　　Self Cursor:= ;　　end;　　end 　　　　保存文件然后按F 键运行程序程序运行结果如图所示　　 >　　 > cha138/Article/program/Delphi/201311/8410

知识大全 用Delphi实现图像放大镜

知识大全用Delphi实现图像放大镜