IconIndex: Integer;
The IconIndex property returns an index of the repository object icon.
Sub Main;
Var
MB: IMetabase;
Desc: IMetabaseObjectDescriptor;
s: Integer;
Begin
MB := MetabaseClass.Active;
Desc := Mb.ItemById("Obj_1");
s := Desc.IconIndex;
End Sub Main;
After executing this example the "S" variable contains an index of the icon of the repository object with the "Obj_1" identifier.
See also: