图片放大镜效果

实现图片的放大镜效果的源码，欢迎下载！procedureTForm1.ImageCopy(BoxCenterX,BoxCenterY,BoxSide:Integer);beginwithSourceRectdobeginLeft:=BoxCenterX-BoxSide;Top:=BoxCenterY-BoxSide;Right:=BoxCenterX+BoxSide;Bottom:=BoxCenterY+BoxSide;end;withDestRectdobeginLeft:=BoxCenterX-dSide;Top:=BoxCenterY-dSide;Right:=B