Окно процедур метода Click для кнопки Календарь



Рис. 16.26. Окно процедур метода Click для кнопки Календарь


  • В окне процедур свойства click (Нажатие) введите команды, которые программно формируют и задают свойства ActiveX-компонента календарь (рис. 16.26):
  • #DEFINE С CALCAFTIOK_LOC "Календарь"

    oCalForm = Create('form1 )

    oCalForm.NewObject("oleCalendar","_olecalendar","_datetime")

    WITH oCalForm.oleCalendar

    .date_column = "manager.ddatebirch"

    .RefreshDisplay()

    .BackColor = THISFORM.BackColor

    .Visible = . T. ENDWITH WITH oCalForm

    .BorderStyle - '.:

    .MaxButton = .F.

    .MinButton = .F.

    .Height = oCalForm.oleCalendar.Height

    .Width = oCalForm.oleCalendar.Width

    .Caption = C__CALCAPTION_LOC ENDWITH

    oCalForm.Show(1) THISFORM.Refresh

  • Закройте окно процедур.
  • Создание формы завершено. Запустите ее на выполнение. Для ввода информации в поле дата рождения нажмите кнопку Календарь. На экране откроется календарь. Выберите необходимое число, месяц и год и закройте календарь. Указанная вами дата будет перенесена в поле дата рождения (рис. 16.27).



    Содержание раздела