Метод
SetFieldCalendarContext (Integer, Comp) : Comp |
Top Previous Next |
Назначение
|
Устанавливает
контекст aContext для поля #Field. Не
заданным контекстам присваивается значение 0. |
У поля
ввода (объект
TInputLine)
вводится
внутреннее поле контекста календаря. Данная функция устанавливает
этот контекст. |
Описание
|
Function
SetFieldCalendarContext (#Field, aContext) : Comp;
|
Параметры
|
#Field
- идентификатор поля. |
aContext
- устанавливаемый контекст. |
Возвращаемое
значение |
Возвращает
старый контекст. Если 1-ый параметр недействителен или не
идентифицирует поле типа Date или DateTime, то возвращает 0.
|
Замечания
|
Обработка
исключений - при передаче в функции невалидных значений
вырабатывается исключение ExBadFieldType (ExVip), которое по
умолчанию выводит сообщение и продолжает работу программы с
возвратом кода ошибки. |
Пример
|
const caTest1 =
999; // контекст каледаря 1 |
const caTest2 =
9; // контекст каледаря 2 |
Interface Test
'Тест'; |
show at ( 1, 1,
80, 34); |
create view as
select aDate from Dates; |
Browse
bwFields; |
Fields
|
aDate 'Дата' :
[20], Protect; |
end;
|
HandleEvent
|
cmInit :
{ SetFieldCalendarContext
(#aDate,
caTest2); |
SetWindowCalendarContext
(-1, caTest1);
|
}
|
end;
|
end.
|