user_asm писал(а):
И не дать закрыть форму, пока дата не выбрана
Add(DatePicker,721072,378,154)
{
@Group=65831600
Left=110
Top=55
Width=95
Height=21
Font=[MS Sans Serif,8,0,0,204]
TabOrder=-1
Ctl3D=0
WinStyle=1
Hint="Открыть календарь"
Point(doWidth)
Point(doFont)
Point(doBringToFront)
Point(DateTime)
Point(DateInt)
link(onChange,14719569:doEvent1,[])
}
Add(Edit,14406406,266,147)
{
@Group=65831600
Left=110
Top=55
Width=75
Font=[MS Sans Serif,8,0,0,204]
Text=""
link(onEnter,12555827:doConvert,[])
}
Add(MainForm,12279922,525,203)
{
Point(Close)
link(Close,5183850:Value,[])
}
Add(Memory,5183850,525,154)
{
Default=Integer(1)
}
Add(DoData,6734246,476,154)
{
Data=Integer(0)
link(onEventData,5183850:doValue,[])
}
Add(Hub,14719569,434,154)
{
link(onEvent1,6734246:doData,[])
link(onEvent2,721072:doBringToFront,[(459,167)(459,195)(368,195)(368,181)])
}
Add(DateConvertor,12555827,322,154)
{
Mode=8
Format="dd.MM.yyyy"
link(onResult,721072:doSetDate,[])
}