soundのトラック表示を変更

[vobslideshow/vob.git] / Unit1.fmx

diff --git a/Unit1.fmx b/Unit1.fmx
index 7271bd0..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]
@@ -20,108 +21,132 @@ object Form1: TForm1
     Size.Height = 345.000000000000000000
     Size.PlatformDefault = False
     WrapMode = Stretch
-  end
-  object ListView1: TListView
-    ItemAppearanceClassName = 'TImageListItemRightButtonAppearance'
-    ItemEditAppearanceClassName = 'TImageListItemRightButtonDeleteAppearance'
-    HeaderAppearanceClassName = 'TListHeaderObjects'
-    FooterAppearanceClassName = 'TListHeaderObjects'
-    Align = Scale
-    Position.X = 28.000000000000000000
-    Position.Y = 40.000000000000000000
-    Size.Width = 200.000000000000000000
-    Size.Height = 345.000000000000000000
-    Size.PlatformDefault = False
-    TabOrder = 5
-    OnChange = ListView1Change
-  end
-  object Button1: TButton
-    Position.X = 88.000000000000000000
-    Position.Y = 432.000000000000000000
-    Size.Width = 80.000000000000000000
-    Size.Height = 22.000000000000000000
-    Size.PlatformDefault = False
-    TabOrder = 6
-    Text = #38283#12367
-    OnClick = Button1Click
     object BandedSwirlTransitionEffect1: TBandedSwirlTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       Strength = 1.000000000000000000
       Frequency = 20.000000000000000000
     end
     object BlindTransitionEffect1: TBlindTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       NumberOfBlinds = 5.000000000000000000
     end
     object BlurTransitionEffect1: TBlurTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object BrightTransitionEffect1: TBrightTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object CircleTransitionEffect1: TCircleTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       FuzzyAmount = 0.100000001490116100
       CircleSize = 1.000000000000000000
     end
     object CrumpleTransitionEffect1: TCrumpleTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       RandomSeed = 0.300000011920929000
     end
     object DissolveTransitionEffect1: TDissolveTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       RandomSeed = 0.300000011920929000
     end
     object DropTransitionEffect1: TDropTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       RandomSeed = 0.300000011920929000
     end
     object FadeTransitionEffect1: TFadeTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object LineTransitionEffect1: TLineTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       FuzzyAmount = 0.100000001490116100
     end
     object MagnifyTransitionEffect1: TMagnifyTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object PixelateTransitionEffect1: TPixelateTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object RippleTransitionEffect1: TRippleTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object RotateCrumpleTransitionEffect1: TRotateCrumpleTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       RandomSeed = 0.300000011920929000
     end
     object SaturateTransitionEffect1: TSaturateTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object ShapeTransitionEffect1: TShapeTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       RandomSeed = 0.300000011920929000
     end
     object SlideTransitionEffect1: TSlideTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object SwirlTransitionEffect1: TSwirlTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       Strength = 1.000000000000000000
     end
     object WaterTransitionEffect1: TWaterTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       RandomSeed = 0.300000011920929000
     end
     object WaveTransitionEffect1: TWaveTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
     end
     object WiggleTransitionEffect1: TWiggleTransitionEffect
+      Enabled = False
       Progress = 0.000000000000000000
       RandomSeed = 0.300000011920929000
     end
   end
+  object ListView1: TListView
+    ItemAppearanceClassName = 'TImageListItemAppearance'
+    ItemEditAppearanceClassName = 'TImageListItemShowCheck'
+    HeaderAppearanceClassName = 'TListHeaderObjects'
+    FooterAppearanceClassName = 'TListHeaderObjects'
+    EditMode = True
+    Align = Scale
+    Position.X = 28.000000000000000000
+    Position.Y = 40.000000000000000000
+    Size.Width = 200.000000000000000000
+    Size.Height = 345.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 5
+    ItemAppearanceObjects.ItemEditObjects.GlyphButton.ClickOnSelect = False
+    OnChange = ListView1Change
+    SearchVisible = True
+  end
+  object Button1: TButton
+    Position.X = 88.000000000000000000
+    Position.Y = 432.000000000000000000
+    Size.Width = 80.000000000000000000
+    Size.Height = 22.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 6
+    Text = #38283#12367
+    OnClick = Button1Click
+  end
   object Button2: TButton
     Anchors = [akTop, akRight]
     Position.X = 496.000000000000000000
@@ -144,6 +169,11 @@ object Form1: TForm1
         Text = 'Open'
         OnClick = Button1Click
       end
+      object MenuItem11: TMenuItem
+        Locked = True
+        Text = 'Delete'
+        OnClick = Button3Click
+      end
       object MenuItem4: TMenuItem
         Locked = True
         Text = '-'
@@ -169,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'
@@ -185,7 +220,7 @@ object Form1: TForm1
     Top = 264
   end
   object FloatAnimation1: TFloatAnimation
-    Duration = 5.000000000000000000
+    Duration = 2.500000000000000000
     Interpolation = Exponential
     OnFinish = FloatAnimation1Finish
     PropertyName = 'Progress'
@@ -201,11 +236,46 @@ object Form1: TForm1
     Size.PlatformDefault = False
     TabOrder = 22
   end
-  object SpeedButton1: TSpeedButton
-    StaysPressed = True
-    Position.X = 672.000000000000000000
+  object Button3: TButton
+    Position.X = 88.000000000000000000
+    Position.Y = 480.000000000000000000
+    TabOrder = 29
+    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
-    Text = #19968#26178#20572#27490
-    OnClick = SpeedButton1Click
+    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