Вверх ↑
Ответов: 3889
Рейтинг: 362
#1: 2011-05-11 13:57:04 ЛС | профиль | цитата
Serge BY, за терпение и тягу к знаниям немного намекну по теме: Закройте HiAsm, обновите [svn]hiDirectShowPlayer.pas[/svn] (если наведёте на ссылки, в подсказке будет написано, куда копировать), потом попробуйте это:

Add(MainForm,2953706,224,126)
{
Height=28
Position=1
link(onCreate,1770600:doExecute,[])
}
Add(DirectShowPlayer,13634981,504,140)
{
link(onEndPlay,1377215:doStop,[(548,146)(548,247)(239,247)(239,370)])
}
Add(ODialog,1770600,287,140)
{
Filter="MP3 music|*.mp3"
Title="Укажите MP3-файл"
FileName="music"
link(onExecute,12474819:doEvent1,[])
}
Add(Timer,1377215,287,357)
{
Enable=1
link(onTimer,16609028:doCalc,[])
}
Add(Hub,12474819,455,140)
{
link(onEvent1,13634981:doPlay,[])
link(onEvent2,1377215:doTimer,[(481,153)(481,194)(277,194)(277,363)])
}
Add(FormatStr,2475151,504,357)
{
Mask="%1 min %2 sec"
link(onFString,2953706:doCaption,[(570,363)(570,103)(212,103)(212,132)])
link(Str1,16609028:Result,[(510,288)(432,288)(432,401)(342,401)])
link(Str2,5374294:Result,[(517,319)(469,319)(469,426)(398,426)])
}
Add(MathParse,16609028,336,357)
{
MathStr="%1 div 60"
ResultType=0
link(onResult,5374294:doCalc,[])
link(X1,347766:Var1,[(342,209)])
}
Add(MathParse,5374294,392,357)
{
MathStr="%1 mod 60"
ResultType=0
link(onResult,2475151:doString,[])
link(X1,347766:Var2,[(398,229)(397,229)])
}
Add(GetDataEx,347766,391,204)
{
Angle=1
link(Data,13634981:Position,[(510,209)])
}



карма: 1

0