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;
После выполнения примера в переменной «S» будет содержаться индекс пиктограммы объекта репозитория с идентификатором «ObjTest».
См. также: