FoxPro Club Главная

Конференция Решения Фотоальбом Сайт М.Дроздова Статьи Файловый архив Книга Visual FoxPro 9.0 Русский Help для Visual FoxPro
Пользователей: 9146
Вход
Очередной календарь с которым можно работать без мыши

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


 
Прислал: DmGr   Категория: Интерфейс


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

Этот объект появился на свет исключительно из за того, что мне не нравяться программы в которых какие-либо действия можно делать только с помощью мыши.
Пересмотрел несколько решений, не ни одно до конца меня не удовлетворило.
Вызов производится примерно так
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
 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.874) Вложение [9.91]kb
Дополнения пользователей
Очередной календарь с которым можно работать без мыши
[+][?]
[Дополнить]



© 2000-2017 Fox Club 
При размещении любых материалов с сайта на других ресурсах- прямая ссылка на www.foxclub.ru обязательна
Яндекс.Метрика