急！！！图片在image中显示的时候，如何按比例自动缩放图片的大小？

[lorvery]

当一张图片的实际尺寸大于image所在的panel时，只能看到图片的一部分？
如何使图片按比例缩小后全部显示出来？

[老之]

Image的Stretch属性设成True

[lorvery]

不行，还是只能看到实际图片的一部分

[Frank.WU]

autosize :=true;
Stretch :=true;

[立志做一个佳娃~]

查看中学数学课程中的：等比。。

举例：

2 4
- -
4 8

4*4=16
2*8=16

四个数分别对应原始图片长宽，及你想缩放后图片的宽（长），就能算出缩放后图片的长（宽）。

[Allblus]

这样不行，要把图片按缩略图显示上面的都不可以，怎么办啊，我也要这样做

[rock8283]

关注中...

[SonicX]

//等比例缩小
uses Math;
var
Zoom:Extended;
W,H:integer;
bmp:Tbitmap;
begin
bmp:=Tbitmap.Create;
bmp.LoadFromFile('c:\aa.bmp');
Zoom:=Image1.Width/Max(bmp.Width,bmp.Height); //获得比例值
W:=Trunc(bmp.Width*Zoom);
H:=Trunc(bmp.Height*Zoom);
//居中显示缩小后的图片
Image1.Canvas.StretchDraw(Rect(Trunc((Image1.width-W)/2),Trunc((Image1.Height-H)/2),Trunc((Image1.width-W)/2)+W,Trunc((Image1.Height-H)/2)+H),Bmp);
bmp.free;
end;