http://cqujsjcyj.iteye.com/blog/380970

Copyrect的使用(图片复制、放大、以及做图片放大镜等)
一、从一个选取一个区域中的图象到另一个图象组件中的固定区域
procedure TForm1.Button1Click(Sender: TObject);
var
  rtDest, rtSource: TRect;
  rtIndex: Integer;
begin
  rtDest := Rect(0, 0, 200, 200); //在图象二中选取的区域,定义的坐标是相对于Image2的
  rtSource := Rect(0, 0, 50 , 41);//在图象一中选取的区域,定义的坐标是相对于Image1的
  Image2.Canvas.CopyRect(rtDest,.Canvas,rtSource);
 end;
注意:
1、 区域(Rect)坐标的定义,是相对于它的父控件。
2、 可以起到图象放大作用。如果图象一的选取区域小于图象二中的选取区域,那么图一选取区域中的图象,拉伸填充到图象二中的选取区域。(图象区域相同的复制不会造成图象失真,如果变大或者变小,就容易造成失真)
3、 相片的拷贝只限于BMP图片

二、如果要拷贝非bmp图片可以用以下方法
procedure TForm1.Button3Click(Sender: TObject);
var
      Bitmap:   TBitmap;
      MyRect,   MyOther:   TRect;
  begin
      MyRect   :=   Rect(0,0,900,900);
      MyOther   :=   Rect(0,0,300,300);
      Bitmap   :=   TBitmap.Create;
      bitmap.Assign(Image1.picture.Graphic);//转换文件格式成bmp后保存到bitmap中,这样就能用CopyRect了
      Image2.Canvas.BrushCopy(MyOther,   bitmap,   MyRect,   clBlack);  //这行与下行的意思基本相同,选择其一即可
      Image2.Canvas.CopyRect(MyOther,bitmap.Canvas,MyRect);
      Bitmap.Free;
  end;
end.
三、如何将外部图形保存在bitmap里面呢?
例子程序
var
  b: bmp;
begin
  b.b := TBitmap.Create;
  b.b.Assign(Image1.picture.Bitmap);
end;

【图象列表】:
var
  ImageList: TList;
begin
  ImageList := TList.Create;
  ImageList.Add(Image1.Picture.Bitmap);
  Image2.Picture.Bitmap := TBitMap(ImageList.Items[0]);
end;

四、实现图象局部放大的原理和方法

研究了好几个小时,试过了各种函数,想做图片分辨率的调整,不是效果与期望不符就是运行出错,差一点准备发飚,自己写一个抽样缩小和插值放大的函数,却鬼使神差地看了下被我忽略这篇文章……我的妈呀,快搞疯了,不过就是这么一句话而已!

·算法原理
 
在Delphi中,可利用类Tcanvas的CopyRect方法实现图象的放大和缩小。其功能是将源画布上的一个指定矩形区域(简称源矩形)内的象素,拷贝到目的画布上的一个指定矩形区域(简称目的矩形)中。亦可称之为象素块复制,如图1所示。  
由CopyMode属性确定拷贝的模式。在直接拷贝模式(cmSrcCopy)下,当源矩形与目的矩形相等时,图象不变;若源矩形大于目的矩形,图象则缩小;而当源矩形小于目的矩形时,图象便被放大(在目的矩形中扩展)。源矩形与目的矩形大小之比,决定图象的缩放倍数。CopyRect方法声明如下:  
Procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source:   Trect);  
其中参数,Dest为目的矩形,Canvas是源画布,Source为源矩形。
·实现步骤
   ·新建应用程序主目录C:\Magnifier及其子目录Images,将事先制作好的位图图象Picture.bmp存入Images目录?纠校琍icture.bmp的大小为260*310象素。
  ·启动Delphi IDE,新建项目Magnifier.dpr,主窗体单元命名为Main.pas,存入C:\Magnifier目录。在主窗体上放置一个TPanel组件,并在其中加入两个TImage组件。两个TImage组件分别命名为ForeImage和BackImage,前者重叠于后者之上,并且都装入Picture.bmp位图。

·在主单元Main.pas的implementation段声明常量和变量:
  
const  
sSide=30;   
dSide=45;  
var  
msHide: Boolean;  
OldX, OldY, NewX, NewY: Integer;  
DestRect, SourceRect : TRect;   
其中,常量sSide和dSide用以控制"放大镜"的大小和放大倍数;变量msHide控制光标(鼠标)的隐藏和打开;其它变量用以确定放大部位。
·建立主窗体MainForm的OnCreate事件,加入下列语句,以初始化变量及设置复制模式:
  
msHide:=True;  
Canvas.CopyMode:=cmSrcCopy;
  ·创建主窗体MainForm的OnKeyPress事件处理程序,在其begin与end之间输入语句"Close;",当按任意键时结束程序运行。
  ·定义过程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。
  ·创建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组件画布上恢复图象。不仅节省了内存资源,也确保了对图象的局部进行平滑、无闪烁地放大。同时,程序源代码也简洁、明了。

五、一个放大镜的原程序

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;

Delphi 之Copyrect的使用的更多相关文章

  1. delphi 处理图片(剪切,压缩)

    剪切bmp:效果为指定的rect大小,若图片比rect小,则会放大. 都要uses Vcl.Imaging.jpeg; 需要注意的是FMX里也需要jpeg的支持,虽然没引用编译器不会报错,但用到jpg ...

  2. DELPHI下API简述(1800个API)

    DELPHI下API简述 http://zero.cnbct.org/show.asp?id=144 auxGetDevCaps API 获取附属设备容量 auxGetNumDevs API 返回附属 ...

  3. Delphi基本图像处理代码

    //浮雕procedure Emboss(SrcBmp,DestBmp:TBitmap;AzimuthChange:integer);overload;var  i, j, Gray, Azimuth ...

  4. Delphi 技巧改造HINT的输出方式

    Delphi中使用提示是如此简单,只需将欲使用Hint的控件作如下设置: ShowHint := True; Hint := ‘提示信息’; 不必写一行代码,相当方便. 但有时我们又想自己定制提示的效 ...

  5. Delphi基本图像处理方法汇总

    这篇文章主要介绍了Delphi基本图像处理方法,实例汇总了Delphi操作图像实现浮雕.反色.模糊.翻转等常用效果的方法,非常具有实用价值,需要的朋友可以参考下   本文实例汇总了Delphi基本图像 ...

  6. Delphi制作图像特殊显示效果

    Delphi制作实现图像的各种显示效果,比如百叶窗.渐变.淡入淡出.水平交错.雨滴效果等,用鼠标点击“打开图像”按钮,可以选择图像文件导入到窗体中:点击其它各个按钮,可以实现图像显示特效,例如:点击“ ...

  7. Delphi 常用API 函数

    Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconic ...

  8. Delphi的Hint介绍以及用其重写气泡提示以达到好看的效果

    Delphi中使用提示是如此简单,只需将欲使用Hint的控件作如下设置: ShowHint := True; Hint := ‘提示信息’; 不必写一行代码,相当方便. 但有时我们又想自己定制提示的效 ...

  9. 借鉴 学习 DELPHI 通用函数 哈哈

    [转]关于Delphi通用涵数 http://m.blog.csdn.net/blog/dragonjiang5460/1196927 2006-9-8阅读2016 评论0 DELPHI程序注册码设计 ...

随机推荐

  1. 移动端H5前端性能优化指南:

    分享地址:https://isux.tencent.com/h5-performance.html

  2. 运用Python制作你心目中的完美女神脸!

    简介 写这个项目的本来目的是通过构建一个神经网络来训练人脸图片,最后达到能根据图片自动判断美丑的效果.可能是因为数据集过小,或者自己参数一直没有调正确,无论我用人脸关键点训练还是卷积神经网络训练,最后 ...

  3. NXP低功耗蓝牙集成芯片QN9080C的时钟配置

    /*************************************************************************************************** ...

  4. poj 2376 选择工作区间问题 贪心算法

    题意:给一些工作区间,如何选取最小的工作数量,覆盖[1,T]的工作时长 一开始的思路,当然也是错误的思路: 我想着,最小工作数量是吧?那肯定就是选择结束时间最晚的,给结束时间来一个排序.哎这个思路错误 ...

  5. 使用jquery.layout.js构建页眉/页脚/左侧导航/中间展示内容的网页结构

    背景: 快速将一个页面分成几个部分,在导航和页眉的位置放置公用的元素. 准备: jquery.layout.js 首先,向页面中引入如下js文件和css文件,代码: <link href=&qu ...

  6. python基础学习笔记——反射

    对编程语言比较熟悉的朋友,应该知道“反射”这个机制.Python作为一门动态语言,当然不会缺少这一重要功能.然而,在网络上却很少见到有详细或者深刻的剖析论文.下面结合一个web路由的实例来阐述pyth ...

  7. 玩App怎么赚钱(二)

    紧接上篇文章,谈到App前赚钱的一些门道,其实还有很多了,需要你自己去挖掘App到底有什么价值.有价值的东西就能形成交易,而交易的过程中是用金钱作为流通手段,所以说赚钱没那么高大上,它的本质就是价值的 ...

  8. GUI——AWT框架和容器,创建简单窗体

    GUI概述:GUI(Graphical User Interface)—图形化用户界面.用户和程序之间可以通过GUI能方便友好地进行交互,在Java语言中,JFC(Java Foundation Cl ...

  9. API经济时代的思考(转载目的:为之后写API-first模式的生命周期治理做准备)

    原文地址:API经济时代的思考    感觉这篇博客还不错,个人赞同其大部分的内容,借鉴参考一下,懒得自己写了(关键是不一定能轻松写得更好,嘿嘿,偷懒啦) 接下来会写关于API经济的概念下,如何进行AP ...

  10. ie7中position:fixed定位后导致margin:0 auto;无效

    布局网页时,需要把header固定在上方.直接使用position:fixed;现代浏览器以及ie8以上均正常显示,但是ie7中,header里面的子元素设置的水平居中并没有效果.做了各种尝试,都没有 ...