用Delphi实现图像放大镜
用Delphi实现图像放大镜2008-02-02在一些常用的看图软件中都带有一个可以放大局部图像的功能,本实例就是为模仿这一功能开发的。向窗体上添加两个TImage组件,其中一个TImage组件的Name属性设置为Image1,它充当原图片显示的载体。另一个TImage组件的Name属性设置为Image2,它可以显示放大后的图像。添加组件后的窗体如图1所示。图1 添加组件后的窗体本例的核心是StretchBlt函数,利用StretchBlt函数实现局部图像...