FireMonkey TransitionEffect不尊重纵横比

时间:2012-12-13 22:13:47

标签: delphi animation transition firemonkey

我正在尝试使用一个小型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具有相同的宽高比。

0 个答案:

没有答案