Очередной календарь с которым можно работать без мыши

Очередной календарь с которым можно работать без мыши

Очередной календарь с которым можно работать без мыши

Этот объект появился на свет исключительно из за того, что мне не нравяться программы в которых какие-либо действия можно делать только с помощью мыши.
Пересмотрел несколько решений, не ни одно до конца меня не удовлетворило.
Вызов производится примерно так

 oCalendar = createobject( "Calendar", THIS.Parent.txtDate.Value )  или так, тогда объект инициализируется с текущей датой oCalendar = createobject( "Calendar" )  * Далее установка координат по ситуации oCalendar.Top = THIS.Top + THIS.Parent.Top + THISFORM.Top + sysmetric( 9 ) + sysmetric( 11 ) + 4 oCalendar.Left = THIS.Left + THIS.Parent.Left + THISFORM.Left + sysmetric( 11 ) + 4  * Собственно сам вызов oCalendar.Show( ) THIS.Parent.txtDate.Value = oCalendar.ReturnDate oCalendar.Release( ) 

Сочетания клавиш, задействованные в объекте, можно посмотреть вызвав его и нажав клавишу F1 или F12.
Но можно все делать и мышью.
Написано но VFP5, потому код не совсем оптимален.
Объект еще основательно не тестировался, так что "возможно все", но я пока ничего подозрительного не заметил.
За цвета прошу не пинать, я не дизайнер, красьте сами :)))

Собственно все... 🙂

Пожелания и замечание можно (и желательно) присылать по адресу GraninDm@mail.ru

Автор: DmGr
0

Автор публикации

не в сети 20 лет

DmGr

0
Комментарии: 0Публикации: 2Регистрация: 21-01-2002
Вложенные файлы
#
Тип файла
Размер
Название
1 .zip 218Calendar
Оставить комментарий
Авторизация
*
*
Генерация пароля