object FormMain: TFormMain Left = 361 Height = 131 Top = 277 Width = 434 Caption = 'CoolAudio demo' ClientHeight = 131 ClientWidth = 434 OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow LCLVersion = '1.1' object ButtonOpen: TButton Left = 9 Height = 25 Top = 48 Width = 47 Action = AOpen TabOrder = 0 end object ButtonPlay: TButton Left = 64 Height = 25 Top = 48 Width = 47 Action = APlay TabOrder = 1 end object ButtonPause: TButton Left = 120 Height = 25 Top = 48 Width = 48 Action = APause TabOrder = 2 end object ButtonStop: TButton Left = 176 Height = 25 Top = 48 Width = 48 Action = AStop TabOrder = 3 end object TrackBarPosition: TTrackBar Left = 0 Height = 34 Top = 8 Width = 432 Max = 100 OnChange = TrackBarPositionChange Position = 0 Anchors = [akTop, akLeft, akRight] TabOrder = 4 end object ComboBoxBackend: TComboBox Left = 88 Height = 27 Top = 80 Width = 128 ItemHeight = 0 OnChange = ComboBoxBackendChange Style = csDropDownList TabOrder = 5 end object Label1: TLabel Left = 12 Height = 18 Top = 80 Width = 61 Caption = 'Backend:' ParentColor = False end object LabelPosition: TLabel Left = 10 Height = 18 Top = 112 Width = 57 Caption = 'Position:' ParentColor = False end object ButtonPlaylist: TButton Left = 360 Height = 25 Top = 48 Width = 67 Action = AShowPlaylist TabOrder = 6 end object ButtonPrevious: TButton Left = 232 Height = 25 Top = 48 Width = 57 Action = APlayPrevious TabOrder = 7 end object ButtonNext: TButton Left = 296 Height = 25 Top = 48 Width = 56 Action = APlayNext TabOrder = 8 end object TrackBarVolume: TTrackBar Left = 352 Height = 34 Top = 80 Width = 75 Max = 100 OnChange = TrackBarVolumeChange Position = 0 TabOrder = 9 end object Label2: TLabel Left = 280 Height = 18 Top = 87 Width = 54 Caption = 'Volume:' ParentColor = False end object OpenDialog1: TOpenDialog Filter = 'Any file (*.*)|*.*|MP3 (*.mp3)|*.mp3|WAV (*.wav)|*.wav' left = 168 end object TimerPlayback: TTimer OnTimer = TimerPlaybackTimer left = 240 end object ActionList1: TActionList left = 104 object APlayNext: TAction Caption = 'Next' OnExecute = APlayNextExecute end object APlayPrevious: TAction Caption = 'Previous' OnExecute = APlayPreviousExecute end object APlay: TAction Caption = 'Play' OnExecute = APlayExecute end object APause: TAction Caption = 'Pause' OnExecute = APauseExecute end object AStop: TAction Caption = 'Stop' OnExecute = AStopExecute end object AShowPlaylist: TAction Caption = 'Playlist' OnExecute = AShowPlaylistExecute end object AOpen: TAction Caption = 'Open' OnExecute = AOpenExecute 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