image怎样按比例显示一幅图片

[hansonboy]

一图片很大时,image正常不能全部显示,怎样按比例宿少图片再显示呢?

[hansonboy]

没人知道吗?

[江宁侯哥]

Image1.Stretch :=true;

[JJNW]

楼上的是“拉伸”，不是按比例缩放
搂主自己写函数吧

[hansonboy]

怎样做呢?

[nihongjiang]

var
hh,ww,xx:real;
begin
hh:=236; //image的高度
ww:=188; //image的宽度
if (hh < image1.Picture.Height) or (ww < image1.Picture.Width) then
begin
image1.Stretch :=true;
if (hh / image1.Picture.Height) < (ww / image1.Picture.Width) then
xx:= image1.Picture.Height / hh
else
xx:=image1.Picture.Width / ww;

image1.Height :=image1.Picture.Height / xx;
image1.width :=image1.Picture.width / xx;
end
else
begin
image1.Height :=hh;
image1.Width :=ww;
image1.Stretch :=false;
end;
end; 这段函数应该能满足你的要求

[zgq19801123]

up

[hansonboy]

image1.Height :=image1.Picture.Height / xx;

这里出错了

[hansonboy]

谢谢,搞好了,是整数跟实数的错误

[liuqifeiyu]

nihongjiang(jacky-ni) 的代码启示：
如果那样行的话为什么不改成这样呢？：
begin

image1.Stretch :=true;
image1.Picture.Width：=image1.width;
image1.Picture.Height:=image1.heigth;

end; 这段函数应该能满足你的要求

[cduck]

上面的函数应该可以实现这个功能

我简单的解释一下函数思想吧 完了你可以自己改或写

IF 图片高>image高 or 图片宽>image宽
begin
图片高=image高 图片宽=图片宽 X (image高/图片高)
end;