Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#1: 2013-10-09 12:22:08 ЛС | профиль | цитата
Можно и вот так, именно, как просили

Add(MainForm,2953706,56,105)
{
}
Add(CheckBox,15349416,112,70)
{
Left=15
Top=15
Width=90
TabOrder=-1
Caption="1"
}
Add(CheckBox,5883062,119,77)
{
Left=15
Top=35
Width=90
TabOrder=-1
Caption="2"
}
Add(CheckBox,10363184,126,84)
{
Left=15
Top=55
Width=90
TabOrder=-1
Caption="3"
}
Add(CheckBox,7843476,133,91)
{
Left=15
Top=75
Width=90
TabOrder=-1
Caption="4"
}
Add(CheckBox,15219868,140,98)
{
Left=15
Top=95
Width=90
TabOrder=-1
Caption="5"
}
Add(Button,6638124,56,147)
{
Left=25
Top=130
TabOrder=-1
Caption="Ok!"
link(onClick,2939497:doNumber,[])
}
Add(BitsToInt,2939497,112,147)
{
Count=5
link(onNumber,269336:doGetIndex,[])
link(Bit1,15349416:Checked,[])
link(Bit2,5883062:Checked,[])
link(Bit3,10363184:Checked,[])
link(Bit4,7843476:Checked,[])
link(Bit5,15219868:Checked,[])
}
Add(StrList,269336,196,105)
{
Strings=#1:3|1:9|2:18|1:5|0:|
Point(onGetIndex)
Point(doGetIndex)
link(onGetIndex,9052158:doGetString,[])
}
Add(Message,15690419,364,77)
{
Caption="!!!"
}
Add(StrList,9052158,259,70)
{
Strings=#5:1 - 2|5:1 - 4|5:2 - 5|5:1 - 3|0:|
Point(doGetString)
Point(onGetString)
link(onGetString,14375221:doCase,[])
}
Add(Case,14375221,308,77)
{
Value=String()
link(onNextCase,15690419:doMessage,[])
}


карма: 22

0