IMetabaseObjectDescriptor.IconIndex

Syntax

IconIndex: Integer;

Description

The IconIndex property returns an index of the repository object icon.

Example

Executing the example requires that the repository contains an object with the ObjTest identifier.

Add a link to the Metabase system assembly.

Sub UserProc;
Var
    MB: IMetabase;
    Desc: IMetabaseObjectDescriptor;
    s: Integer;
Begin
    MB := MetabaseClass.Active;
    Desc := Mb.ItemById("ObjTest");
    s := Desc.IconIndex;
End Sub UserProc;

After executing the example the "S" variable contains an index of the icon of the repository object with the ObjTest identifier.