将图片得大小进行转换得原理是什么？

Question

image1.autosize:=true;
image1.strech := true;
image1.loadformfile := 'fff.jpg';
OK!

Answer 1

试试：
var
  rRect: TRect;
  iWidth,iHeight: Integer;
....
  with rRect do
  begin
    Top    := Image1.Top;
    Left   := Image2.Left;
    Bottom := Top+135;
    Right  := Left+180;
  end;Image2.Canvas.StretchDraw(rRect,Image1.Picture.Graphic);

Answer 2

我要的是算法。
不要使用TImage控件。

Answer 3

使用StretchBlt的效果并不好.用这种方法对图片的大小进行更改后,会有比较大的色斑!