请问怎么样实现图象的放大和宿小功能？(50分)

笨

笨猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-21

• #1

谢谢！

 

B

bswilson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-21

• #2

用TCanvas.CopyRect()和TCanvas.Draw()来实现图象显示。
用TCanvas.StretchDraw来控制图象的放大或缩小

 

D

D影子D

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-21

• #3

image的stretch设为true
控制image控件的大小就可以了

 

H

hukaijt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-22

• #4

用TCanvas.CopyRect()和TCanvas.Draw()来实现图象显示。
用TCanvas.StretchDraw来控制图象的放大或缩小
也可以用api函数bitblt来实现

 

Z

zjh2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #5

用setstretchbltmode,stretchblt来实现应该是最好的。

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-23

• #6

zjh2002的方法可以，setstretchbltmode设置可以减小图象失真度，为提高速度
一般在内存中处理

 

笨

笨猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-29

• #7

能给出例子简单的例子给俺看看吗？

 

H

huazai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-02

• #8

procedure TMainForm.ZoominClick(Sender: TObject); //放大
var

bmp:TBITMAP;
begin

begin
bmp:=Tbitmap.Create;
image1.AutoSize:=true;
bmp.Width:=trunc(1.1*image1.width);
bmp.Height:=trunc(1.1*image1.Height);
SetStretchBltMode(Bmp.Canvas.Handle,HalfTone);
stretchblt(bmp.Canvas.Handle,0,0,bmp.Width,bmp.Height,
image1.Picture.Bitmap.Canvas.Handle,0,0,image1.Width,image1.height,srccopy);
image1.Picture.Bitmap.Assign(bmp);
bmp.Free;
end;

 

L

lwsi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-12

• #9

我也在做这个，用了个没什么内函的方法，直接把image边框放大
procedure TForm3.SpeedButton2Click(Sender: TObject);
begin
image1.AutoSize:=false;
image1.Stretch:=true;
//让图片在中间显示
image1.Left:=image1.Left-trunc((image1.Width)/2);
image1.Top:=image1.Top-trunc((image1.Height)/2);
//边矩两倍两倍的变，变得很大次就死机了，你可以试试^O^
image1.Height:=image1.Height * 2;
image1.Width:=image1.Width * 2;
end;

 

笨

笨猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-26

• #10

多人接受答案了。