动态更改Graphics32 32的TImgView32 32的重放内核

Question

我想动态更改Graphics32 32的TImgView32的重采样内核。然而，没有明显的差别。下面是代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  ImgView321.Bitmap.LoadFromFile('1.bmp');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImgView321.Scale := ImgView321.Scale*2;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ImgView321.Scale := ImgView321.Scale/2;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  ImgView321.Bitmap.ResamplerClassName := 'TKernelResampler'; 
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  ImgView321.Bitmap.ResamplerClassName := 'TNearestResampler'
end;

Answer 1

当您选择“TKernelResampler”时，指定所使用的内核是很重要的。默认值为TBoxKernel，其结果与“TNearestResampler”几乎相同

事实上，从视觉的角度来看，它是相同的，只不过是一种不同的计算。

尝试使用“TCubicKernel”或“TLanczosKernel”。对于更多的控制，您也可以选择“THermiteKernel”或“TAlbrechtKernel”，它有两个控制参数(而不是一个)。