isg-brass5-213-242-2-112. писал(а):
как это сделать?Add(MainForm,2953706,119,161)
{
}
Add(Time,1013730,238,161)
{
Point(DateTime)
}
Add(Edit,1617186,182,161)
{
Left=30
Top=10
Width=190
Text="2013-10-10"
}
Add(Math,6877990,245,217)
{
OpType=37
Op2=1
link(onResult,16587419:doOperation,[])
link(Op1,1013730:DateTime,[])
}
Add(DateConvertor,4221173,182,217)
{
Mode=8
Format="yyyy-MM-dd"
Point(Data)
Point(Result)
link(onResult,6877990:doOperation,[])
link(Data,1617186:Text,[])
}
Add(Math,16587419,308,217)
{
OpType=1
link(onResult,794083:doCompare,[])
link(Op1,4221173:Result,[(314,208)(300,208)(300,257)(188,257)])
}
Add(Button,10233403,119,217)
{
Left=85
Top=35
Width=80
TabOrder=-1
Caption="Сравнить"
link(onClick,4221173:doConvert,[])
}
Add(Label,10404411,574,182)
{
Left=245
Top=10
Caption=""
AutoSize=1
}
Add(If_else,794083,364,217)
{
Type=1
link(onTrue,7809934:doWork1,[])
link(onFalse,14110935:doCompare,[])
}
Add(ChanelToIndex,7809934,462,217)
{
Count=3
link(onIndex,12730376:doGetString,[])
}
Add(If_else,14110935,413,224)
{
link(onTrue,7809934:doWork2,[])
link(onFalse,7809934:doWork3,[])
}
Add(StrList,12730376,518,175)
{
Strings=#7:прошлое|7:сегодня|7:будущее|
Point(onGetString)
Point(doGetString)
link(onGetString,10404411:doText,[])
}