Kazbek17 писал(а):
Пользователь вводит цифры а каретка автоматом перескакивает на заданную маскуAdd(MainForm,2953706,161,91)
{
Width=313
Height=87
Point(onChar)
}
Add(Length,8834083,287,203)
{
link(onLength,10811498:doCompare,[])
}
Add(Length,2879881,476,189)
{
link(onLength,8398404:doCompare,[])
}
Add(If_else,10811498,336,203)
{
Type=2
Op2=Integer(2)
link(onTrue,3105862:doEvent1,[])
}
Add(If_else,8398404,518,189)
{
Type=2
Op2=Integer(2)
link(onTrue,12488982:doEvent1,[])
}
Add(Length,12981451,658,175)
{
link(onLength,64450:doCompare,[])
}
Add(If_else,64450,707,175)
{
Type=2
Op2=Integer(1)
link(onTrue,15980686:doEvent1,[])
}
Add(Hub,3105862,399,203)
{
InCount=2
link(onEvent1,12453905:doSetFocus,[])
link(onEvent2,12453905:doSelectAll,[])
}
Add(Hub,12488982,574,189)
{
InCount=2
link(onEvent1,11990847:doSetFocus,[])
link(onEvent2,11990847:doSelectAll,[])
}
Add(Hub,15980686,763,175)
{
InCount=2
link(onEvent1,10393416:doSetFocus,[])
link(onEvent2,10393416:doSelectAll,[])
}
Add(Label,8180440,161,210)
{
Left=20
Top=10
Width=189
Height=28
Font=[MS Sans Serif,14,0,0,1]
Caption="+7( ) - - "
}
Add(Edit,12875877,237,203)
{
Left=50
Top=15
Width=45
Text=""
MaxLenField=3
ClearAfterEnter=1
Point(onMouseUp)
Point(doSelectAll)
link(onChange,8834083:doLength,[])
link(onMouseUp,12875877:doSelectAll,[(281,223)(281,243)(225,243)(225,223)])
}
Add(Edit,12453905,426,189)
{
Left=105
Top=15
Width=40
Text=""
MaxLenField=3
ClearAfterEnter=1
Point(doSetFocus)
Point(doSelectAll)
Point(onMouseUp)
link(onChange,2879881:doLength,[])
link(onMouseUp,3105862:doEvent2,[(470,209)(470,226)(387,226)(387,216)])
}
Add(Edit,11990847,609,175)
{
Left=155
Top=15
Width=35
Text=""
MaxLenField=2
ClearAfterEnter=1
Point(doSetFocus)
Point(doSelectAll)
Point(onMouseUp)
link(onChange,12981451:doLength,[])
link(onMouseUp,12488982:doEvent2,[(653,195)(653,214)(562,214)(562,202)])
}
Add(Edit,10393416,798,161)
{
Left=205
Top=15
Width=35
Text=""
MaxLenField=2
ClearAfterEnter=1
Point(doSetFocus)
Point(doSelectAll)
Point(onMouseUp)
link(onMouseUp,15980686:doEvent2,[(842,181)(842,199)(751,199)(751,188)])
}
Add(Button,1077006,161,168)
{
Left=250
Top=15
Width=20
Caption="x"
link(onClick,14231538:doEvent1,[])
}
Add(Hub,14231538,203,168)
{
OutCount=4
link(onEvent1,10393416:doText2,[])
link(onEvent2,11990847:doText2,[(420,181)(420,188)])
link(onEvent3,12453905:doText2,[(322,188)(322,202)])
link(onEvent4,12875877:doText2,[(227,195)(227,216)])
}