我正在尝试使用一个小型FireMonkey应用程序来浏览图像,我正在使用TBlurTransitionEffect从一个图像转换到另一个图像。但我唯一的问题是效果似乎并不尊重我正在使用它的TImage控件的宽高比。我的TImage有一个iwFit的包装模式,但转换的行为就像设置为iwStretch一样。
应用程序基本上是一个带有TListBox的表单,其中填充了图像文件名和附加了TBlurTransitionEffect的TImage(TFloatAnimation作用于其progress属性)。代码如下所示
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具有相同的宽高比。