ObjectMetaclass: MetabaseObjectMetaclass;
Свойство ObjectMetaclass определяет класс объектов, которые будут отображаться в диалоге при использовании данного фильтра.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1» и компонента MetabaseOpenDialog с наименованием «MetabaseOpenDialog1».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Filter: IMetabaseDialogMetaclassFilter;
Begin
Filter := New MetabaseDialogMetaclassFilter.Create;
Filter.Description := "Справочники";
Filter.ObjectMetaclass := MetabaseObjectMetaclass.DIMENSION_CLASS;
MetabaseOpenDialog1.Filters.AddFilter(Filter);
MetabaseOpenDialog1.Execute(Self);
End Sub Button1OnClick;
После выполнения примера при нажатии на кнопку в список фильтров компонента «MetabaseOpenDialog1» будет добавлен новый фильтр, при использовании которого в диалоге будут отображаться все объекты всех видов справочников репозитория.
См. также: