Add(MainForm,2953706,28,84)
{
 Width=508
 Height=167
 TabOrder=-1
 Ctl3D=0
 Caption="Kiss FM"
 BorderStyle=1
 Icon=[ZIP7E04000078DA636060044201010620A9C090C1C2C020C6C0C0A001C44021A008441C0FF83F8A29C330400E7BB8D94F89382DE36514E3C26B1C29C100527962CA]
 TransparentColor=0
 Position=1
 Point(Handle)
 Point(onClose)
 link(onCreate,4054547:doEvent1,[])
 link(onClose,16454762:doEvent1,[(70,111)(70,237)])
}
Add(BASS_StreamCreateURL,13714538,252,427)
{
 URL="http://radio.sts-ul.ru:8000/Kiss_FM.mp3"
 Name="Kiss FM"
 link(onCreate,4226718:doPlay,[])
}
Add(BASS_ChannelPlay,4226718,308,427)
{
 Channel="Kiss FM"
}
Add(BASS_ChannelStop,5471300,252,574)
{
 Channel="Kiss FM"
}
Add(Button,16257568,21,427)
{
 Left=15
 Top=10
 Width=80
 Height=25
 TabOrder=-1
 Caption="Слушать"
 link(onClick,1576630:doEvent1,[])
}
Add(Button,6132216,21,574)
{
 Left=15
 Top=45
 Width=80
 Height=25
 TabOrder=-1
 Caption="Пауза"
 link(onClick,4119644:doEvent1,[])
}
Add(BASS_Init,4252681,238,28)
{
 link(onInit,10183901:doCheck,[])
 link(onError,11232751:doMessage,[(281,41)(281,83)])
 link(Handle,2953706:Handle,[(258,13)(10,13)(10,130)(34,130)])
}
Add(BASS_Version,10183901,294,28)
{
 link(onCheckFailed,109118:doMessage,[(337,41)(337,83)])
}
Add(Message,11232751,294,77)
{
 Message="Ошибка иницилизации BASS"
 Caption="Error"
 Icon=1
}
Add(Message,109118,350,77)
{
 Message="Не подходящая версия BASS библиотеки"
 Caption="Error"
 Icon=1
}
Add(StyleXP,6019814,350,28)
{
}
Add(Version,638521,406,77)
{
 Version="v1"
 Description="Kiss FM"
 InternalName="Kiss FM"
 E-mail="Vlad_pl94@mail.ru"
}
Add(PaintBox,2760802,259,686)
{
 Left=105
 Top=10
 Width=245
 Height=60
 TabOrder=-1
 Ctl3D=0
}
Add(BASS_ChannelVisibleSpectrum,16110704,259,742)
{
 SoundStream="Kiss FM"
 BackColor=15780518
 Pen=13775052
 Peak=15180075
 Mode=1
 PeakFallOff=2
 LineFallOff=1
 link(onDraw,2760802:doRefresh,[(310,748)(310,679)(247,679)(247,692)])
 link(WindowsHandle,2760802:Bitmap,[])
}
Add(Volume,2721338,406,154)
{
 link(Left,8785321:Var1,[(412,131)])
 link(Right,8785321:Var2,[])
}
Add(TrackBar,12255830,294,154)
{
 Left=15
 Top=110
 Width=330
 Height=25
 TabOrder=-1
 HintPosition=0
 Max=100
 Position=100
 link(onPosition,2152402:doCalc,[])
}
Add(MathParse,2152402,350,154)
{
 DataCount=1
 MathStr="%1 * 65535 / 100"
 link(onResult,2721338:doVolume,[])
}
Add(GetDataEx,8785321,413,126)
{
 link(Data,2152402:Result,[(419,120)(455,120)(455,200)(356,200)])
}
Add(HTTP_Get,3284981,252,497)
{
 URL="http://www.kissfm.ua"
 link(onDownload,825475:doConvert,[(296,510)(296,503)])
 link(onStop,15639551:doSearch,[(293,524)(293,566)])
}
Add(Convertor,825475,308,497)
{
 Mode=11
 link(onResult,1161384:doCharset,[])
}
Add(Hub,1576630,105,427)
{
 OutCount=4
 link(onEvent1,13714538:doCreate,[])
 link(onEvent2,15262523:doEvent1,[(198,440)(198,503)])
 link(onEvent3,1199019:doEvent2,[(188,447)(188,643)])
 link(onEvent4,3899558:doTimer,[(178,454)(178,748)])
}
Add(BlockFind,15639551,420,560)
{
 IncludeBlock=1
 StartBlock="<div class="onAirString">- - - сейчас в эфире "
 EndBlock=" - - -</div>
"
 link(onSearch,11721142:doEvent1,[])
 link(Text,6506014:Var2,[])
}
Add(Label,6996570,728,567)
{
 Left=15
 Top=85
 Width=325
 TabOrder=-1
 Caption=""
 AutoSize=1
 Alignment=2
}
Add(StrCat,1919830,672,567)
{
 Str1="В эфире: "
 link(onStrCat,6996570:doText,[])
}
Add(Hub,4054547,77,98)
{
 OutCount=4
 link(onEvent1,4252681:doInit,[(220,104)(220,34)])
 link(onEvent2,12150742:doData,[(220,111)(220,160)])
 link(onEvent3,5034317:doCreateMutex,[(210,118)(210,223)])
 link(onEvent4,10669018:doAddTrayIcon,[(200,125)(200,349)])
}
Add(DoData,12150742,238,154)
{
 Data=Real(50)
 link(onEventData,12255830:doPosition,[])
}
Add(Hub,16365162,483,637)
{
 link(onEvent1,11707524:doLoadFromStream,[])
 link(onEvent2,11707524:doBitmap,[])
}
Add(Image,6965738,581,623)
{
 Left=355
 Top=5
 Width=140
 Height=135
 TabOrder=-1
 ViewStyle=0
}
Add(Jpeg,11707524,518,623)
{
 Point(doLoadFromStream)
 Point(doBitmap)
 link(onBitmap,6965738:doLoad,[])
}
Add(Hub,7685705,105,504)
{
 link(onEvent1,15262523:doEvent2,[])
 link(onEvent2,1199019:doEvent1,[(198,517)(198,636)])
}
Add(Hub,15262523,217,497)
{
 InCount=2
 OutCount=1
 link(onEvent1,3284981:doDownload,[])
}
Add(Hub,1199019,217,630)
{
 InCount=2
 OutCount=1
 link(onEvent1,9374875:doSearch,[])
}
Add(Hub,4119644,105,574)
{
 link(onEvent1,5471300:doStop,[])
 link(onEvent2,3899558:doStop,[(168,587)(168,755)])
}
Add(Memory,11543920,420,497)
{
}
Add(Timer,3899558,203,742)
{
 Interval=1
 link(onTimer,16110704:doDraw,[])
}
Add(Timer,10194550,21,504)
{
 Interval=15000
 link(onTimer,7685705:doEvent1,[])
}
Add(Message,6561489,294,217)
{
 Message="Запущенно второе окно программы"
 Point(onOK)
 link(onOK,2953706:doClose,[(350,230)(350,260)(20,260)(20,111)])
}
Add(Mutex,5034317,238,217)
{
 Name="Kiss FM.exe"
 link(onAlreadyExists,6561489:doMessage,[(282,230)(282,223)])
}
Add(GetDataEx,6506014,420,539)
{
 link(Data,11543920:Value,[])
}
Add(BlockFind,9374875,308,630)
{
 StartBlock="<img src="http://www.kissfm.ua/v3/images/"
 EndBlock="" width="
 link(onSearch,13256109:doSearch,[])
 link(Text,6506014:Var1,[(314,544)])
}
Add(BlockFind,13256109,364,630)
{
 IncludeBlock=1
 StartBlock="""
 EndBlock="""
 link(onSearch,9245604:doDownload,[])
}
Add(Charset,1161384,364,497)
{
 Type=7
 link(onCharset,11543920:doValue,[])
}
Add(TrayIcon,10669018,252,322)
{
 ShowWORemoveIcon=0
 Title="В эфире:"
 Icon=0
 Point(doAddTrayIcon)
 Point(doDeleteTrayIcon)
 Point(doShowBallonTip)
 link(onClick,13971669:doCase,[])
 link(onHide,8986416:doEvent3,[(300,342)(300,390)(210,390)(210,377)])
 link(Text,10125351:Var3,[(258,270)(780,270)(780,607)])
}
Add(Project,15303106,406,28)
{
 ProtectLevel=0
}
Add(Hub,16454762,84,231)
{
 link(onEvent1,5034317:doReleaseMutex,[])
 link(onEvent2,10669018:doDeleteTrayIcon,[(190,244)(190,356)])
}
Add(Memory,982785,609,567)
{
 link(onData,1919830:doStrCat,[])
}
Add(Counter,5846236,532,322)
{
 Max=1
 link(onNext,13573382:doEvent,[])
}
Add(IndexToChanel,13573382,595,322)
{
 link(onEvent1,10669018:doShow,[(651,328)(651,290)(240,290)(240,328)])
 link(onEvent2,10669018:doHide,[(660,335)(660,280)(230,280)(230,335)])
}
Add(Case,6319885,462,322)
{
 Value=Integer(0)
 link(onTrue,5846236:doNext,[(513,335)(513,328)])
}
Add(Case,13971669,385,322)
{
 Value=Integer(1)
 link(onNextCase,6319885:doCase,[])
 link(onTrue,8986416:doEvent2,[(430,335)(430,400)(200,400)(200,370)])
}
Add(Hub,8986416,217,357)
{
 InCount=3
 OutCount=1
 link(onEvent1,10669018:doShowBallonTip,[])
}
Add(ChangeMon,15702920,518,497)
{
 link(onData,8986416:doEvent1,[(580,503)(580,410)(190,410)(190,363)])
 link(Data,10125351:Var1,[(524,480)(570,480)(570,607)])
}
Add(GetDataEx,10125351,609,602)
{
 link(Data,982785:Value,[])
}
Add(Hub,11721142,476,560)
{
 link(onEvent1,15702920:doData,[(504,566)(504,503)])
 link(onEvent2,5887429:doSleepMks,[])
}
Add(Sleep,5887429,518,567)
{
 Delay=1
 link(onSleep,982785:doValue,[])
}
Add(HTTP_Get,9245604,420,630)
{
 link(onDownload,16365162:doEvent1,[])
}