Sound設定画面を追加 追加したにとどまる

[vobslideshow/vob.git] / Unit1.pas

diff --git a/Unit1.pas b/Unit1.pas
index af42cfc..318bd4e 100644 (file)
--- a/Unit1.pas
+++ b/Unit1.pas
@@ -9,7 +9,8 @@ uses
   Data.Bind.EngExt, FMX.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs,
   FMX.Bind.Editors, Data.Bind.Components, FMX.StdCtrls, FMX.Effects,
   FMX.Filter.Effects, FMX.Ani, FMX.Objects, FMX.Menus, FMX.ListView.Types,
-  FMX.ListView, System.TypInfo, FMX.Layouts, FMX.ListBox;
+  FMX.ListView, System.TypInfo, FMX.Layouts, FMX.ListBox,
+  FMX.Controls.Presentation, FMX.Edit, FMX.EditBox, FMX.SpinBox, FMX.Media;
 
 type
   TForm1 = class(TForm)
@@ -55,6 +56,12 @@ type
     MenuItem10: TMenuItem;
     Button3: TButton;
     MenuItem11: TMenuItem;
+    SpinBox1: TSpinBox;
+    Label1: TLabel;
+    Label2: TLabel;
+    MediaPlayer1: TMediaPlayer;
+    Label3: TLabel;
+    MenuItem12: TMenuItem;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure ListView1Change(Sender: TObject);
@@ -63,6 +70,8 @@ type
     procedure MenuItem5Click(Sender: TObject);
     procedure MenuItem8Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
+    procedure SpinBox1Change(Sender: TObject);
+    procedure MenuItem12Click(Sender: TObject);
   private
     progress: Boolean;
     { private \90é\8c¾ }
@@ -77,7 +86,7 @@ implementation
 
 {$R *.fmx}
 
-uses Unit2;
+uses Unit2, Unit3;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
@@ -107,7 +116,7 @@ var
   s: TFmxObject;
   i: Integer;
 begin
-  if (ListView1.ItemIndex > -1) and
+  if (ListView1.ItemIndex > -1) and (ComboBox1.Items.Count > 0) and
     (ListView1.ItemIndex < ListView1.ItemCount - 1) then
   begin
     if FloatAnimation1.Running = true then
@@ -175,6 +184,21 @@ begin
   Image1.Bitmap.Assign(ListView1.Items[ListView1.ItemIndex].Bitmap);
 end;
 
+procedure TForm1.MenuItem12Click(Sender: TObject);
+begin
+  if Form3.ShowModal = mrOK then
+    if Form3.FIleName = '' then
+    begin
+      MediaPlayer1.Clear;
+      Label3.Text := '\89¹\90º\83t\83@\83C\83\8b\81F' + '\82È\82µ';
+    end
+    else
+    begin
+      MediaPlayer1.FIleName := Form3.FIleName;
+      Label3.Text := '\89¹\90º\83t\83@\83C\83\8b\81F' + ExtractFileName(Form3.FIleName);
+    end;
+end;
+
 procedure TForm1.MenuItem5Click(Sender: TObject);
 begin
   Close;
@@ -198,4 +222,9 @@ begin
   end;
 end;
 
+procedure TForm1.SpinBox1Change(Sender: TObject);
+begin
+  Label2.Visible := SpinBox1.Value = 2.50;
+end;
+
 end.