Add(MainForm,15739648,49,105)
{
 Width=458
 Height=176
 Caption="BASS internet radio"
 Point(Handle)
 link(onCreate,4252681:doInit,[])
}
Add(BASS_Init,4252681,126,119)
{
 link(onInit,10183901:doCheck,[])
 link(onError,11232751:doMessage,[(170,132)(170,174)])
 link(Handle,15739648:Handle,[(146,107)(100,107)(100,149)(55,149)])
}
Add(BASS_Version,10183901,182,119)
{
 link(onCheckOk,12302345:doInit,[(222,125)(222,90)])
 link(onCheckFailed,109118:doMessage,[])
}
Add(Message,11232751,182,168)
{
 Message="Error BASS initialization"
 Caption="Error"
 Icon=1
}
Add(Message,109118,273,126)
{
 Message="Incorrect version of BASS library "
 Caption="Error"
 Icon=1
}
Add(BASS_StreamCreateURL,12045247,511,105)
{
 Name="InetStream"
 link(onCreate,9406897:doPlay,[])
 link(URL,5325196:String,[])
}
Add(Button,6044672,462,105)
{
 Left=5
 Top=5
 Caption="Play"
 link(onClick,12045247:doCreate,[])
}
Add(ComboBox,5325196,504,42)
{
 Left=65
 Top=5
 Width=365
 Height=21
 Strings=#52:http://www.radioparadise.com/musiclinks/rp_128-9.m3u|49:http://www.radioparadise.com/musiclinks/rp_32.m3u|35:http://www.sky.fm/mp3/classical.pls|39:http://www.sky.fm/mp3/classical_low.pls|32:http://www.sky.fm/mp3/the80s.pls|36:http://www.sky.fm/mp3/the80s_low.pls|45:http://bassdrive.com/v2/streams/BassDrive.m3u|46:http://bassdrive.com/v2/streams/BassDrive3.m3u|33:http://somafm.com/secretagent.pls|35:http://somafm.com/secretagent24.pls|
}
Add(BASS_ChannelPlay,9406897,588,105)
{
 Channel="InetStream"
}
Add(SDialog,12854261,322,326)
{
 link(onExecute,12373576:doText,[])
}
Add(BASS_RecordStart,5066922,420,378)
{
 Freq=22050
 Channels=2
 Name="InetStream"
 link(FileName,12373576:Text,[(426,368)(370,368)])
 link(Freq,10686240:String,[])
 link(Channels,7833336:String,[(440,369)(461,369)])
}
Add(Edit,12373576,364,326)
{
 Left=122
 Top=48
 Width=295
 Text=""
}
Add(ComboBox,14752779,406,256)
{
 Left=62
 Top=80
 Width=115
 Height=21
 Color=0
 Font=[MS Sans Serif,8,0,16744448,1]
 Strings=#12:очень низкое|6:низкое|7:среднее|7:хорошее|13:очень хорошее|9:наилучшее|
 Point(Index)
}
Add(StrList,10686240,406,315)
{
 Strings=#4:4000|4:8000|5:11025|5:22050|5:44100|5:48000|
 Point(IdxToSelect)
 Point(String)
 link(IdxToSelect,14752779:Index,[])
}
Add(ComboBox,7833336,448,315)
{
 Left=330
 Top=80
 Width=115
 Height=21
 Color=0
 Font=[MS Sans Serif,8,0,16744448,1]
 Strings=#1:1|1:2|
}
Add(Button,7221181,273,326)
{
 Left=5
 Top=50
 Width=110
 Caption="Записать в:"
 link(onClick,12854261:doExecute,[])
}
Add(Button,4573888,315,378)
{
 Left=265
 Top=115
 Caption="Запись"
 link(onClick,5066922:doStart,[])
}
Add(Message,11713735,322,91)
{
 Message="InitRecord failed!"
 Caption="Error"
 Icon=1
}
Add(BASS_RecordCenter,12302345,245,84)
{
 link(onError,11713735:doMessage,[])
}
Add(Button,12862964,357,385)
{
 Left=375
 Top=115
 Caption="Стоп"
 link(onClick,5066922:doStop,[])
}
Add(Label,11470786,359,253)
{
 Left=7
 Top=82
 Width=53
 Height=17
 Color=0
 Font=[MS Sans Serif,9,0,16744448,1]
 Caption="качество:"
}
Add(Label,3499418,492,309)
{
 Left=217
 Top=82
 Width=110
 Height=17
 Color=0
 Font=[MS Sans Serif,9,0,16744448,1]
 Caption="количество коналов:"
}