CopyRect()

CopyRect()

原型：CopyRect(Dest: TRect; Canvas: TCanvas; Source: TRect)

它将源画布某一矩形区域的图像复制到目标画布的矩形区域。由于是内存的成块复制，因此具有很高的执行效率。在Timer 组件的OnTimer 事件程序中

灵活使用该函数，可以设计出各种美观演示效果：如百叶窗、推拉、马赛克、随机线、反像等等。

其中:Dest:目标画布矩形

Canvas:源画布

Source:源矩形

这是一个DELPHI内部的命令,它主要用于某些控件的画布操作,即CANVAS属性下支持的一个图像复制命令,其功能是把图像从一个源RECT内,复制到目标

RECT内,复制的图像具有自动伸缩性质,

例如命令:

form1.canvas.copyrect(rect2,bitmap.canvas,rect1);

则实现把RECT1中图像复制到窗体的RECT2中;用此命令实现镜像操作的过程是,首先从源图像上的边缘定义宽度为1的矩形RECT,同时从屏幕的中央位置向

两侧定义相同尺寸的两个矩形RECT,之后把源图像写到两个目标RECT之中,通过循环过程完成整个图像的重写过程,即在屏幕上出现完整的镜像显示效果

。

例如截（12，22）到（67，90）这一区域中的内容

procedure TForm1.Button1Click(Sender: TObject);

var

a: TRect;

begin

Canvas.CopyRect(Dest, Canvas, Rect(12,22,67,90));

end;

---