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

diff --git a/Unit1.fmx b/Unit1.fmx
index 3f4abc4..744713b 100644 (file)
--- a/Unit1.fmx
+++ b/Unit1.fmx
@@ -1,9 +1,10 @@
 object Form1: TForm1
   Left = 0
   Top = 0
-  Caption = 'Form1'
+  Caption = 'vobslideshow'
   ClientHeight = 578
   ClientWidth = 824
+  Visible = True
   FormFactor.Width = 320
   FormFactor.Height = 480
   FormFactor.Devices = [Desktop]
@@ -198,6 +199,11 @@ object Form1: TForm1
         Text = 'Effects'
         OnClick = MenuItem8Click
       end
+      object MenuItem12: TMenuItem
+        Locked = True
+        Text = 'Sound'
+        OnClick = MenuItem12Click
+      end
     end
     object MenuItem9: TMenuItem
       Text = 'Help'
@@ -237,4 +243,39 @@ object Form1: TForm1
     Text = #21066#38500
     OnClick = Button3Click
   end
+  object SpinBox1: TSpinBox
+    Touch.InteractiveGestures = [LongTap, DoubleTap]
+    TabOrder = 30
+    Cursor = crIBeam
+    Min = 2.500000000000000000
+    Max = 20.000000000000000000
+    Value = 2.500000000000000000
+    ValueType = Float
+    Increment = 0.500000000000000000
+    Position.X = 296.000000000000000000
+    Position.Y = 432.000000000000000000
+    OnChange = SpinBox1Change
+  end
+  object Label1: TLabel
+    Position.X = 312.000000000000000000
+    Position.Y = 408.000000000000000000
+    Text = #34920#31034#38291#38548
+  end
+  object Label2: TLabel
+    Position.X = 312.000000000000000000
+    Position.Y = 456.000000000000000000
+    Text = 'Minimam'
+  end
+  object Label3: TLabel
+    Position.X = 616.000000000000000000
+    Position.Y = 408.000000000000000000
+    Size.Width = 201.000000000000000000
+    Size.Height = 17.000000000000000000
+    Size.PlatformDefault = False
+    Text = #38899#22768#12501#12449#12452#12523#65306#12394#12375
+  end
+  object MediaPlayer1: TMediaPlayer
+    Left = 248
+    Top = 192
+  end
 end

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.

diff --git a/vobslideshow.dpr b/vobslideshow.dpr
index 9c3a8f0..708107b 100644 (file)
--- a/vobslideshow.dpr
+++ b/vobslideshow.dpr
@@ -4,7 +4,8 @@ uses
   System.StartUpCopy,
   FMX.Forms,
   Unit1 in 'Unit1.pas' {Form1},
-  Unit2 in 'Unit2.pas' {Form2};
+  Unit2 in 'Unit2.pas' {Form2},
+  Unit3 in 'Unit3.pas' {Form3};
 
 {$R *.res}
 
@@ -12,5 +13,6 @@ begin
   Application.Initialize;
   Application.CreateForm(TForm1, Form1);
   Application.CreateForm(TForm2, Form2);
+  Application.CreateForm(TForm3, Form3);
   Application.Run;
 end.

diff --git a/vobslideshow.dproj b/vobslideshow.dproj
index a3920d3..e7d0e03 100644 (file)
--- a/vobslideshow.dproj
+++ b/vobslideshow.dproj
@@ -219,6 +219,10 @@
             <Form>Form2</Form>
             <FormType>fmx</FormType>
         </DCCReference>
+        <DCCReference Include="Unit3.pas">
+            <Form>Form3</Form>
+            <FormType>fmx</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Release">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>
@@ -255,6 +259,12 @@
                         <Overwrite>true</Overwrite>
                     </Platform>
                 </DeployFile>
+                <DeployFile LocalName="Win32\Release\vobslideshow.exe" Configuration="Release" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>vobslideshow.exe</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
                 <DeployClass Required="true" Name="DependencyPackage">
                     <Platform Name="iOSDevice">
                         <Operation>1</Operation>