一个图象处理地问题？点击放大，，在线等！！！
在Timage的控件里面有一幅图象，我想用通过鼠标的单击或者双击的事件，让这张图片在；另外一个窗体上放大，我想问一下，这个怎样去实现呢？在线求助？ 问题点数：80、回复次数：8Top
1 楼laodiao（）回复于 2002-05-17 14:40:22 得分 0
我现在要操作的bmp图象，大家告诉我怎样实现好吗？Top
2 楼SPIRIT0220（游侠）回复于 2002-05-17 14:49:46 得分 0
把地图划分成各个热点，鼠标在某一热点点击的时候把放大的图片显示出来！Top
3 楼liuhelin（鹤林）回复于 2002-05-17 14:56:44 得分 20
很简单啊，只需要设image1.stretch:=true;再设定image1.width:=imgimage1.Picture.Width*2;
image1.height:=imgimage1.Picture.height*2;就行啊，你设image多大图片就多大，你想乘几就放大多少,
给分!!!Top
4 楼zhptj（北狼）回复于 2002-05-17 15:00:49 得分 20
建一个mdi，具体图象放大你可以用以下代码
procedure TForm1.Image1Click(Sender: TObject);
form2 : tform;
bmp: tbitmap;
begin
form2:=Tform.create;
bmp2:=tbitmap.create;
bmp2.loadfromfile('d:\dd.bmp');
bmp2.stretch:=true;
end;
可能是这个意思，我没调试，你试试看Top
5 楼chinaway（溪之）回复于 2002-05-17 15:02:34 得分 40
【基于Delphi的图像漫游】
在开发多媒体应用中,经常会遇到需要在有限区域内显示大图像的情况,有不少文章对此提出过解决方法,如通过调用Windows的API函数,直接读写内存等。这些方法有某些优点,但实现起来较为复杂,且易出错。笔者在实践中通过仔细摸索,利用Delphi的强大的面向对象可视化开发环境开发了一种交互式图像漫游方法。Delphi中,鼠标的消息响应是通过元件的OnMouseDown、OnMouseUp和OnMouseMove事件实现的,通过对此三个事件编程,可控制图像在有限区域内移动。考虑到所移动的图像的边界应总在该区域外,因此图像的左上角坐标应小于该区域对应坐标,图像右下角坐标应大于该区域对应坐标(除非图像大小比该区域小)。图1具体方法是:
1、新建一工程Project1,在Form1中依次放入Panel1、Panel2和Image1元件,注意Pa nel2和Image1分别在Panel1和Panel2上,再将一Label1元件加入Panel2中,调整Panel1尺寸为适当大小,并修改各元件属性为:
元件
属性名
属性值
Panel1
BevelInner:
bvRaised
BevelOuter: bvNone
BorderStyle: bsSingle
Panel2
Align:
alClient
Image1
AutoSize:
True
Picture:
"Apple.bmp"
Label1
Align:
alClient
Transparent : True
注意:此处Label1的作用不是显示字符,而是利用它响应鼠标消息,如果不用Label1而直接利用Image1的鼠标事件响应,则会由于其OnMouseDown事件的激活与Image1的自身坐标移动事件冲突而使图像发生闪烁甚至不能移动。
2、在implementation后加入变量声明:
origin:Tpoint;
image_left:integer;
image_top:integer;
visa1:Tpoint; (鼠标当前位置相对图像右下角的坐标)
visa2:Tpoint; (鼠标当前位置相对图像左上角的坐标)
canmove:boolean;
编写Label1鼠标响应事件:
procedure TForm1.Label1MouseDown(Sender: TObject; Button
: TMouseButton;S hift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
origin.x:=X;
origin.y:=Y;
image_left:=image1.left;
image_top:=image1.top;
visa1.x:=X-(image1.width-panel2.width+image1.left);
visa1.y:=Y-(image1.height-panel2.height+image1.top);
visa2.x:=X-image1.left;
visa2.y:=Y-image1.top;
canmove:=true;
end;
end;
procedure TForm1.Label1MouseMove(Sender: TObject; Shift:
TShiftState; X, Y: Integer);
begin
if canmove then
begin
if X< visa1.x then X:=visa1.x;
if X>visa2.x then X:=visa2.x;
if Y< visa1.y then Y:=visa1.y;
if Y>visa2.y then Y:=visa2.y;
image1.left:=image_left+(X-origin.x);
image1.top:=image_top+(Y-origin.y);
end;
end;
procedure TForm1.Label1MouseUp(Sender: TObject; Button:
TMouseButton;Shi ft: TShiftState; X, Y: Integer);
begin
canmove:=false;
end;
上述程序在Delphi 2.0中编译通过,经过扩充和修改还可应用于多媒体数据库。
摘自：DelphiVally
Top
6 楼cg1120（代码最优化－§惟坚韧者始能遂其志§）回复于 2002-05-17 15:03:09 得分 0
Image1.Height:=Image1.Height＋20;
Image1.width:=Image1.width＋20;Top
7 楼fhb（）回复于 2002-05-17 15:53:04 得分 0
http://www.codeidea.com/html/tmagnify.htmlTop
8 楼lcl101（木木）回复于 2002-05-17 16:01:53 得分 0
有好几种方法：
一：你可以把你要显示的窗口上的IMAGE控件设成你想要的大小，并把那个IMAGE控件的stretch属性设为TRUE，通过图片拷贝即可。
二：你可以用CopyRect函数进行图片的拷贝，把图片的局部或整体放大。
还有...我要上课去拉
有问提请用MAIL：lcl0740@sina.comTop
