IMetabaseDialogMetaclassFilter.ObjectMetaclass

Syntax

ObjectMetaclass: MetabaseObjectMetaclass;

Description

The ObjectMetaclass property determines the class of objects that are displayed in the dialog box when using this filter.

Example

Executing the example requires a form with the button named Button1 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.