Add(MainForm,12168162,224,210)
{
Point(onKeyDown)
}
Add(KeyEvent,11768513,636,273)
{
link(Handle,3655344:Handle,[])
link(Code,14344336:Part1,[(649,265)(676,265)(676,314)(447,314)])
}
Add(Memo,3655344,615,198)
{
Left=149
Top=29
Width=85
Height=230
Font=[Tahoma,8,0,0,204]
AddType=1
Point(Handle)
}
Add(Button,1874364,220,259)
{
Left=149
Top=4
Width=90
Font=[Tahoma,8,0,0,204]
Caption="start"
Data=String(-1)
link(onClick,5973990:doEvent1,[])
}
Add(StrList,4390682,380,216)
{
Strings=#4:87:1|6:68:200|6:65:500|6:87:100|
}
Add(Counter,12616030,347,273)
{
Max=9999999
Default=-1
Point(doValue)
link(onNext,3362814:doRead,[])
}
Add(ArrayRW,3362814,394,273)
{
link(onRead,14344336:doSplit,[])
link(Array,4390682:Array,[])
}
Add(LineBreakEx,3750535,579,280)
{
Caption="next"
}
Add(Hub,9927001,317,273)
{
InCount=2
OutCount=1
link(onEvent1,12616030:doNext,[])
}
Add(LineBreakEx,11493039,263,280)
{
Caption="next"
Type=1
link(OnEvent,9927001:doEvent2,[])
}
Add(MultiStrPart,14344336,441,273)
{
Char=":"
Count=1
link(onSplit,11818475:doEvent1,[])
}
Add(Hub,5973990,266,259)
{
link(onEvent1,12616030:doValue,[(308,265)(308,300)])
link(onEvent2,9927001:doEvent1,[(298,272)(298,279)])
}
Add(Hub,11818475,487,273)
{
link(onEvent1,2450287:doDelay,[(517,279)(517,293)])
link(onEvent2,2450287:doStart,[(517,286)(517,279)])
}
Add(Thread,2450287,532,273)
{
Delay=0
FastStop=0
BusyEvent=1
Point(doDelay)
link(onExec,11768513:doPress,[])
link(onSyncExec,3750535:doWork,[])
}
Ответов: 1841
Рейтинг: 369
|
|||
ну вот так можно...
|
|||
карма: 1 |
| ||
Голосовали: | flud |