●海南大学 叶斗彪

1. 实用价值

目前，有许多流行的图象观察软件和图象处理软件，为人们在电脑屏幕上浏览和加工美丽的图象提供了方便。然而遗憾的是，这些软件在图象放大方面却不尽如人意。它们往往只能对整幅图象进行放大，而不能随意地放大图象的局部，就连微软公司随Windows提供的画图软件也不例外。

对图象局部进行放大，具有极高的实用价值。产品推销商可以将此项技术应用于新产品的展示和推广之中，让用户能够对其产品的不同部位，如汽车的表面镀铬工艺和新型的挡风玻璃等进行放大观看。通过电脑网络上动物解剖课的学生，亦可用其放大小白鼠或是青蛙的不同部位，以便更清晰地观察血管和各种器官。就象在日常生活中，人们手持放大镜，在地图或照片上移动的情景！

本文介绍实现图象局部、平滑和无闪烁放大的算法原理，以及在Delphi中实现的技术。读完本文，您一定会为Delphi能用如此少的代码实现如此强大的功能惊叹不已，这是许多其它开发工具所无法比拟的。

2. 算法原理

在Delphi中，可利用类Tcanvas的CopyRect方法实现图象的放大和缩小。其功能是将源画布上的一个指定矩形区域（简称源矩形）内的象素，拷贝到目的画布上的一个指定矩形区域（简称目的矩形）中。亦可称之为象素块复制，如图1所示。

由CopyMode属性确定拷贝的模式。在直接拷贝模式（cmSrcCopy）下，当源矩形与目的矩形相等时，图象不变；若源矩形大于目的矩形，图象则缩小；而当源矩形小于目的矩形时，图象便被放大（在目的矩形中扩展）。源矩形与目的矩形大小之比，决定图象的缩放倍数。CopyRect方法声明如下：

Procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: Trect);

其中参数，Dest为目的矩形，Canvas是源画布，Source为源矩形。

3. 实现步骤

1. 新建应用程序主目录C:\Magnifier及其子目录Images，将事先制作好的位图图象Picture.bmp存入Images目录。本例中，Picture.bmp的大小为260*310象素。
2. 启动Delphi IDE，新建项目Magnifier.dpr，主窗体单元命名为Main.pas，存入C:\Magnifier目录。在主窗体上放置一个TPanel组件，并在其中加入两个TImage组件。两个TImage组件分别命名为ForeImage和BackImage，前者重叠于后者之上，并且都装入Picture.bmp位图。

主窗体和各组件的主要属性按表1设置：

表1 主窗体和各组件属性设置

组 件	属 性	设 置
Form1	BorderIcons.biMaximize	False
	BorderStyle	bsNone
	Color	clRed
	Height	364
	KeyPreview	True
	Name	MainForm
	Position	poScreenCenter
	Width	294
	WindowState	wsNormal
Panel1	Align	alNone
	BevelInner	bvLowered
	BevelOuter	bvRaised
	BevelWidth	2
	BorderStyle	bsNone
	BorderWidth	2
	Height	322
	Name	FramePanel
	Visible	Ture
	Width	272
Image1	Align	alNone
	AutoSize	True
	Center	True
	Height	310
	Name	BackImage
	Picture	Picture.bmp
	Stretch	False
	Visible	False
	Width	260
Image2	Align	alNone
	AutoSize	True
	Center	True
	Height	310
	Name	ForeImage
	Picture	Picture.bmp
	Stretch	False
	Visible	True
	Width	260

上述各组件的许多属性，读者亦可根据个人的爱好设定。

3. 在主单元Main.pas的implementation段声明常量和变量：

const

sSide=30;

dSide=45;

var

msHide: Boolean;

OldX, OldY, NewX, NewY: Integer;

DestRect, SourceRect : TRect;

其中，常量sSide和dSide用以控制“放大镜”的大小和放大倍数；变量msHide控制光标（鼠标）的隐藏和打开；其它变量用以确定放大部位。

4. 建立主窗体MainForm的OnCreate事件，加入下列语句，以初始化变量及设置复制模式：

msHide:=True;

Canvas.CopyMode:=cmSrcCopy;

5. 创建主窗体MainForm的OnKeyPress事件处理程序，在其begin与end之间输入语句“Close;”，当按任意键时结束程序运行。
6. 定义过程ImageCopy，用于处理图象的放大和恢复，当移动鼠标时调用。这是实现图象局部放大最重要的过程，源代码如下。

procedure TMainForm.ImageCopy(BoxCenterX, BoxCenterY, BoxSide: Integer);

begin

with SourceRect do

begin

Left:=BoxCenterX-BoxSide;

Top:=BoxCenterY-BoxSide;

Right:=BoxCenterX+BoxSide;

Bottom:=BoxCenterY+BoxSide;

end;

with DestRect do

begin

Left:=BoxCenterX-dSide;

Top:=BoxCenterY-dSide;

Right:=BoxCenterX+dSide;

Bottom:=BoxCenterY+dSide;

end;

ForeImage.Canvas.CopyRect(DestRect, BackImage.Canvas, SourceRect);

end;

注意，别忘了在Main.pas的“type”中声明过程ImageCopy。

7. 创建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;

8. 建立主窗体MainForm的OnMouseMove事件处理程序，当鼠标移开图象时，“放大镜”隐藏，光标重新出现。源代码片段如下：

1. 编译运行

至此，已不再需要做更多的事情，立即编译运行吧。啊，美丽的照片出现在屏幕中央！试试放大效果。将鼠标徐徐移入相框，奇迹出现了，鼠标变成了“放大镜”，所到之处，图象的相应部位被放大，十分平滑，毫无闪烁。这不是同您手持放大镜，观看地图和照片的情景一样吗。好酷啊！还有什么能比这更激动人心的呢？！

2. 技术剖析

1. 《Delphi 3.0 编程参考手册》 [美] P. Thurrott, G. Brent, R. Bagdazian, S. Tendon 著 卢庆龄 蒋全 等译 清华大学出版社 1998年8月第1版