Значения параметра nAttribute

nAttribute	Атрибут свойства, события или метода и результат функции
0	Changed (только для свойств). Возвращает .T., если значение свойства изменено по сравнению с начальным (заданным по умолчанию) значением, или .F. – в противном случае
1	Read-only (только для свойств). Возвращает .T., если значение свойство доступно только для чтения, или .F. – в противном случае
2	Protected. Возвращает .T., если свойство, событие или метод защищен, или .F. – в противном случае
3	Type. Возвращает строку "Property", "Event", "Method" или "Object" соответственно для cProperty, cEvent, cMethod или cObject
4	User-defined. Возвращает .T., если свойство, событие или метод определен пользователем, или .F. – в противном случае
5	Defined. Возвращает .T., если свойство, событие, метод или объект определен для oObjectName или cClassName, или .F. – в противном случае
6	Inherited. Возвращает .T., если свойство, событие, метод или объект для oObjectName или cClassName наследуется из другого объекта или класса, или .F. – в противном случае

Пример 1. В качестве первого параметра передается имя класса.

Local lcCode

&& Открываем библиотеку классов _base.vcx

set classlib to Home( ) + "Ffc\_base.vcx"

lcCode = PEMStatus("_form", "Release", 3)

? lcCode && Напечатает: Method

Пример 2. Выводится значение атрибута User-defined для объекта CommandClose формы oForm.

oForm = CreateObject("OneButtonForm")

userDefined = PEMStatus(oForm, "CommandClose", 4)

? userDefined && Напечатает: .F.

define class OneButtonForm as Form

&& Определение класса см. в примере для GETPEM( )

…

endDefine

Функция

SYS(1269, oObjectName, cProperty, nPropertyAttribute))

возвращает значение атрибута свойства cProperty объекта oObjectName.

Параметр:

nPropertyAttribute – принимает следующие значения:

• 0 – функция возвращает .T., если значение свойства изменено по сравнению с начальным (заданным по умолчанию) значением, или .F. – в противном случае.

• 1 – функция возвращает .T., если значение свойства доступно только для чтения, или .F. – в противном случае.

Функция

SYS(1270 [, nXCoord, nYCoord])70)

возвращает ссылку на объект, расположенный в заданной точке. Тип результата Object, если объект найден, или .F. – в противном случае.

Параметры:

nXCoord, nYCoord – соответственно x- и y-координаты точки в пикселях. Если параметры опущены, то результат возвращается для позиции, в которой расположен указатель мыши.

Начало координат располагается в верхнем левом углу рабочего стола Windows.

Пример:

public oForm

oForm = CreateObject("OneButtonForm")

oForm.Show

&& Создаем класс OneButtonForm – форму с одной кнопкой

define class OneButtonForm as Form

add object CommandClose as CommandButton

CommandClose.Caption = "Закрыть"

&&

procedure Click

obj = Sys(1270)

if VarType(obj) = 'O' then

? obj.Name && Напечатает: OneButtonForm

endif

endProc

&&

procedure CommandClose.Click

obj = Sys(1270)

if VarType(obj) = 'O' then

? obj.Name && Напечатает: CommandClose

endif

endProc

endDefine

Функция

SYS(1271, oObjectName)

возвращает строку с именем SCX-файла, хранящего форму, в которой содержится объект oObjectName. Функция вернет .F., если объект в SCX-файле не найден.

Пример:

&& Обработчик события Click кнопки очистить

&&

with ThisForm

…

? Sys(1271, .CommandClear) && Напечатает имя SCX-файла формы

endWith

Функция

SYS(1272, oObjectName)72)

возвращает иерархию объекта oObjectName. Не доступна на этапе проектирования. Тип результата – Character.