miver писал(а):
Мой оптимизированый вариантАга, используем кнопки для ввода значения, понятно. Хорошо, пойду по такому принципу свой оптимизировать
------------ Дoбавленo в 15.29:
Вот, нате вам еще проще вариант
Add(MainForm,4720280,133,252)
{
Width=424
}
Add(StrList,14304313,343,343)
{
Point(doSwap)
Point(Idx2)
link(Str,6857207:Text,[(349,277)(195,277)])
link(Idx2,5270513:Var3,[(363,265)])
}
Add(ListBox,6857207,189,182)
{
Left=10
Top=5
Width=320
Height=205
Strings=#7:1111111|7:2222222|7:3333333|7:4444444|7:5555555|7:6666666|
Point(Index)
Point(String)
Point(doSetFocus)
Point(doSelect)
}
Add(Button,4006544,126,308)
{
Left=340
Top=5
TabOrder=-1
Caption="Up"
Data=Integer(-1)
link(onClick,7081640:doWork1,[(172,314)])
}
Add(Button,6590722,126,364)
{
Left=340
Top=30
TabOrder=-1
Caption="Down"
Data=Integer(1)
link(onClick,7081640:doWork2,[])
}
Add(Hub,10141084,238,364)
{
OutCount=4
link(onEvent1,14304313:doText,[])
link(onEvent2,14304313:doSwap,[(298,377)(298,391)])
link(onEvent3,9938884:doData,[(285,384)(285,419)])
link(onEvent4,6857207:doSelect,[(273,391)(273,453)(398,453)(398,165)(169,165)(169,237)])
}
Add(DoData,9938884,343,413)
{
link(onEventData,6857207:doText,[(389,419)(389,172)(175,172)(175,209)])
link(Data,14304313:Text,[])
}
Add(GetDataEx,5270513,210,260)
{
link(Data,6857207:Index,[])
}
Add(MathParse,233075,189,364)
{
DataCount=3
MathStr="((%3 + %1) >= 0) * ((%3 + %1) < %2) * (%3 + %1) + ((%3 + %1) >= %2) * (%2 - 1) "
ResultType=0
link(onResult,10141084:doEvent1,[])
link(X2,6857207:Count,[])
link(X3,5270513:Var2,[(209,316)(216,316)])
}
Add(HubEx,7081640,168,364)
{
link(onEvent,233075:doCalc,[])
}