1 | object FormMain: TFormMain
|
---|
2 | Left = 361
|
---|
3 | Height = 131
|
---|
4 | Top = 277
|
---|
5 | Width = 434
|
---|
6 | Caption = 'CoolAudio demo'
|
---|
7 | ClientHeight = 131
|
---|
8 | ClientWidth = 434
|
---|
9 | OnCreate = FormCreate
|
---|
10 | OnDestroy = FormDestroy
|
---|
11 | OnShow = FormShow
|
---|
12 | LCLVersion = '1.1'
|
---|
13 | object ButtonOpen: TButton
|
---|
14 | Left = 9
|
---|
15 | Height = 25
|
---|
16 | Top = 48
|
---|
17 | Width = 47
|
---|
18 | Action = AOpen
|
---|
19 | TabOrder = 0
|
---|
20 | end
|
---|
21 | object ButtonPlay: TButton
|
---|
22 | Left = 64
|
---|
23 | Height = 25
|
---|
24 | Top = 48
|
---|
25 | Width = 47
|
---|
26 | Action = APlay
|
---|
27 | TabOrder = 1
|
---|
28 | end
|
---|
29 | object ButtonPause: TButton
|
---|
30 | Left = 120
|
---|
31 | Height = 25
|
---|
32 | Top = 48
|
---|
33 | Width = 48
|
---|
34 | Action = APause
|
---|
35 | TabOrder = 2
|
---|
36 | end
|
---|
37 | object ButtonStop: TButton
|
---|
38 | Left = 176
|
---|
39 | Height = 25
|
---|
40 | Top = 48
|
---|
41 | Width = 48
|
---|
42 | Action = AStop
|
---|
43 | TabOrder = 3
|
---|
44 | end
|
---|
45 | object TrackBarPosition: TTrackBar
|
---|
46 | Left = 0
|
---|
47 | Height = 34
|
---|
48 | Top = 8
|
---|
49 | Width = 432
|
---|
50 | Max = 100
|
---|
51 | OnChange = TrackBarPositionChange
|
---|
52 | Position = 0
|
---|
53 | Anchors = [akTop, akLeft, akRight]
|
---|
54 | TabOrder = 4
|
---|
55 | end
|
---|
56 | object ComboBoxBackend: TComboBox
|
---|
57 | Left = 88
|
---|
58 | Height = 27
|
---|
59 | Top = 80
|
---|
60 | Width = 128
|
---|
61 | ItemHeight = 0
|
---|
62 | OnChange = ComboBoxBackendChange
|
---|
63 | Style = csDropDownList
|
---|
64 | TabOrder = 5
|
---|
65 | end
|
---|
66 | object Label1: TLabel
|
---|
67 | Left = 12
|
---|
68 | Height = 18
|
---|
69 | Top = 80
|
---|
70 | Width = 61
|
---|
71 | Caption = 'Backend:'
|
---|
72 | ParentColor = False
|
---|
73 | end
|
---|
74 | object LabelPosition: TLabel
|
---|
75 | Left = 10
|
---|
76 | Height = 18
|
---|
77 | Top = 112
|
---|
78 | Width = 57
|
---|
79 | Caption = 'Position:'
|
---|
80 | ParentColor = False
|
---|
81 | end
|
---|
82 | object ButtonPlaylist: TButton
|
---|
83 | Left = 360
|
---|
84 | Height = 25
|
---|
85 | Top = 48
|
---|
86 | Width = 67
|
---|
87 | Action = AShowPlaylist
|
---|
88 | TabOrder = 6
|
---|
89 | end
|
---|
90 | object ButtonPrevious: TButton
|
---|
91 | Left = 232
|
---|
92 | Height = 25
|
---|
93 | Top = 48
|
---|
94 | Width = 57
|
---|
95 | Action = APlayPrevious
|
---|
96 | TabOrder = 7
|
---|
97 | end
|
---|
98 | object ButtonNext: TButton
|
---|
99 | Left = 296
|
---|
100 | Height = 25
|
---|
101 | Top = 48
|
---|
102 | Width = 56
|
---|
103 | Action = APlayNext
|
---|
104 | TabOrder = 8
|
---|
105 | end
|
---|
106 | object TrackBarVolume: TTrackBar
|
---|
107 | Left = 352
|
---|
108 | Height = 34
|
---|
109 | Top = 80
|
---|
110 | Width = 75
|
---|
111 | Max = 100
|
---|
112 | OnChange = TrackBarVolumeChange
|
---|
113 | Position = 0
|
---|
114 | TabOrder = 9
|
---|
115 | end
|
---|
116 | object Label2: TLabel
|
---|
117 | Left = 280
|
---|
118 | Height = 18
|
---|
119 | Top = 87
|
---|
120 | Width = 54
|
---|
121 | Caption = 'Volume:'
|
---|
122 | ParentColor = False
|
---|
123 | end
|
---|
124 | object OpenDialog1: TOpenDialog
|
---|
125 | Filter = 'Any file (*.*)|*.*|MP3 (*.mp3)|*.mp3|WAV (*.wav)|*.wav'
|
---|
126 | left = 168
|
---|
127 | end
|
---|
128 | object TimerPlayback: TTimer
|
---|
129 | OnTimer = TimerPlaybackTimer
|
---|
130 | left = 240
|
---|
131 | end
|
---|
132 | object ActionList1: TActionList
|
---|
133 | left = 104
|
---|
134 | object APlayNext: TAction
|
---|
135 | Caption = 'Next'
|
---|
136 | OnExecute = APlayNextExecute
|
---|
137 | end
|
---|
138 | object APlayPrevious: TAction
|
---|
139 | Caption = 'Previous'
|
---|
140 | OnExecute = APlayPreviousExecute
|
---|
141 | end
|
---|
142 | object APlay: TAction
|
---|
143 | Caption = 'Play'
|
---|
144 | OnExecute = APlayExecute
|
---|
145 | end
|
---|
146 | object APause: TAction
|
---|
147 | Caption = 'Pause'
|
---|
148 | OnExecute = APauseExecute
|
---|
149 | end
|
---|
150 | object AStop: TAction
|
---|
151 | Caption = 'Stop'
|
---|
152 | OnExecute = AStopExecute
|
---|
153 | end
|
---|
154 | object AShowPlaylist: TAction
|
---|
155 | Caption = 'Playlist'
|
---|
156 | OnExecute = AShowPlaylistExecute
|
---|
157 | end
|
---|
158 | object AOpen: TAction
|
---|
159 | Caption = 'Open'
|
---|
160 | OnExecute = AOpenExecute
|
---|
161 | end
|
---|
162 | end
|
---|
163 | object MediaPlayer: TMediaPlayer
|
---|
164 | Volume = 0
|
---|
165 | Muted = False
|
---|
166 | Active = True
|
---|
167 | left = 312
|
---|
168 | end
|
---|
169 | object PlayList: TPlayList
|
---|
170 | RandomOrder = False
|
---|
171 | RepeatInfinitely = False
|
---|
172 | left = 375
|
---|
173 | top = 2
|
---|
174 | end
|
---|
175 | end
|
---|