Add(MainForm,3462516,280,140)
{
Width=475
Height=397
BorderStyle=1
}
Add(ListBox,1959964,602,224)
{
Left=10
Top=40
Width=280
Height=170
}
Add(Position,15941541,343,224)
{
Target="+"
link(onSearch,12722431:doCompare,[])
link(Str,14241677:Var2,[])
}
Add(If_else,12722431,392,224)
{
Type=2
Op2=Integer(0)
link(onTrue,3366092:doCopy,[])
}
Add(Button,11020374,280,224)
{
Left=10
Top=215
Width=105
Caption="Старт"
link(onClick,94360:doWork2,[])
}
Add(Button,12240807,525,287)
{
Left=215
Top=215
Width=70
Caption="Очистить"
link(onClick,1959964:doClear,[(569,293)(569,237)])
}
Add(StrList,10579880,343,126)
{
FileName="License.txt"
Strings=#81:Алексей Варкаксин, 21.10.1976, Нвосибирск ул трудовая 47 кв xx, тел: +7913765xxxx|82:Алексей Варкаксин, 21.10.1976, тел: +7915769xxxx, Нвосибирск ул трудовая 47 кв xx|
}
Add(Copy,3366092,441,224)
{
Count=11
link(onCopy,7113896:doEvent1,[])
link(Str,14241677:Var3,[(447,194)])
link(Position,15941541:Position,[(454,208)(413,208)(413,268)(349,268)])
}
Add(GetDataEx,14241677,343,189)
{
link(Data,10579880:Text,[])
}
Add(Hub,7113896,490,224)
{
link(onEvent1,1959964:doAdd,[])
link(onEvent2,94360:doWork3,[(516,237)(516,278)(326,278)])
}
Add(HubEx,94360,322,224)
{
link(onEvent,15941541:doSearch,[])
}
tom-it писал(а):
Номера всегда с равным количеством цифр?Одиннадцать цифр всегда