FoxPro Club Главная

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

Как ни банально, но еще один календарь. Всегда его использую в своих проектах. Вообще это выборка из лучших(на мой взгляд) календарей в "одном флаконе" Пробуйте, тестируйте и т.д. Только одно ограничение - работает на VFP 7.0


 
Прислал: (сборка): Дворядкин Дмитрий   Категория: Интерфейс


Компонент Календарь

Использование:
1. В Методе Init формы или в любом другом месте до вызова формы прописываем: Set Procedure to Utils
2. В панели инструментов Form Control Нажимаем кнопку Add Class и в выпавшем меню выбираем Add... . Указываем библиотеку Tools.vcx, после чего в панели Form Control появится кнопка контейнера Calendar
3. Вставляем класс в форму.
Инициализация:
thisform.Calendar1.Value=date()
Чтение значения:
myVar = thisform.Calendar1.Value
 
Сделайте оценку этого решения Плохо Удовлетворительно Так себе Хорошо Отлично Текущая оценка: (5.015) Вложение [4.92]kb
Дополнения пользователей
Компонент Календарь
 [+][?]
Kill
23.02.02 16:03:16		 
Чегой-то не хватает в классе.
Ругается, однакою
Дмитрий
05.03.02 08:49:02		 
Уже поправлено!
Пользуйтесь.
Белюкова Е.В.
10.09.03 15:54:36		 
Очень приятное впечатление.

Есть только одно небольшое замечание - при нажатии кнопки сегодня выскакивают правильные месяц и
год, но число всегда первое.

Исправила таким образом:
1. В Utils.prg процедуру DRAW написала таким образом:
	PROCEDURE DRAW
		LPARAMETERS day_vv
		IF day_vv = 0
			THIS.vday=1
		ELSE
			THIS.vday=DAY(DATE())
		ENDIF
		THIS.olm.CAPTION=ALLT(STR(THIS.vday))+" "+THIS.mns[this.vmonth]+" "+ALLT(STR(THIS.vyear))
		THISFORM.setday
	ENDPROC

2. Процедуру obtd.CLICK:
	PROCEDURE obtd.CLICK
		THISFORM.vmonth=MONTH(DATE())
		THISFORM.vyear=YEAR(DATE())
		THISFORM.DRAW(1)
	ENDPROC
3. Во всех остальных случаях, где вызывается THISFORM.DRAW, написала THISFORM.DRAW(0).
Aries
20.10.03 15:44:07		 
Ничего так. Неплохая замена АктивИксу (для тех кто не любит
ими пользоваться).
JazyX
23.08.05 09:24:33		 
Понравился календарик своей простотой.
Есть "НО".
При вызове из формы(Desktop=.T.), календарь невидим...  :|
а если Desktop=.F. - всё пучком.


Как это лечиться?
JazyX
23.08.05 09:29:51		 
Понравился календарик своей простотой.
Есть "НО".
При вызове из формы(Desktop=.T.), календарь невидим...  :|
а если Desktop=.F. - всё пучком.


Как это лечиться?
JazyX
23.08.05 09:35:15		 
Понравился календарик своей простотой.
Есть "НО".
При вызове из формы(Desktop=.T.), календарь невидим...  :|
а если Desktop=.F. - всё пучком.


Как это лечиться?
JazyX
23.08.05 09:40:52		 
Понравился календарик своей простотой.
Есть "НО".
При вызове из формы(Desktop=.T.), календарь невидим...  :|
а если Desktop=.F. - всё пучком.


Как это лечиться?
[Дополнить]


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