如何缩放位图？

Question

我希望将已有的位图缩放成特定的尺寸（如，将32X32大小，缩放成16X16），然后可以直接使用或保存下来。请各位高人指点！

Answer 1

var SorBitmap,DesBitmap:Tbitmap;
begin
  SorBitmap:=TBitmap.Create;
  DesBitmap:=TBitmap.Create;
  SorBitmap.LoadFromFile('c:\123.bmp');
  DesBitmap.Width:=16;
  DesBitmap.Height:=16;//此处可以自定义大小 
  DesBitmap.Canvas.StretchDraw(DesBitmap.Canvas.ClipRect,SorBitmap);
  DesBitmap.SaveToFile('C:\abc.bmp');
end;