Вверх ↑
Ответов: 2059
Рейтинг: 132
#1: 2017-10-23 10:47:03 ЛС | профиль | цитата
Так не пойдёт?

Add(MainForm,3918878,287,196)
{
Width=408
Height=324
Point(onClose)
link(onCreate,4252681:doInit,[])
}
Add(BASS_Init,4252681,350,210)
{
}
Add(Button,1048926,469,420)
{
Left=15
Top=60
Width=75
Caption="Пауза"
link(onClick,14617115:doPause,[])
}
Add(BASS_ChannelPause,14617115,546,420)
{
Channel="kkk"
}
Add(Button,343191,469,462)
{
Left=15
Top=85
Width=75
Caption="Прдолжить"
link(onClick,3455431:doPlay,[])
}
Add(BASS_ChannelPlay,3455431,546,462)
{
Channel="kkk"
}
Add(Button,15915808,469,504)
{
Left=15
Top=110
Width=75
Caption="Стоп"
link(onClick,8832714:doEvent1,[])
}
Add(BASS_ChannelStop,13591916,546,504)
{
Channel="kkk"
}
Add(Button,12312283,462,231)
{
Left=15
Top=35
Width=75
Caption="Загрузить"
link(onClick,6925031:doExecute,[])
}
Add(LED,4323261,728,350)
{
Left=280
Top=60
}
Add(Hub,8832714,518,504)
{
OutCount=3
link(onEvent1,13591916:doStop,[])
link(onEvent2,4075881:doDestroy,[(584,517)(584,244)])
}
Add(BASS_StreamCreateFile,4075881,651,231)
{
Name="kkk"
link(onCreate,4323261:doOff,[(705,237)(705,363)])
}
Add(ODialog,6925031,525,231)
{
link(onExecute,4075881:doCreate,[])
}
Add(BASS_ChannelPosition,6620995,658,301)
{
Channel="kkk"
}
Add(Timer,8303044,602,364)
{
link(onTimer,10127515:doCompare,[])
}
Add(If_else,10127515,658,364)
{
link(onTrue,4323261:doOn,[])
link(Op1,6620995:CurPosition,[])
link(Op2,6620995:Length,[])
}


Если неприменно нужна точка, то после трёх часов сделаю, если до этого отпишешься.
карма: 6

0
Редактировалось 2 раз(а), последний 2017-10-23 10:50:52