Еще Календарик

[Likefire]

Если кого заинтересовала данная тема,- предлагаю свою ипостась календарика для подбора даты в соответствующих полях. Работа всего этого дела до безобразия проста: из прикреплённый файл Calend.fob импортируете в любую базу, а нужные поля снабжаете свойством LookUp-Yes и в соответствующую процедуру OnLookUp выбранного поля дописываете следующие строки:

CLEAR(Calendar); // Calendar - переменная типа Form.Calendar
IF (Calendar.RUNMODAL=ACTION::Close) AND (Calendar.ReplyOut <> 0D) THEN
MYDate := Calendar.ReplyOut;

Вот и вся любовь! Кому интересно,- зацените.