Make(delphi)
ver(4.03 build 180)
Add(MainForm,2953706,21,105)
{
 Width=226
 Height=211
 Caption="Сколько Вам лет"
 link(onCreate,1782885:doWork1,[])
}
Add(Time,7523665,84,49)
{
 Time_Date=1
 Format="D.M.Y"
 Point(Hours)
 Point(Minute)
 Point(Second)
}
Add(Label,13298095,833,252)
{
 Left=20
 Top=140
 Width=4
 Height=4
 Font=[MS Sans Serif,12,1,255,1]
 Caption=""
}
Add(ChildGroupBox,1782885,126,119)
{
 link(onEvent1,3900740:doWork1,[(809,125)])
}
BEGIN_SDK
  Add(EditMulti,827109,21,21)
  {
   EventCount=1
   WorkCount=1
   VarCount=3
   Height=172
   link(doWork1,4807006:doEvent1,[(53,27)(53,34)])
   link(Var1,10216611:Text,[(27,171)(34,171)])
   link(Var2,4783193:EditText,[(34,178)(167,178)])
   link(Var3,14809982:EditText,[(41,185)(188,185)])
  }
  Add(GroupBox,5423929,28,49)
  {
   Left=5
   Top=5
   Width=186
   Height=66
   Font=[MS Sans Serif,8,1,16711680,1]
   Caption="Дата рождения"
  }
  Add(ComboBox,14809982,168,28)
  {
   Left=5
   Top=35
   Height=21
   Text=""
   ReadOnly=0
   Point(EditText)
   link(onClick,1505806:doWork1,[(242,41)])
  }
  Add(ComboBox,4783193,147,84)
  {
   Left=65
   Top=35
   Width=50
   Height=21
   Text=""
   ReadOnly=0
   Point(EditText)
   link(onClick,1505806:doWork2,[])
  }
  Add(Edit,10216611,28,133)
  {
   Left=120
   Top=35
   Width=45
   Text="1950"
   DataType=1
   link(onChange,1505806:doWork3,[(242,139)])
  }
  Add(Label,8122923,28,91)
  {
   Left=15
   Top=15
   Width=160
   Caption="День          Месяц         Год"
   AutoSize=1
  }
  Add(For,14555703,112,28)
  {
   End=31
   link(onEvent,14809982:doAdd,[])
  }
  Add(For,11921511,98,84)
  {
   End=12
   link(onEvent,4783193:doAdd,[])
  }
  Add(Hub,4807006,70,28)
  {
   link(onEvent1,14555703:doFor,[])
   link(onEvent2,11921511:doFor,[(92,41)(92,90)])
  }
  Add(HubEx,1505806,238,91)
  {
   link(onEvent,12240636:doData,[])
  }
  Add(DoData,12240636,252,91)
  {
   Data=String()
   link(onEventData,827109:onEvent1,[(298,97)(298,27)])
  }
END_SDK
Add(Button,15082452,21,252)
{
 Left=145
 Top=75
 Width=45
 Font=[MS Sans Serif,8,1,0,1]
 Caption="Счет"
 link(onClick,3466856:doCalc,[])
}
Add(InfoTip,5666053,77,28)
{
 Info=#63:DecodeDate(CurrentDate, CurrentYear, CurrentMonth, CurrentDay);|
 HAlign=2
 Width=351
 Height=67
 Margin=5
}
Add(InfoTip,16353472,119,105)
{
 Info=#39:DecodeDate(Birthday, Year, Month, Day);|
 HAlign=2
 Width=253
 Height=60
 Margin=5
}
Add(InfoTip,1397039,63,231)
{
 Info=#91:if (Year = CurrentYear) and (Month = CurrentMonth) and (Day = CurrentDay) then Result := 0;|
 HAlign=2
 Width=533
 Height=60
 Margin=5
}
Add(MathParse,3466856,91,252)
{
 DataCount=6
 MathStr="(%1=%4) + (%2=%5) + (%3=%6)"
 link(onResult,7609081:doCompare,[])
 link(X1,4378285:Var2,[])
 link(X2,3577621:Var2,[])
 link(X3,12397769:Var2,[])
 link(X4,4719523:Var2,[])
 link(X5,3103019:Var2,[])
 link(X6,719781:Var1,[(132,184)])
}
Add(If_else,7609081,147,252)
{
 Op2=Integer(3)
 link(onTrue,7931809:doData,[])
 link(onFalse,5081007:doOperation,[(192,265)(192,335)])
}
Add(DoData,7931809,546,252)
{
 Data=String(Ты еще не родился)
 link(onEventData,3900740:doWork2,[])
}
Add(If_else,12797598,308,329)
{
 Type=2
 Op1=Integer(0)
 Op2=Integer(0)
 link(onTrue,8206873:doOperation,[])
 link(onFalse,6618102:doCompare,[(349,342)(349,419)])
 link(Op1,6740114:Var2,[])
 link(Op2,9873097:Var2,[])
}
Add(If_else,6618102,357,413)
{
 link(onTrue,15196981:doCompare,[])
 link(Op1,6740114:Var3,[(363,306)])
 link(Op2,9873097:Var3,[(370,299)])
}
Add(InfoTip,11631263,105,315)
{
 Info=#29:Result := CurrentYear - Year;|
 HAlign=0
 Width=169
 Height=53
}
Add(Math,5081007,224,329)
{
 OpType=1
 ResultType=0
 link(onResult,12797598:doCompare,[])
 link(Op1,4378285:Var3,[(230,222)])
 link(Op2,4719523:Var3,[(237,208)])
}
Add(GetDataEx,4378285,91,217)
{
 link(Data,7523665:Hours,[])
}
Add(GetDataEx,4719523,112,203)
{
 link(Data,1782885:Var1,[(118,170)(132,170)])
}
Add(InfoTip,7015927,294,315)
{
 Info=#42:if (Month > CurrentMonth) then Dec(Result)|0:|
 HAlign=2
 Width=211
 Height=60
}
Add(GetDataEx,3103019,119,189)
{
 link(Data,1782885:Var2,[(125,177)(139,177)])
}
Add(GetDataEx,3577621,98,133)
{
 link(Data,7523665:Minute,[])
}
Add(Math,8206873,406,329)
{
 OpType=1
 Op2=1
 ResultType=0
 link(onResult,13966277:doWork2,[])
}
Add(InfoTip,10116213,336,392)
{
 Info=#28:if Month = CurrentMonth then|
 Width=148
 Height=67
}
Add(GetDataEx,6740114,308,301)
{
 link(Data,3103019:Var3,[(314,194)])
}
Add(GetDataEx,9873097,315,294)
{
 link(Data,3577621:Var3,[(321,138)])
}
Add(InfoTip,16066061,504,378)
{
 Info=#39:if (Day > CurrentDay) then Dec(Result);|
 Width=176
 Height=81
}
Add(Math,9816933,602,413)
{
 OpType=1
 ResultType=0
 link(onResult,13712766:doWork3,[(690,419)])
}
Add(If_else,15196981,525,413)
{
 Type=2
 link(onTrue,9816933:doOperation,[])
 link(onFalse,13966277:doWork3,[(578,426)])
 link(Op1,719781:Var3,[(531,184)])
 link(Op2,12397769:Var3,[(538,96)])
}
Add(GetDataEx,719781,140,179)
{
 link(Data,1782885:Var3,[])
}
Add(GetDataEx,12397769,105,91)
{
 link(Data,7523665:Second,[])
}
Add(HubEx,3900740,805,252)
{
 link(onEvent,13298095:doText,[])
}
Add(HubEx,13712766,686,329)
{
 link(onEvent,4469531:doConvert,[])
}
Add(HubEx,13966277,574,329)
{
 link(onEvent,13712766:doWork2,[])
}
Add(Convertor,4469531,714,329)
{
 Mode=16
 Word_1="год"
 Word_2="года"
 Word_5="лет"
 link(onResult,12678:doString,[])
}
Add(FormatStr,12678,763,329)
{
 Mask="Вам полных %1"
 link(onFString,3900740:doWork3,[(809,335)])
}