Add(MainForm,8416873,196,98)
{
Width=611
Height=513
link(onCreate,14582792:doFor,[])
}
Add(Button,14330855,182,168)
{
Left=30
Top=5
Caption="+"
link(onClick,13557364:doNext,[(230,174)(230,209)])
}
Add(Button,11724686,182,210)
{
Left=100
Top=5
Caption="-"
link(onClick,13557364:doPrev,[])
}
Add(Label,16315437,560,217)
{
Left=175
Top=10
}
Add(For,14582792,266,112)
{
End=100
link(onEvent,8784738:doAdd,[(320,118)(320,97)])
link(onStop,9606867:doSum,[(320,125)(320,153)])
}
Add(Hub,65812,322,203)
{
InCount=2
OutCount=3
link(onEvent1,7805438:doSetSelStart,[(462,209)(462,174)])
link(onEvent2,8491422:doData,[])
link(onEvent3,4411432:doString,[])
}
Add(CounterEx,13557364,245,203)
{
Point(doPrev)
link(onNext,65812:doEvent1,[])
}
Add(StrList,8784738,343,91)
{
}
Add(DoData,8491422,385,210)
{
Data=Integer(1)
link(onEventData,7805438:doSetSelLength,[(471,216)(471,181)])
}
Add(ArraySum,9606867,357,147)
{
Delimiter=" "
link(onSum,7805438:doText,[])
link(Array,8784738:Array,[])
}
Add(RichEdit,7805438,476,133)
{
Left=10
Top=35
Width=570
Height=425
Font=[Consolas,14,0,0,204]
TabOrder=-1
Ctl3D=0
WinStyle=2
Layout="vert"
HeightScale=100
ScrollBars=2
ReadOnly=0
CanDragOle=1
Point(doSetSelStart)
Point(doSetSelLength)
Point(onMouseUp)
Point(SelText)
Point(Position)
link(onMouseUp,9785405:doData,[(548,146)(548,300)(235,300)(235,258)])
}
Add(DoData,9785405,245,252)
{
link(onEventData,65812:doEvent2,[(299,258)(299,216)])
link(Data,13557364:Count,[])
}
Add(Debug,3715830,497,196)
{
link(Data,7805438:SelText,[])
}
Add(FormatStr,4411432,497,217)
{
@Hint=#15:Для наглядности|
DataCount=1
Mask="%1"
link(onFString,16315437:doText,[])
link(Str1,3715830:Var,[])
AddHint(64,-35,103,13,@Hint)
}
Ответов: 1536
Рейтинг: 176
|
|||
Возник новый вопрос. В компоненте RichEdit в точке SelText снимается лишнее значение. Как с этим бороться я знаю, но тем не менее баг на лицо. Не порядок.
|
|||
карма: 1 |
|