Right:=BoxCenterX+dSide;
Bottom:=BoxCenterY+dSide;
end;
ForeImage.Canvas.CopyRect(DestRect, BackImage.Canvas, SourceRect);
end;
注意，别忘了在Main.pas的“type”中声明过程ImageCopy。
创建ForeImage的OnMouseMove事件处理程序，当鼠标在图象上移动时，获取其位置，并作为过程调用的实参。此时，光标隐藏，“放大镜”出现。随着“放大镜”的移动，图象新的部位被放大，滑过的部位又恢复原状。以下为begin与end之间的代码：
NewX:=X;
NewY:=Y;
if msHide then
begin
OldX:=NewX;
OldY:=NewY;
msHide:=False;
ShowCursor(False);
end else
begin
ImageCopy(OldX, OldY, dSide);
end;
ImageCopy(NewX, NewY, sSide);
OldX:=NewX;
OldY:=NewY;
建立主窗体MainForm的OnMouseMove事件处理程序，当鼠标移开图象时，“放大镜”隐藏，光标重新出现。源代码片段如下：
if not msHide then
begin
msHide:=True;
ShowCursor(True);
ImageCopy(OldX, OldY, dSide);
end;
编译运行
至此，已不再需要做更多的事情，立即编译运行吧。啊，美丽的照片出现在屏幕中央！试试放大效果。将鼠标徐徐移入相框，奇迹出现了，鼠标变成了“放大镜”，所到之处，图象的相应部位被放大，十分平滑，毫无闪烁。这不是同您手持放大镜，观看地图和照片的情景一样吗。好酷啊！还有什么能比这更激动人心的呢？！
技术剖析
以上介绍了利用了画布的CopyRect方法，将图象以象素块从后台隐藏的TImage组件画布上向前台TImage组件的画布上拷贝，以实现图象的放大与恢复的技术。由于这一技术的采用，在图象放大前不需要存储象素，此后直接从后台TImage组件画布上恢复图象。不仅节省了内存资源，也确保了对图象的局部进行平滑、无闪烁地放大。同时，程序源代码也简洁、明了。
“放大镜”的中心便是鼠标的位置，这样处理的好处是使得图象在“放大镜”中均匀展开，并确保图象边缘也能同样放大。
要改变“放大镜”的大小和图象的放大倍数，只需修改常量sSide和dSide的值。实际应用中，亦可灵活处置，如将它们设置成变量，由程序菜单控制。本例“放大镜”的大小为90*90个象素，放大倍数为1.5。值得一提的是，这里的“放大镜”比真正的玻璃放大镜的效果要好得多。玻璃放大镜是用凸透镜制成的，中间与边缘的放大倍数不一致，导致图象发生形变。而且，当一边移动一边观察时，很容易使人眼花缭乱。本文为您展示的“放大镜”则没有这些现象。
利用TCanvas的StretchDraw方法或其它方法，也可以实现图象的局部放大。另外，虽然本文介绍的算法已经相当令人满意，但还是可以作进一步修改的。例如在“放大镜”移动时，只放大和恢复必要的部分。有兴趣的读者不妨一试。
程序编译、运行环境为Delphi 3.0和中文Windows 98。
上一页 [1] [2] [3]
责任编辑：小草
