image 显示图片能让图片按照image的大小变化而等比例变化

Question

image没有这个功能.
自己去作吧.

Answer 1

stretch
用SetStretchBltMode设为把图象缩放模式设为HALFTONE，再调用StretchBlt函数缩放。
SetStretchBltMode和StretchBlt都是winapi，使用也不复杂，可查相关帮助

Answer 2

TCanvas里有StretchDraw函数，可以达到你要的效果

Answer 3

计算 Image1.Picture.Width 和 Image1.Picture.Height 比例，然后把 Image1.Width 和 Image1.Height 也按此比例，并设置 Image1.Stretch := True 即可解决你的需要。

Answer 4

这也像现成的?自己写代码咯!
我程序里的一段代码:MainImage.Stretch:=True;
MainImage.AutoSize:=False;
if (MainImage.Height/(MainImage.Width+1))>(PicPanel.Height/(PicPanel.Width+1)) then
begin
  MainImage.Height:=PicPanel.Height;
  If MainImage.Height=0 then
  MainImage.Height:=MainImage.Height+1;
  MainImage.Width:=Trunc(MainImage.Height*(PicX/PicY));
  MainImage.Top:=0;
  MainImage.Left:=Trunc((PicPanel.Width-MainImage.Width)/2);
end
else
begin
  MainImage.Width:=PicPanel.Width;
  MainImage.Height:=Trunc(MainImage.Width*(PicY/PicX));
  MainImage.Top:=Trunc((PicPanel.Height-MainImage.Height)/2);
  MainImage.Left:=0;
end;

Answer 5

把图片的stretch属性设置为true;