delphi - Delphi 中可以很好地缩放图像吗？

Question

我正在使用 Delphi 2009，我想缩放图像以适应可用空间。显示的图像始终小于原始图像。问题是 TImage Stretch 属性效果不佳，并且损害了图片的可读性。

_{(来源:xrw.bc.ca)}

我希望看到它像这样缩放:

_{(来源:xrw.bc.ca)}

有什么建议可以最好地做到这一点吗？尝试过JVCL，但好像没有这个能力。一个免费的库固然很好，但也许有一个低成本的库“只”做这件事也不错。

Answer 1

您真的非常想使用Graphics32 .

procedure DrawSrcToDst(Src, Dst: TBitmap32);
var
  R: TKernelResampler;  
begin
  R := TKernelResampler.Create(Src);
  R.Kernel := TLanczosKernel.Create;
  Dst.Draw(Dst.BoundsRect, Src.BoundsRect, Src);
end;

对图像重新采样时，您有多种方法和过滤器可供选择。上面的示例使用了内核重采样器(有点慢，但结果很好)和 Lanczos过滤器作为重建内核。上面的例子应该适合你。