Delphi 之Copyrect的使用
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;
转载于:https://www.cnblogs.com/tc310/p/5192737.html
Delphi 之Copyrect的使用相关推荐
- Delphi使用资源文件全攻略
本文为原创,如需转载,请注明作者和出处,谢谢! 在通常情况下使用delphi设计程序,都是将字符串.图像等资源直接使用delphi提供的vcl控件加到*.dfm中,这样做会合修改这些资源时带来 ...
- Delphi制作图像特殊显示效果
Delphi制作实现图像的各种显示效果,比如百叶窗.渐变.淡入淡出.水平交错.雨滴效果等,用鼠标点击"打开图像"按钮,可以选择图像文件导入到窗体中:点击其它各个按钮,可以实现图像显 ...
- Delphi的笔记整理(一)
这几天清理资料,把以前学Delphi时的笔记翻出来了.大概是2005年时的吧,有些资料都没有什么价值了.以后再整理吧. Delphi Note 1.触发器的使用. 源数据库: 名称:info 字段:i ...
- 用DELPHI中Canvas特性开发图形软件
( 一)Canvas和CDC绘图方法比较: 我们可以从以下表格中看到Tcanvas和CDC相似的函数: 表 1--1 Canvas方法 CDC方法 功能 Arc Arc ...
- Delphi 常用API 函数
Delphi 常用API 函数 AdjustWindowRect 给定一种窗口样式,计算获得目标客户区矩形所需的窗口大小 AnyPopup 判断屏幕上是否存在任何弹出式窗口 ArrangeIconic ...
- Delphi编程中流的使用
什么是流?流,简单来说就是建立在面向对象基础上的一种抽象的处理数据的工具.在流中,定义了一些处理数据的基本操作,如读取数据,写入数据等,程序员是对流进行所有操作的,而不用关心流的另一头数据的真正流向. ...
- Delphi 汇编学习(八)--- 图像水平镜像垂直镜像的极致优化
一:水平镜像/翻转 将一幅图像水平镜像/翻转,代码很简单,就一行代码: procedure HorizMirror(bmp: TBitmap); beginbmp.Canvas.Copy ...
- Delphi USB摄像头
RAD Studio 10.2.3 测试√ 目录 声明: 1.展示设备 2.展示格式 3.打开预览 4.保存图片至本地 5.色彩选择 和 通道选项 附件:untUSBCamera单元文件 声明: us ...
- Delphi实现悬浮的卡拉OK字幕
千千静音的悬浮式卡拉OK字幕,大家一定觉得不错吧,其实用Delphi,你也可以很容易的做得到.首先我们在Delphi中新建一个700*130左右的窗体,上面放置两个Image控件,Image控件的Al ...
最新文章
- java list 查找_java面试之容器
- [Leetcode][第100题][JAVA][相同的树][二叉树][深度遍历][递归]
- 骨牌铺方格(HDU-2046)
- selenium中录制拖拽动作
- Idea-Plugin编写Android Studio插件
- ACE程序员教程(下载地址)
- rdkit GetAtoms获取化合物每个位置的索引;rdkit FindMCS大公共相同结构 找不同化合物之间的差异
- 一次系统宕机认识系统日志
- linux 终端tty的含义,终端、控制台、tty、shell等区别与概念初辨析
- Excel求和公式的几种用法
- 追求成功三要诀 文 | 刘东华
- OAUS自动升级系统
- 基于Transformers库的BERT模型:一个文本情感分类的实例解析
- 5G标准协议中的简写和缩略语
- VisionPro脚本Simple与Advanced
- hadoop3-求分组topn
- mysql自学英语差怎么_英语太差怎么办?
- 黑苹果社区2019年10月1日限时免费注册
- QQ登录错误码:100044的解决办法
- #今日论文推荐# 扩散模型家族再添一员,最新 Cold Diffusion 不再依赖高斯噪声