Changeset 353 for CoolAudio/Demo/UFormMain.lfm

Timestamp:

Apr 23, 2012, 2:57:12 PM (12 years ago)

Author:

chronos

Message:

• Modified: TPlayList is now registred as component in group CoolAudio in Component pallete.
• Added: Created placeholder component TMediaPlayer which can be switched to different audio systems in runtime without destruction/construction.

File:

• CoolAudio/Demo/UFormMain.lfm (modified) (5 diffs)

CoolAudio/Demo/UFormMain.lfm

@@ -9 +9 @@
   OnCreate = FormCreate
   OnDestroy = FormDestroy
+  OnShow = FormShow
   LCLVersion = '1.1'
   object ButtonOpen: TButton
@@ -42 +43 @@
     TabOrder = 3
   end
-  object TrackBar1: TTrackBar
+  object TrackBarPosition: TTrackBar
     Left = 0
     Height = 33
@@ -48 +49 @@
     Width = 432
     Max = 100
-    OnChange = TrackBar1Change
+    OnChange = TrackBarPositionChange
     Position = 0
     Anchors = [akTop, akLeft, akRight]
@@ -103 +104 @@
     TabOrder = 8
   end
+  object TrackBarVolume: TTrackBar
+    Left = 352
+    Height = 25
+    Top = 80
+    Width = 75
+    Max = 100
+    OnChange = TrackBarVolumeChange
+    Position = 0
+    TabOrder = 9
+  end
+  object Label2: TLabel
+    Left = 312
+    Height = 14
+    Top = 87
+    Width = 39
+    Caption = 'Volume:'
+    ParentColor = False
+  end
   object OpenDialog1: TOpenDialog
     Filter = 'Any file (*.*)|*.*|MP3 (*.mp3)|*.mp3|WAV (*.wav)|*.wav'
-    left = 272
-    top = 96
+    left = 168
   end
   object TimerPlayback: TTimer
     OnTimer = TimerPlaybackTimer
-    left = 328
-    top = 88
+    left = 240
   end
   object ActionList1: TActionList
-    left = 208
-    top = 96
+    left = 104
     object APlayNext: TAction
       Caption = 'Next'
@@ -145 +161 @@
     end
   end
+  object MediaPlayer: TMediaPlayer
+    Volume = 0
+    Muted = False
+    Active = True
+    left = 312
+  end
+  object PlayList: TPlayList
+    RandomOrder = False
+    RepeatInfinitely = False
+    left = 375
+    top = 2
+  end
 end