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と同じ縦横比にするために、画像に白い境界線を追加する必要があると思います.