soundのトラック表示を変更

[vobslideshow/vob.git] / Unit1.fmx

diff --git a/Unit1.fmx b/Unit1.fmx
index fa04665..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]
@@ -13,166 +14,213 @@ object Form1: TForm1
     MultiResBitmap = <
       item
       end>
+    Anchors = [akTop, akRight]
     Position.X = 280.000000000000000000
     Position.Y = 40.000000000000000000
     Size.Width = 481.000000000000000000
     Size.Height = 345.000000000000000000
     Size.PlatformDefault = False
     WrapMode = Stretch
-  end
-  object ListView1: TListView
-    ItemAppearanceClassName = 'TImageListItemRightButtonAppearance'
-    ItemEditAppearanceClassName = 'TImageListItemRightButtonDeleteAppearance'
-    HeaderAppearanceClassName = 'TListHeaderObjects'
-    FooterAppearanceClassName = 'TListHeaderObjects'
-    Position.X = 24.000000000000000000
-    Position.Y = 40.000000000000000000
-    Size.Width = 209.000000000000000000
-    Size.Height = 345.000000000000000000
-    Size.PlatformDefault = False
-    TabOrder = 5
-    OnChange = ListView1Change
-  end
-  object Button1: TButton
-    Position.X = 88.000000000000000000
-    Position.Y = 432.000000000000000000
-    TabOrder = 6
-    Text = #38283#12367
-    OnClick = Button1Click
-  end
-  object Button2: TButton
-    Position.X = 496.000000000000000000
-    Position.Y = 432.000000000000000000
-    TabOrder = 9
-    Text = #23455#34892
-    OnClick = Button2Click
-  end
-  object Timer1: TTimer
-    Left = 72
-    Top = 192
-  end
-  object MainMenu1: TMainMenu
-    Left = 152
-    Top = 136
-    object MenuItem1: TMenuItem
-      Text = 'File'
-      object MenuItem2: TMenuItem
-        Locked = True
-        Text = 'Open'
-        OnClick = Button1Click
-      end
-      object MenuItem4: TMenuItem
-        Locked = True
-        Text = '-'
-      end
-      object MenuItem5: TMenuItem
-        Locked = True
-        Text = 'Exit'
-        OnClick = MenuItem5Click
-      end
-    end
-    object MenuItem3: TMenuItem
-      Text = 'Operation'
-      object MenuItem6: TMenuItem
-        Locked = True
-        Text = 'Run'
-        OnClick = Button2Click
-      end
-    end
-    object MenuItem7: TMenuItem
-      Text = 'Setting'
-      object MenuItem8: TMenuItem
-        Locked = True
-        Text = 'Effects'
-        OnClick = MenuItem8Click
-      end
-    end
-  end
-  object OpenDialog1: TOpenDialog
-    Filter = #30011#20687#12501#12449#12452#12523'(*.jpg;*.jpeg;*.bmp;*png)|*.jpg;*.jpeg;*.bmp;*.png'
-    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
-    Left = 176
-    Top = 264
     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
+    Position.Y = 432.000000000000000000
+    TabOrder = 9
+    Text = #23455#34892
+    OnClick = Button2Click
+  end
+  object Timer1: TTimer
+    Left = 72
+    Top = 192
+  end
+  object MainMenu1: TMainMenu
+    Left = 152
+    Top = 136
+    object MenuItem1: TMenuItem
+      Text = 'File'
+      object MenuItem2: TMenuItem
+        Locked = True
+        Text = 'Open'
+        OnClick = Button1Click
+      end
+      object MenuItem11: TMenuItem
+        Locked = True
+        Text = 'Delete'
+        OnClick = Button3Click
+      end
+      object MenuItem4: TMenuItem
+        Locked = True
+        Text = '-'
+      end
+      object MenuItem5: TMenuItem
+        Locked = True
+        Text = 'Exit'
+        OnClick = MenuItem5Click
+      end
+    end
+    object MenuItem3: TMenuItem
+      Text = 'Operation'
+      object MenuItem6: TMenuItem
+        Locked = True
+        Text = 'Run'
+        OnClick = Button2Click
+      end
+    end
+    object MenuItem7: TMenuItem
+      Text = 'Setting'
+      object MenuItem8: TMenuItem
+        Locked = True
+        Text = 'Effects'
+        OnClick = MenuItem8Click
+      end
+      object MenuItem12: TMenuItem
+        Locked = True
+        Text = 'Sound'
+        OnClick = MenuItem12Click
+      end
+    end
+    object MenuItem9: TMenuItem
+      Text = 'Help'
+      object MenuItem10: TMenuItem
+        Locked = True
+        Text = 'About'
+      end
+    end
+  end
+  object OpenDialog1: TOpenDialog
+    Filter = #30011#20687#12501#12449#12452#12523'(*.jpg;*.jpeg;*.bmp;*png)|*.jpg;*.jpeg;*.bmp;*.png'
+    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
+    Left = 176
+    Top = 264
+  end
   object FloatAnimation1: TFloatAnimation
-    Duration = 5.000000000000000000
+    Duration = 2.500000000000000000
     Interpolation = Exponential
     OnFinish = FloatAnimation1Finish
     PropertyName = 'Progress'
@@ -180,6 +228,7 @@ object Form1: TForm1
     StopValue = 100.000000000000000000
   end
   object ComboBox1: TComboBox
+    Anchors = [akTop, akRight]
     Position.X = 464.000000000000000000
     Position.Y = 480.000000000000000000
     Size.Width = 148.000000000000000000
@@ -187,4 +236,46 @@ object Form1: TForm1
     Size.PlatformDefault = False
     TabOrder = 22
   end
+  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
+    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