IMetabaseObjectDescriptor.IconIndex

Syntax

Fore Fore.NET

IconIndex: Integer;

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.

Fore Fore.NET

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Desc: IMetabaseObjectDescriptor;
    s: Integer;
Begin
    MB := Params.Metabase;
    Desc := Mb.ItemById["ObjTest"];
    s := Desc.IconIndex;
End Sub;

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