怎样在Image中显示图像不失真（在线等待）(30分)

S

seeok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-16

• #1

在delphi6中，用Image来显示Jpg图像，Image的大小有限。我把Stretch设为了True，图像
就失真了，不把Stretch设为True的话，如果图片比Image的大小大的话，也不行，请问各位有什么好的方法？

 

S

seeok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #2

哪为高手可以帮忙解决一下啊？不尽感激...

 

S

seeok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #3

哪位仁兄知道啊？急！！！！！

 

X

xmhch

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #4

先判断图片的大小，再决定IMAGE的尺寸，总之不要让IMAGE的尺寸固定不变，再和Stretch属性配合使用就可以了。

 

Z

zhuoyuesky

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #5

根据图片的宽高*缩放的比例，设置image的宽高,再将Stretch设为True。

 

S

seeok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #6

其实image的话是固定不变的。那我再想问一下：怎么样来判断图片的长和宽，代码应该怎么写？谢谢

 

S

springlee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-17

• #7

你用PHOTOSHOP不就可以定义图像的长宽了吗

 

K

kl78pgy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #8

设AutoSiza:=true
载入图片后即可获取图片的长和宽，由此可知比例，剩下的我就不说了吧[]

 

S

seeok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #9

有没有什么样的控件可以使图片不失真的啊（如果放置图片的区域大小是固定的，而图片是有大小的）？我记得用fastreport里的Image是不会失真的，但在Delphi中就没有像fastreport中那样的功能吗？

 

S

study999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-19

• #10

begin
ajpeg:=tjpegimage.create;
ajpeg.loadfromfile(opendialog1.FileName);
bitmap:=tbitmap.Create;
bitmap.Assign(ajpeg);
image1.Picture.graphic:=bitmap;
image1.Width:=bitmap.Width;
image1.Height:=bitmap.Height;
bitmap.Free;
end;