Леонид писал(а):
Что-то никак просто не получилось code_27243.txtНемного упростил
см. ниже
------------ Дoбавленo в 22.15:
И ещё немного упростил (окончательный вариант).
Add(MainForm,15710605,452,259)
{
}
Add(ListBox,8727693,602,231)
{
Left=170
Top=10
Width=85
Height=250
Strings=#1:a|1:b|1:c|1:d|1:f|
Point(doSelect)
Point(Index)
Point(String)
}
Add(Button,4369445,451,315)
{
Left=140
Top=95
Width=25
Caption="^"
Data=Integer(-1)
link(onClick,4084530:doWork1,[(506,321)])
}
Add(Button,14069706,451,348)
{
Left=140
Top=120
Width=25
Caption="v"
Data=Integer(1)
link(onClick,4084530:doWork3,[(506,354)])
}
Add(Math,9215059,525,332)
{
link(onResult,13850682:doRead,[])
link(Op1,16074437:getVar,[])
}
Add(ArrayRW,13850682,616,332)
{
link(onRead,5410194:doEvent1,[])
link(Array,8727693:Array,[])
}
Add(LineBreakEx,5161180,623,305)
{
Caption="idx"
Type=3
link(_Data,8727693:Index,[])
}
Add(LineBreakEx,16074437,525,305)
{
Caption="idx"
Type=2
}
Add(LineBreakEx,7762775,563,339)
{
Caption="write"
Type=1
link(OnEvent,13850682:doWrite,[])
}
Add(LineBreakEx,11461772,746,332)
{
Caption="write"
}
Add(MT_AddData,7018019,701,393)
{
InputMT=1
link(onAdd,2140705:doWork,[])
link(Data1,11082757:getVar,[])
}
Add(Hub,5410194,660,332)
{
OutCount=3
link(onEvent1,978926:doAdd,[])
link(onEvent2,7018019:doAdd,[(691,345)(691,399)])
link(onEvent3,5610638:doData,[(683,352)(683,461)])
}
Add(LineBreakEx,16715620,525,375)
{
Caption="idxop"
Type=3
link(_Data,9215059:Result,[])
}
Add(LineBreakEx,11082757,701,366)
{
Caption="idx"
Type=2
}
Add(MT_AddData,978926,700,332)
{
InputMT=3
link(onAdd,11461772:doWork,[])
link(Data1,4393809:getVar,[])
link(Data2,8727693:String,[(713,300)(636,300)])
}
Add(LineBreakEx,4393809,700,307)
{
Caption="idxop"
Type=2
}
Add(LineBreakEx,2140705,744,393)
{
Caption="write"
}
Add(DoData,5610638,700,455)
{
link(onEventData,3788102:In,[])
link(Data,11712886:getVar,[])
}
Add(LineBreakEx,11712886,700,428)
{
Caption="idxop"
Type=2
}
Add(LineBreak,3657895,559,273)
{
Caption="sel"
link(Out,8727693:doSelect,[])
Primary=[3788102,188,182]
}
Add(HubEx,4084530,502,332)
{
link(onEvent,9215059:doOperation,[])
}