如何调整图片大小？ [英] How to resize a picture?

问题描述

我有图像（500x500），但我需要调整大小为200x200，并在TImage上绘制。如何实现这样的结果？

I have image (500x500) but I need to resize it to 200x200 and paint it on TImage. How to achieve such result?

注意
我知道 Stretch 属性在TImage中，但是我想以编程方式调整图像大小。

Note
I know about Stretch property in TImage, but I want to resize the image programmatically.

推荐答案

procedure ResizeBitmap(Bitmap: TBitmap; const NewWidth, NewHeight: integer);
begin
  Bitmap.Canvas.StretchDraw(
    Rect(0, 0, NewWidth, NewHeight),
    Bitmap);
  Bitmap.SetSize(NewWidth, NewHeight);
end;

这篇关于如何调整图片大小？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！