FoxPro Club Главная

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

Интерфейс календаря как у ActivX Calendar, но имеет много дополнений. Впервые ! календарь сделан на основе Grid!! Управляется клавишами и мышью. Показывает разницу м/у указанной датой и текущей. Может принимать параметры -первоначальную дату, нижнюю и верхнюю границу года.


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


Календарь: аналог ActivX Calendar на Grid!!!

Интерфейс календаря как у ActivX Calendar, но имеет много дополнений.
Впервые ! календарь сделан на основе Grid!! Управляется клавишами и мышью. Показывает разницу м/у указанной датой и текущей. Может принимать параметры -первоначальную дату,
нижнюю и верхнюю границу года, координаты верхн.левого угла.
Параметры
1. Дата (D) - установить указатель в календаре на дату
(по умолчанию текущая)
2. Год (N) - нижняя граница Года для календаря
(по умолчанию 1900)
3. Год (N) - верхняя граница Года для календаря
(по умолчанию 2090)
4. nTop (N) - координаты верхн.левого угла
5. nLeft (N)
Нижняя и верхняя граница года могут совпадать. Необходимо только
чтобы первоначальная дата (если она не указана то текущая дата
) попадали в интервал.

Если дата была выбрана возвращается значение(Дата) иначе .T.
Доступны клавиши Enter,Esc,PgUp,PgDn,Upper,Down,Left,Right


Пример оформлен в качестве проекта(можно сделать и exe) для VFP7
Можно запускать и из командной строки(укажите свой Path к форме):
STORE "" TO dd
DO FORM d:vfp7workcalendarfrmclndr.scx TO dd
? dd
Архив calendtvs.zip
ver.1.1 tvs (c)КНУ 2002 tvsrb@mail.ru


 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (4.972) Вложение [14.48]kb
Дополнения пользователей
Календарь: аналог ActivX Calendar на Grid!!!
[+][?]
Ившев Дмитрий
05.02.03 02:30:51

При перемещении по календарю 'вверх' с помощью стрелок в определенный момент возникает
несоответствие между подсвеченной ячейкой и датой на нижней метке.
VASIL
05.02.03 07:38:51

В обьекте grdDay
в событии AfterRowColChange
изменить строку 72
.wrkDay = nDay  && val(THIS.Columns(nColIndex).Text1.Value)
на 
.wrkDay = val(THIS.Columns(nColIndex).Text1.Value)

?А общее мнение кто нибудь выскажет?
tvs
Ившев Дмитрий
05.02.03 13:25:35

Все программисты делают это... Календари и калькуляторы, и я делал. Общее впечатление? Нормально.
Алгоритм интересный, интерфейс похуже – выпадает из стиля операционной системы. Успехов.


VASIL
06.02.03 08:12:40

Считаю, что в первую очередь интерфейс должен быть удобен пользователю, а не соответствовать
новейшим веяньям.
tvs 
VASIL
16.02.03 21:30:37

Ну вот! Программу, как я понимаю, скачивают, а сказать плохое или хорошее не хотят. Было желание
разместить  класс
для сохранения и восстановления положения и размеров форм, но уже и не хочется.
tvs
Тарасов Андрей
19.02.03 15:22:14

Скачать-то скачал, вот только когда посмотрю ...
Но заранее благодарен. Относительно Вашей обиды считаю, что правы были древние - "учиться не
зазорно, учить почетно".

Евгений
19.01.04 05:56:49

Поставил. Понравилось. Очень умно сделано.

Что я исправил.
1. Сохранение текущей области при входе в форму и восстановление... 
2. В методе Click нижней кнопки добавил после 
KEYBOARD 
inkey(0)  ---- ее небыло.
release thisform

Мнение - все замечательно, но откуда такая любовь к KEYBOARD? Есть более элегантные решения...
Ждем новую версию :) 
[Дополнить]



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