图象处理高手请进，怎么实现图象的放大与缩小？进来有分

[wolovecn]

在TImage上画图，
谢谢
最好有代码

[lxhong1980]

procedure TForm_HuaTu.BitBtn5Click(Sender: TObject);
begin
Image1.Canvas.CopyRect(Rect(0,0,2*Image1.Width,2*Image1.Height),Image1.Canvas, Rect(0,0,Image1.Width,Image1.Height));

end;

procedure TForm_HuaTu.BitBtn6Click(Sender: TObject);
begin
Image1.Canvas.Pen.Mode:=pmNotXor;

Image1.Canvas.CopyRect(Rect(0,0,Image1.Width div 2,Image1.Height div 2),Image1.Canvas, Rect(0,0,Image1.Width,Image1.Height));

end;

缩小的时候原来图象还在

继续关注

[lxhong1980]

begin
image1.Width := image1.Width * 2;
image1.Height := image1.Height * 2;
//image2.Picture.Assign(image1.Picture);
image2.Stretch := true;
end;


procedure TForm1.BitBtn2Click(Sender: TObject);
begin
image1.Canvas.LineTo(77,77);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
image1.Width := image1.Width div 2;
image1.Height := image1.Height div 2;
end;

[jpyc]

本文介绍实现图象局部、平滑和无闪烁放大的算法原理，以及在Delphi中实现的技术。读完本文，您一定会为Delphi能用如此少的代码实现如此强大的功能惊叹不已，这是许多其它开发工具所无法比拟的。
算法原理

在Delphi中，可利用类Tcanvas的CopyRect方法实现图象的放大和缩小。其功能是将源画布上的一个指定矩形区域（简称源矩形）内的象素，拷贝到目的画布上的一个指定矩形区域（简称目的矩形）中。亦可称之为象素块复制，如图1所示。

由CopyMode属性确定拷贝的模式。在直接拷贝模式（cmSrcCopy）下，当源矩形与目的矩形相等时，图象不变；若源矩形大于目的矩形，图象则缩小；而当源矩形小于目的矩形时，图象便被放大（在目的矩形中扩展）。源矩形与目的矩形大小之比，决定图象的缩放倍数。CopyRect方法声明如下：

Procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: Trect);

其中参数，Dest为目的矩形，Canvas是源画布，Source为源矩形。

实现步骤

新建应用程序主目录C:及其子目录Images，将事先制作好的位图图象Picture.bmp存入Images目录。本例中，Picture.bmp的大小为260*310象素。

启动Delphi IDE，新建项目Magnifier.dpr，主窗体单元命名为Main.pas，存入C:目录。在主窗体上放置一个TPanel组件，并在其中加入两个TImage组件。两个TImage组件分别命名为ForeImage和BackImage，前者重叠于后者之上，并且都装入Picture.bmp位图。

主窗体和各组件的主要属性按表1设置：

表1 主窗体和各组件属性设置

组 件 属 性 设 置

Form1 BorderIcons.biMaximize False

BorderStyle bsNone

Color clRed

Height 364

KeyPreview True

Name MainForm

Position poScreenCenter

Width 294

WindowState wsNormal

Panel1 Align alNone

BevelInner bvLowered

BevelOuter bvRaised

BevelWidth 2

BorderStyle bsNone

BorderWidth 2

Height 322

Name FramePanel

Visible Ture

Width 272

Image1 Align alNone

AutoSize True

Center True

Height 310

Name BackImage

Picture Picture.bmp

Stretch False

Visible False

Width 260

Image2 Align alNone

AutoSize True

Center True

Height 310

Name ForeImage

Picture Picture.bmp

Stretch False

Visible True

Width 260

上述各组件的许多属性，读者亦可根据个人的爱好设定。在主单元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;

--------------------------------------------
参考吧

[dxwin]

我用vb编过一个，要扩大几倍就是把一个个象素点相应复制几个，简单

[wypepsi]

Image.Picture.LoadFromFile(ImageName);//将图片导入Image

Image.Stretch:=True;//打开图像的自动缩放属性

然后你只需要动态调节Image的Width和Height属性就可以实现图像的放大和缩小

[FrameSniper]

8会，学习！

[wolovecn]

wypepsi(百事可乐)
好象缩小时原来的图象也在

[haodaniu]

用stretchblt(image1.canvas.handle,left,top,width,height,bmp.canvas.handle,left,top,width,height,srccopy);
其中image1是你要往上绘图的image，bmp是你的原图,
就是用api函数stretchblt().

[horse_h]

up