エフェクトの完成

[vobslideshow/vob.git] / Unit1.pas

diff --git a/Unit1.pas b/Unit1.pas
index 90b2301..bbc3435 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -161,6 +161,7 @@ begin
     if ListView1.ItemIndex < ListView1.ItemCount - 1 then
     begin
       ComboBox1.ItemIndex := Random(ComboBox1.Items.Count);
+      FloatAnimation1.Stop;
       Button2Click(Sender);
     end;
   end