向表单结构添加属性时,可以向表单属性添加选项。例如像这样:
MODULE Main;
CLASS LockedField;
text = DATA STRING[10] (LockedField);
isLock = DATA BOOLEAN (LockedField);
// здесь я добавляю свойство 'text' сразу с
// опцией 'READONLYIF'
FORM lockedField
OBJECTS lf = LockedField
PROPERTIES (lf) text READONLYIF isLock(lf), isLock, NEW, DELETE
;
NAVIGATOR {
NEW lockedField FIRST;
}
是否可以以类似的方式向已添加的属性添加选项?例如:
MODULE Main;
CLASS LockedField;
text = DATA STRING[10] (LockedField);
// Здесь в структуру формы я добавляю свойство
// 'text' без опций
FORM lockedField
OBJECTS lf = LockedField
PROPERTIES (lf) text, NEW, DELETE
;
isLock = DATA BOOLEAN (LockedField);
// а здесь свойству 'text' нужно добавить
// опцию 'READONLYIF'
EXTEND FORM lockedField
PROPERTIES (lf) isLock
;
NAVIGATOR {
NEW lockedField FIRST;
}
在第 3 版中,此功能尚不可用。但是这个功能很可能会在下一个第 4版中添加。因此,它将看起来像 EXTEND 的其余部分(即,只需在前面添加 EXTEND):
目前,您可以使用 ABSTRACT 作为解决方法(尽管不完整):