Sub OnIsFolderElem(Sender: Object; Args: IMetabaseTreeNodeSpecialEventArgs);
Begin
//набор операторов;
End Sub OnIsFolderElem;
Sender - параметр, возвращающий компонент, сгенерировавший событие.
Args - параметр, позволяющий определить параметры события.
Событие OnIsFolderElem наступает при раздаче признака папки для элементов.
Если свойству Special аргумента события установить значение True, то для соответствующего элемента Node будет установлен признак папки и будет отстроено дерево дочерних объектов. Данное событие актуально использовать для настройки возможности просмотра содержимого различных объектов-контейнеров.
Примечание. Необходимо учитывать значение свойства ShowInternalObjects т.к. некоторые дочерние объекты, содержащиеся в объектах контейнерах, являются внутренними объектами и по умолчанию не отображаются.
Для выполнения примера предполагается наличие формы и расположенного на ней компонента MetabaseTreeList. Компонент настроен на отображение данных какой-либо папки репозитория. Для компонента в качестве обработчика события OnIsFolderElem установлена данная процедура.
Sub MetabaseTreeList1OnIsFolderElem(Sender: Object; Args: IMetabaseTreeNodeSpecialEventArgs);
Begin
If Args.Node.ObjectDescriptor.ClassId = MetabaseObjectClass.KE_CLASS_MODELSPACE Then
Args.Special := True;
End If;
End Sub MetabaseTreeList1OnIsFolderElem;
После запуска формы в дереве элементов компонента MetabaseTreeList контейнеры моделирования будут представлены в виде папок.
См. также: