Вверх ↑
Ответов: 10
Рейтинг: 2
#1: 2014-03-27 12:13:57 ЛС | профиль | цитата
Netspirit, а возможно сделать работотоспособными одновременно два и более независимых таймера. На дельфи работает. На fpc вылеты.
Add(MainForm,2953706,35,35)
{
Width=230
Height=197
}
Add(MMTimer,14697975,154,119)
{
Interval=1
Enable=1
AutoStop=1000
Point(onStop)
link(onTimer,2836577:doNext,[])
}
Add(Label,10475149,371,119)
{
Left=10
Top=15
Width=180
Height=20
}
Add(Button,1155576,35,161)
{
Left=75
Top=105
link(onClick,12885335:doEvent1,[])
}
Add(CounterEx,2836577,245,119)
{
Max=1000
link(onNext,10475149:doText,[])
}
Add(MMTimer,932629,154,182)
{
Interval=1
Enable=1
AutoStop=1000
link(onTimer,14945631:doNext,[])
}
Add(Label,10945995,371,182)
{
Left=10
Top=55
Width=180
Height=20
}
Add(CounterEx,14945631,245,182)
{
Max=1000
link(onNext,10945995:doText,[])
}
Add(Hub,12885335,98,161)
{
link(onEvent1,14697975:doTimer,[(133,167)(133,125)])
link(onEvent2,932629:doTimer,[(133,174)(133,188)])
}

карма: 0

0