Дополнения пользователей Компонент Календарь
|
[+][?] |
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. - всё пучком.
Как это лечиться?
|
|