From: jiro <yamat0jp@yahoo.co.jp>
Date: Fri, 13 Mar 2015 07:25:17 +0000 (+0900)
Subject: TrackBarに不安あり
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=2401bd46c976c0b138f60cb584bb1c52b28c4a3b;hp=038f285a4dd733ef051f748b2fe9e302cf4c7a01;p=vobslideshow%2Fvob.git

TrackBarに不安あり
---

diff --git a/Unit1.pas b/Unit1.pas
index 318bd4e..2ee4305 100644
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -195,6 +195,10 @@ begin
     else
     begin
       MediaPlayer1.FIleName := Form3.FIleName;
+      if Form3.Switch1.IsChecked = true then
+        MediaPlayer1.Volume := 0
+      else
+        MediaPlayer1.Volume := Form3.MediaPlayer1.Volume;
       Label3.Text := '‰¹ºƒtƒ@ƒCƒ‹F' + ExtractFileName(Form3.FIleName);
     end;
 end;