source: CoolAudio/Demo/FormMain.lfm

Last change on this file was 569, checked in by chronos, 8 months ago
  • Modified: Removed U prefix from CoolAudio unit names.
File size: 3.3 KB
Line 
1object 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
175end
Note: See TracBrowser for help on using the repository browser.