IMetabaseObjectDescriptor.IconIndex

Синтаксис

IconIndex: Integer;

IconIndex: integer;

Описание

Свойство IconIndex возвращает индекс пиктограммы объекта репозитория.

Пример

Для выполнения примера предполагается наличие в репозитории объекта с идентификатором «ObjTest».

Добавьте ссылку на системную сборку Metabase.

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;

После выполнения примера в переменной «S» будет содержаться индекс пиктограммы объекта репозитория с идентификатором «ObjTest».

См. также:

IMetabaseObjectDescriptor