------------ Дoбавленo в 08.38:
вопрос снимаю. Видимо проблема в другом. Попробую разобраться. Что-то я заработался.
------------ Дoбавленo в 08.54:
Вот собственно проблема в схеме. Упирается в число 32767 и сброс.
Add(MainForm,2953706,126,84)
{
Width=820
Height=513
link(onCreate,14582792:doFor,[])
}
Add(Button,14330855,112,154)
{
Left=30
Top=5
Caption="+"
link(onClick,13557364:doNext,[(160,160)(160,195)])
}
Add(Button,11724686,112,196)
{
Left=100
Top=5
Caption="-"
link(onClick,13557364:doPrev,[])
}
Add(Label,16315437,455,210)
{
Left=175
Top=10
link(Text,8805433:Position,[])
}
Add(Memo,8805433,427,112)
{
Left=10
Top=30
Width=785
Height=436
Font=[Consolas,14,0,0,204]
Ctl3D=1
ScrollBars=2
ReadOnly=0
Point(doSetSelStart)
Point(doSetSelLength)
Point(onMouseUp)
Point(SelText)
Point(Position)
Point(doEnsureVisible)
link(onMouseUp,65812:doEvent2,[(500,125)(500,251)(240,251)(240,202)])
}
Add(For,14582792,196,98)
{
End=50000
link(onEvent,8784738:doAdd,[(250,104)(250,83)])
link(onStop,9606867:doSum,[(250,111)(250,139)])
}
Add(Hub,65812,252,189)
{
InCount=2
OutCount=4
link(onEvent1,8805433:doSetSelStart,[(332,195)(332,160)])
link(onEvent2,8491422:doData,[(350,202)(350,167)])
link(onEvent3,8805433:doEnsureVisible,[(404,209)(404,174)])
link(onEvent4,16315437:doText,[])
}
Add(CounterEx,13557364,175,189)
{
Max=500000
Default=32766
Point(doPrev)
link(onNext,65812:doEvent1,[])
}
Add(StrList,8784738,273,77)
{
}
Add(DoData,8491422,364,161)
{
Data=Integer(1)
link(onEventData,8805433:doSetSelLength,[])
}
Add(ArraySum,9606867,287,133)
{
Delimiter=" "
link(onSum,8805433:doText,[])
link(Array,8784738:Array,[])
}