А вот так выглядит кусок декодера -установка начального и конечного значений. (работает только с обновленным hiCounter.pas) . Самое обидное, что это почти все есть в старом файле, но только заремано.
[code:1]Add(MainForm,6438777,14,10) {
Left=20
Top=105
Caption="DECODER"
link(onCreate,14886532:doWork1,[(61,51)(61,55)])
}
Add(ChildGroupBox,14886532,77,49)
{
}
BEGIN_SDK
Add(EditMulti,5158439,3,3)
{
EventCount=1
WorkCount=1
Width=363
Height=263
link(doWork1,6745802:doWork1,[(25,9)])
}
Add(GroupBox,3465416,301,203)
{
Top=10
Width=216
Height=105
Font=[MS Sans Serif,8,1,0,1]
Caption="INPUT START DATA"
}
Add(Counter,11377471,182,78)
{
Max=0
Point(Min)
Point(doMin)
Point(Max)
Point(doMax)
link(onNext,9458429:doEvent1,[(226,84)(226,81)])
link(Min,13114523:Text,[(188,59)(104,59)])
link(Max,11100949:Var3,[(195,68)(174,68)(174,182)])
}
Add(Label,11499040,301,78)
{
Left=95
Top=70
Width=90
Height=30
Font=[MS Sans Serif,18,1,255,1]
Caption="0"
AutoSize=1
Alignment=1
}
Add(Edit,13114523,98,15)
{
Left=90
Top=15
Text="000000"
DataType=2
link(onChange,13988537:doEvent1,[(140,21)(140,68)(95,68)(95,95)])
}
Add(Button,12225894,35,15)
{
Left=150
Top=40
Caption="Start"
link(onClick,10977330:doTimer,[(77,21)(77,55)(32,55)(32,70)])
}
Add(Timer,10977330,42,64)
{
Interval=100
link(onTimer,11377471:doNext,[(79,70)(79,84)])
}
Add(Button,3680936,35,169)
{
Left=150
Top=15
Caption="Stop"
link(onClick,6745802:doWork2,[(77,175)(77,206)(11,206)(11,224)])
}
Add(HubEx,6745802,21,211)
{
link(onEvent,10977330:doStop,[(36,224)(36,77)])
}
Add(Hub,13988537,105,89)
{
InCount=2
link(onEvent1,4504549:doWork2,[])
link(onEvent2,11377471:doMin,[(159,102)(159,105)])
}
Add(Label,16467407,147,19)
{
Left=10
Top=20
Width=80
Height=17
Caption="Input Start Digit "
}
Add(Label,13196930,140,208)
{
Left=10
Top=40
Width=74
Height=17
Caption="Input End Digit"
}
Add(Edit,13355093,98,187)
{
Left=90
Top=40
Text="000000"
DataType=2
link(onChange,2388739:doEvent1,[(140,193)(140,175)(95,175)(95,137)])
}
Add(If_else,4641047,217,159)
{
link(onTrue,6745802:doWork3,[(272,165)(272,254)(25,254)])
link(Op1,11377471:Count,[(223,134)(188,134)])
link(Op2,11100949:Var2,[(230,129)(203,129)(203,202)(146,202)])
}
Add(GetDataEx,11100949,133,173)
{
link(Data,13355093:Text,[(146,167)(88,167)(88,229)(104,229)])
}
Add(Hub,9458429,238,75)
{
OutCount=3
link(onEvent1,11499040:doText,[(285,81)(285,84)])
link(onEvent2,4641047:doCompare,[(280,88)(280,143)(207,143)(207,165)])
link(onEvent3,5158439:onEvent1,[(351,95)(351,9)])
}
Add(Hub,2388739,105,131)
{
link(onEvent1,4504549:doWork3,[(158,137)])
link(onEvent2,11377471:doMax,[(167,144)(167,112)])
}
Add(HubEx,4504549,154,82)
{
link(onEvent,11377471:doReset,[(172,95)(172,98)])
}
Add(HubEx,3507237,21,201)
{
link(onEvent,13988537:doEvent2,[(67,214)(67,102)])
}
Add(Label,14943762,301,119)
{
Left=15
Top=75
Width=66
Height=17
Font=[MS Sans Serif,8,0,16711680,1]
Caption="Search Code"
}
END_SDK
[/code:1]