user_asm писал(а):
Собственно задача состоит в том, что бы поле календаря было пустым,Не совсем пустое но, скорее всего, заставит пользователя выбрать дату.
Add(Font,1746955,322,126)
{
Font=[MS Sans Serif,10,0,255,1]
link(onFont,721072:doFont,[])
}
Add(DatePicker,721072,373,112)
{
Left=180
Top=90
Width=130
Height=21
Font=[Lucida Console,1,0,0,204]
TabOrder=-1
Ctl3D=0
WinStyle=1
Hint="Открыть календарь"
Point(doWidth)
Point(doFont)
Point(onMouseDown)
link(onMouseDown,3477619:doEvent1,[])
}
Add(MainForm,12279922,532,175)
{
Point(Close)
link(Close,5183850:Value,[])
}
Add(Memory,5183850,532,126)
{
Default=Integer(1)
}
Add(Hub,3477619,413,119)
{
link(onEvent1,1746955:doFont,[(445,125)(445,104)(305,104)(305,132)])
link(onEvent2,6734246:doData,[])
}
Add(DoData,6734246,469,126)
{
Data=Integer(0)
link(onEventData,5183850:doValue,[])
}