ObjectMetaclass: MetabaseObjectMetaclass;
The ObjectMetaclass property determines the class of objects that are displayed in the dialog box when using this filter.
Executing the example requires a form with the Button1 button and the MetabaseOpenDialog component named MetabaseOpenDialog1.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Filter: IMetabaseDialogMetaclassFilter;
Begin
Filter := New MetabaseDialogMetaclassFilter.Create;
Filter.Description := "Dictionaries";
Filter.ObjectMetaclass := MetabaseObjectMetaclass.DIMENSION_CLASS;
MetabaseOpenDialog1.Filters.AddFilter(Filter);
MetabaseOpenDialog1.Execute(Self);
End Sub Button1OnClick;
After executing the example, clicking the button adds a new filter to a list of the MetabaseOpenDialog1 component filters. When using this filter all the elements of all the types of repository dictionaries are displayed in the dialog box.
See also: