Make(delphi)
ver(4.04 build 184)
Add(MainForm,2953706,98,112)
{
 Width=212
 Height=152
 Caption="Вес"
 BorderStyle=1
 Position=1
}
Add(Label,13030947,273,91)
{
 Left=25
 Top=5
 Width=23
 Height=17
 Caption="Вес кГ"
}
Add(Label,6302191,168,84)
{
 Left=130
 Top=5
 Width=48
 Height=17
 Caption="Рост см."
}
Add(Edit,14271070,259,112)
{
 Left=5
 Top=25
 Width=95
 Text="75"
}
Add(Edit,13653963,161,105)
{
 Left=115
 Top=25
 Width=80
 Text="177"
}
Add(Button,12671811,98,175)
{
 Left=45
 Top=55
 Width=100
 Color=100
 Caption="Рассчитать"
 link(onClick,9195390:doOperation,[])
}
Add(Label,4339259,518,140)
{
 Left=5
 Top=90
 Width=180
 Font=[MS Sans Serif,8,1,255,1]
 Caption=""
 AutoSize=1
 Alignment=2
}
Add(Math,12639261,210,175)
{
 OpType=11
 Op2=2
 link(onResult,13649099:doOperation,[])
}
Add(Math,9195390,161,175)
{
 OpType=3
 Op2=100
 link(onResult,12639261:doOperation,[])
 link(Op1,13653963:Text,[])
}
Add(Math,13649099,259,175)
{
 OpType=3
 ResultType=0
 link(onResult,10049666:doCompare,[])
 link(Op1,14271070:Text,[])
}
Add(StrList,2040327,462,133)
{
 Strings=#22:Вас вес меньше нормы !|16:У Вас ожирение !|21:У Вас нормальный вес.|
 Point(doGetString)
 Point(onGetString)
 link(onGetString,4339259:doText,[])
}
Add(If_else,10049666,308,175)
{
 Type=1
 Op2=Integer(20)
 link(onTrue,15695070:doWork1,[])
 link(onFalse,13806300:doCompare,[])
}
Add(If_else,13806300,357,182)
{
 Type=2
 Op2=Integer(25)
 link(onTrue,15695070:doWork2,[])
 link(onFalse,15695070:doWork3,[])
}
Add(ChanelToIndex,15695070,406,175)
{
 Count=3
 link(onIndex,2040327:doGetString,[])
}