让图像旋转
http://www.wapsec.com.cn/delphi(2000年8月23日) 作者:srw
----Delphi中的Image构件可以显示位图，进一步，我们还可以用它
完成位图旋转。
----把一个点绕原点旋转α角度后，新的坐标位置与原坐标位置的
关系是：
X=x?cosα－y?sinα
Y=x?sinα＋y?cosα
例如要把位图顺时针旋转90度，坐标变换公式为：X=－yY=x
----把这一公式用到Image构件上，显示位图的主要问题是Image构
件显示的位图只有一个象限，并且x、y坐标也是互相颠倒的，为了
解决这个问题，必须在Image构件上建立一个新的坐标原点。下面就
举例说明。
----1.新建一工程project1,在form1上添加image1、image2、
image3、image4，其Autosize属性设为True,image1用来显示原
图，image2、image3、image4分别用来显示旋转90度、180度和270
度后的图像。双击image1，选定一幅bmp图。
----2.添加Button1、Button2、Button3和Button4按钮，其
caption属性分别为"原图"、"旋转90度"、"旋转180度"、
"旋转270度"。
----3.编写"旋转90度"按钮的OnClick事件。
procedureTForm1.Button2Click(Sender:TObject);
var
i,j:integer;
begin
//确定旋转后位图的大小
image2.Picture.Bitmap.Height:=image1.picture.width;
image2.Picture.Bitmap.Width:=image1.picture.height;
fori:=0toimage1.Heightdo
forj:=0toimage1.Widthdo
image2.canvas.Pixels[(－i＋image1.Height),
j]:=image1.canvas.Pixels[j,i];
end;
----4.编写"旋转180度"按钮的OnClick事件。
procedureTForm1.Button3Click(Sender:TObject);
var
i,j:integer;
begin
//确定旋转后位图的大小
image3.Picture.Bitmap.Height:=image1.picture.Height;
image3.Picture.Bitmap.Width:=image1.picture.Width;
fori:=0toimage1.Heightdo
forj:=0toimage1.Widthdo
image3.canvas.Pixels[(image1.Width
－j),(image1.Height－i)]:=image1.canvas.Pixels[j,i];
end;
----5.编写"旋转270度"按钮的OnClick事件。代码和步骤3相
似，只需要用image4替换image2，然后用以下的语句替换步骤3for
循环中的原有的语句。
image4.canvas.Pixels[i,(image1.Width－j)]:=image1.canvas.Pixels[j,i];
基于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中编译通过,经过扩充和修改还可应用于多媒体
数据库的图像显示,对于开发友好
界面有一定借鉴作用。
自己去推敲
