delphi - FireMonkey TransitionEffect 不考虑纵横比

Question

我正在尝试使用一个小型 FireMonkey 应用程序来浏览图像，并且我正在使用 TBlurTransitionEffect 从一个图像过渡到下一个图像。但我唯一的问题是效果似乎不尊重我使用它的 TImage 控件的纵横比。我的 TImage 具有 iwFit 的环绕模式，但过渡的行为就像设置为 iwStretch 一样。

该应用程序基本上是一个表单，其中包含一个填充有图像文件名的 TListBox 和一个附加了 TBlurTransitionEffect 的 TImage（其中一个 TFloatAnimation 作用于其进度属性）。代码如下所示

procedure TForm4.FloatAnimation1Finish(Sender: TObject);
begin
  Image1.Bitmap.Assign(BlurTransitionEffect1.Target);
end;

procedure TForm4.ListBox1Change(Sender: TObject);
begin
  BlurTransitionEffect1.Target.LoadFromFile(PicPath + ListBox1.Selected.Text);
  FloatAnimation1.Start;
end;

我想知道这是否是一个简单的解决方案，我怀疑我将不得不为图像添加白色边框以使它们与 TImage 具有相同的纵横比。