Врубился в Rnd и нашел Selected.
Для ценителей изящного - тоже самое
code_14933.txt
Еще один пример: работа CheckBox
Add(MainForm,5658186,21,238)
{
Left=100
Top=100
Width=300
Height=265
Caption="Работа с CheckBox"
link(onCreate,1539473:doRandomize,[(65,258)(65,202)])
}
Add(Edit,6913458,315,182)
{
Left=147
Top=100
Width=39
Text=""
}
Add(Edit,9167562,315,266)
{
Left=147
Top=132
Width=39
Text=""
}
Add(Timer,2818801,21,189)
{
link(onTimer,1539473:doRandom,[])
}
Add(Random,1539473,77,189)
{
link(onRandom,5732832:doText,[])
}
Add(Label,2548895,119,140)
{
Left=37
Top=102
Width=55
Height=17
Caption="Исходный"
}
Add(Image,10164316,161,140)
{
Left=8
Top=5
Width=60
Height=60
ViewStyle=1
Picture=[ZIPC204000078DA73F23DC4C200064E40AC01C41250CCC820C0C00CA41BA0F228A08681E10150521EC8FC5F3F0A8983D5F9D82176D56B4D19188AFD30213EF5986613520F8A4C884A088B18F5C83461F720120D31EE41E820CEFDA49A4FAAFB490D1FD2C21F13E0538F1D8EF45C05005C8DCABA]
}
Add(Label,8370322,77,140)
{
Left=13
Top=76
Width=264
Height=17
Caption="При установке галочки происходит вывод в ячейку"
}
Add(Edit,5732832,119,189)
{
Left=42
Top=125
Width=41
Text=""
link(onChange,7906569:doEvent1,[])
}
Add(CheckBox,12047057,203,147)
{
Left=120
Top=100
Width=15
Ctl3D=0
Caption=""
link(onCheck,9832292:doClear,[])
}
Add(CheckBox,2745602,203,231)
{
Left=120
Top=132
Width=15
Ctl3D=0
Caption=""
link(onCheck,10730646:doClear,[])
}
Add(If_else,12133421,203,189)
{
Op2=Integer(1)
link(onTrue,848997:doEvent2,[])
link(Op1,12047057:Checked,[])
}
Add(Hub,7906569,161,189)
{
OutCount=4
link(onEvent1,12133421:doCompare,[])
link(onEvent2,11309671:doCompare,[(197,202)(197,279)])
link(onEvent3,1528061:doCompare,[(192,209)(192,363)])
link(onEvent4,8154826:doCompare,[(186,216)(186,447)])
}
Add(If_else,11309671,203,273)
{
Op2=Integer(1)
link(onTrue,8694087:doEvent2,[])
link(Op1,2745602:Checked,[])
}
Add(Hub,848997,287,182)
{
InCount=2
OutCount=1
link(onEvent1,6913458:doText,[])
}
Add(Hub,8694087,287,266)
{
InCount=2
OutCount=1
link(onEvent1,9167562:doText,[])
}
Add(Memory,9832292,245,140)
{
link(onData,848997:doEvent1,[(281,146)(281,188)])
}
Add(Edit,6168987,315,350)
{
Left=147
Top=162
Width=39
Text=""
}
Add(CheckBox,2852061,203,315)
{
Left=120
Top=162
Width=15
Ctl3D=0
Checked=0
Caption=""
link(onCheck,6957653:doClear,[])
}
Add(If_else,1528061,203,357)
{
Op2=Integer(1)
link(onTrue,9795391:doEvent2,[])
link(Op1,2852061:Checked,[])
}
Add(Hub,9795391,287,350)
{
InCount=2
OutCount=1
link(onEvent1,6168987:doText,[])
}
Add(Edit,15140416,315,434)
{
Left=147
Top=192
Width=39
Text=""
}
Add(CheckBox,7324124,203,399)
{
Left=120
Top=192
Width=15
Ctl3D=0
Caption=""
link(onCheck,16770340:doClear,[])
}
Add(If_else,8154826,203,441)
{
Op2=Integer(1)
link(onTrue,15290794:doEvent2,[])
link(Op1,7324124:Checked,[])
}
Add(Hub,15290794,287,434)
{
InCount=2
OutCount=1
link(onEvent1,15140416:doText,[])
}
Add(Memory,10730646,245,224)
{
link(onData,8694087:doEvent1,[(281,230)(281,272)])
}
Add(Memory,6957653,245,308)
{
link(onData,9795391:doEvent1,[(282,314)(282,356)])
}
Add(Memory,16770340,245,392)
{
link(onData,15290794:doEvent1,[(282,398)(282,440)])
}