kamakama писал(а):
Один знак до точки, два после. Вывод = вводА че, проще нельзя
Add(MainForm,15768930,301,91)
{
Width=264
Height=135
Position=1
}
Add(Edit,5089080,350,154)
{
Left=45
Top=40
Text=""
DataType=4
MaxLenField=4
Point(doPosition)
Point(Position)
link(onChange,9182205:doCompare,[])
link(onEnter,5925598:doText,[(395,167)(395,209)])
}
Add(Label,5925598,455,203)
{
Left=160
Top=45
Caption="x.xx"
}
Add(StrMask,9182205,406,154)
{
Mask="#"
link(onTrue,7822997:doStrCat,[])
}
Add(StrCat,7822997,455,161)
{
Str2="."
link(onStrCat,1799320:doEvent1,[(506,167)(506,146)(256,146)(256,167)])
}
Add(Hub,1799320,266,161)
{
link(onEvent1,5089080:doText2,[])
link(onEvent2,1369744:doData,[])
}
Add(DoData,1369744,301,168)
{
Data=Integer(2)
link(onEventData,5089080:doPosition,[])
}