-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathRadio.dfm
202 lines (202 loc) · 7.45 KB
/
Radio.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
object NetRadio: TNetRadio
Left = 333
Top = 230
AlphaBlend = True
BorderStyle = bsToolWindow
Caption = 'NetRadio'
ClientHeight = 164
ClientWidth = 209
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Verdana'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object LydstyrkeLabel: TLabel
Left = 8
Top = 112
Width = 56
Height = 13
Caption = 'Lydstyrke'
end
object BitRate: TLabel
Left = 8
Top = 96
Width = 3
Height = 12
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Verdana'
Font.Style = []
ParentFont = False
end
object InfoLabel1: TLabel
Left = 40
Top = 72
Width = 126
Height = 13
Caption = 'Starttiden kan variere'
Font.Charset = ANSI_CHARSET
Font.Color = clGray
Font.Height = -11
Font.Name = 'Verdana'
Font.Style = []
ParentFont = False
Visible = False
end
object RadioSelect: TComboBox
Left = 8
Top = 8
Width = 193
Height = 21
ItemHeight = 13
TabOrder = 0
Text = 'V'#230'lg en radio kanal...'
OnChange = RadioSelectChange
Items.Strings = (
'DR P1'
'DR P2'
'DR P3'
'The Voice'
'DR Boogie Radio'
'Radio 2'
'100FM'
'MMradio')
end
object PlayBtn: TBitBtn
Left = 8
Top = 40
Width = 81
Height = 25
Caption = '&Afspil'
Default = True
TabOrder = 1
OnClick = PlayBtnClick
Glyph.Data = {
36050000424D3605000000000000360400002800000010000000100000000100
0800000000000001000000000000000000000001000000010000000000000101
0100020202000303030004040400050505000606060007070700080808000909
09000A0A0A000B0B0B000C0C0C000D0D0D000E0E0E000F0F0F00101010001111
1100121212001313130014141400151515001616160017171700181818001919
19001A1A1A001B1B1B001C1C1C001D1D1D001E1E1E001F1F1F00202020002E2B
2800453B3100644F3B007D5F4400926E4C00AB815A00C6986C00D7A67800DFAE
7F00E5B48600E9B88A00EBBB8D00EDBE9100EFC09400F0C39700F2C49800F1C3
9600F1C29500F1C19300F0BD8C00EFB88500EEB37D00EDB07700ECAC7200EBA9
6C00EAA56600E8A05F00E69D5B00E49A5800E3975400E1944F00DF8F4900DD89
4100DB853C00D8803700D67C3200D4782D00D3752A00CF6E2100CC661700CA62
1200C65D0E00C55A0B00C4580A00C2560800C2540700C2530600C2510500C250
0300C24F0200C14E0200BE4D0100BC4B0100BB4A0000BB4A0000BA490000B948
0000B8480000B5480200B1480300AE460400A9440400A4430500A04106009C40
07009B3F0700993E0700963D0800923B09008E3909008B380A0088370B008536
0C0080340D00773010006F2D1200692A130064281500612716005C2517005823
18005522190053211A0054221A0056231A0059251A005D281B00612C1E006635
26006B4031006F4D410074615B007A7776007E7E7E007F7F7F00808080008181
8100828282008383830084848400858585008686860087878700888888008989
89008A8A8A008B8B8B008C8C8C008D8D8D008E8E8E008F8F8F00909090009191
9100929292009393930094949400959595009696960097979700989898009999
99009A9A9A009B9B9B009C9C9C009D9D9D009E9E9E009F9F9F00A0A0A000A1A1
A100A2A2A200A3A3A300A4A4A400A5A5A500A6A6A600A7A7A700A8A8A800A9A9
A900AAAAAA00ABABAB00ACACAC00ADADAD00AEAEAE00AFAFAF00B0B0B000B1B1
B100B2B2B200B3B3B300B4B4B400B5B5B500B6B6B600B7B7B700B8B8B800B9B9
B900BABABA00BEBCBA00C2BFBB00C9C3BD00CEC6BE00D5CAC000DBCEC200E0D2
C400E5D5C600E9D7C700ECD9C600EDDAC800EEDCCA00F1DECB00F3E0CE00F5E2
D100F6E5D300F8E6D500F9E8D700FAE9D900FAEADA00FAEBDB00FAECDD00FAEC
DE00FAEEE100FAEEE200FBEFE300FBF0E500FBF1E700FCF2E800FCF3E900FCF4
EB00FCF5EE00FDF7F200FDF9F500FEFAF600FEFBF800FEFBF900FEFCFB00FEFD
FC00FEFDFC00FEFEFD00FEFEFE00FEFEFE00FEFEFE00FEFEFD00FEFCFD00FEFA
FD00FEF3FC00FEE7FC00FED8FC00FEC3FB00FEABFB00FE8EFB00FE6AFC00FE41
FD00FE1DFD00FE04FE00FE02FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00
FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FE00FAFAFAFAFA73
736D6D7373FAFAFAFAFAFAFAFA756E635C57555B626D73FAFAFAFAFA6F655151
5459545453516573FAFAFA6D6352594F29475A575555516573FAFA6A53545850
C6D3465A575555516DFA655D4D4C4C4BC4E6D83F595955536073624B48484847
C4E6E6E6295559545B73604745464545C7E6E6E6E6C44C5855735F413C414141
C9E6E6E6E62D4F575571613F333C3E3DCAE6E6E53A5959545B736044C433393A
CDE6D43E535855536273FA5C33CE3039D2CE41494B5557516EFAFA5F45C6D030
303F47484B51516775FAFAFA604530CEC534393D4349666EFAFAFAFAFA5F5C41
292C29404A6A6FFAFAFAFAFAFAFAFA616060656467FAFAFAFAFA}
end
object StopBtn: TBitBtn
Left = 120
Top = 40
Width = 83
Height = 25
Caption = '&Stop'
TabOrder = 2
OnClick = StopBtnClick
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000C40E0000C40E00000000000000000000FF00FFFF00FF
FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF01014E00006000
006500006000004FFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FF01014E00008400008E00008E00008F00008C000088000081010154FF00
FFFF00FFFF00FFFF00FFFF00FFFF00FF01016300009600009700009B00009F00
00A000009D00009700008F000088000062FF00FFFF00FFFF00FFFF00FF01015D
0101A308089E9999D46868D00000AC0000AE0000A94848B8B7B7E32727A50000
8C010152FF00FFFF00FFFF00FF03039D0000AB2828A3DEDED2FEFEFF6464D400
00B34646C0E7E7ECFFFFF75E5EB700009A020287FF00FFFF00FFFF00FF0505B0
0303B90000C24C4CA7E6E6D9FCFCFF9E9EE6E8E9F4FFFFF17575B90606B10101
AB0202A0FF00FFFF00FFFF00FF0808BB0707C80505D10000C85353B6F2F2EDFF
FFFFFFFFFC7575C90000BE0101C30303B80303ACFF00FFFF00FFFF00FF0C0CC9
0D0DD80B0BDC0000D63C3DCEEEEFEDFFFFFFFFFFFD5858DB0000CA0303CB0606
C50606B8FF00FFFF00FFFF00FF1414D81717EA0B0BF14343DBE4E4EAFDFDF5BA
BAD4EAEAE8FEFEFF6363E50303D70A0ACF0A0AC3FF00FFFF00FFFF00FF1A1AE4
2222FB3F3FE9DCDCE5FDFDEE7373C50303D75151B0E3E3D6FFFFFE6161E50808
DB0F0FCAFF00FFFF00FFFF00FF1515EC3232FF5252EDB3B3C27777CA0000EA00
00EC0000E85252B4ADADB04D4DE11818ED0F0FAEFF00FFFF00FFFF00FFFF00FF
2A2AFB5353FF6868EF5757F93838FF2525FD2929FF3838FC4242EB3232FF1F1F
E9FF00FFFF00FFFF00FFFF00FFFF00FF0C0DF53535FD6E6EFF9191FF9393FF84
84FF7676FF6767FF5151FF2F2FFBFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
FF00FFFF00FF2D2DFC6363FE8787FF9292FF7676FF5353FF2C2CF0FF00FFFF00
FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
end
object Player: TWindowsMediaPlayer
Left = 688
Top = 464
Width = 57
Height = 32
TabOrder = 3
Visible = False
OnBuffering = PlayerBuffering
ControlData = {
000300000800000000000500000000000000F03F030000000000050000000000
0000000008000200000000000300010000000B00FFFF0300000000000B00FFFF
08000200000000000300320000000B00000008000A000000660075006C006C00
00000B0000000B0000000B00FFFF0B00FFFF0B00000008000200000000000800
020000000000080002000000000008000200000000000B000000E40500004F03
0000}
end
object Volume: TTrackBar
Left = 0
Top = 128
Width = 209
Height = 25
Max = 100
TabOrder = 4
TickStyle = tsNone
OnChange = VolumeChange
end
object VolumeStatus: TProgressBar
Left = 8
Top = 152
Width = 193
Height = 8
TabOrder = 5
end
object LabelHiderTimer: TTimer
Enabled = False
Interval = 7000
OnTimer = LabelHiderTimerTimer
Left = 176
Top = 80
end
end