Создание объекта собственного класса

Копировать пример

Sub UserProc;
Var
    Mb: IMetabase;
    Type: MetabaseSpecialObject;
    Object: IMetabaseObject;
    CustomClassExtender: IMetabaseCustomExtender;
    CustomClasses: IMetabaseCustomClasses;
    CustomClass: IMetabaseCustomClass;
    CustomObject: IMetabaseCustomObject;
    Operations: IMetabaseCustomClassOperations;
    Operation: IMetabaseCustomClassOperation;
    CreateInfo: IMetabaseObjectCreateInfo;
    Description: IMetabaseObjectDescriptor;
    ImgList, ImgList32: IGxImageList;
    Icon: IGxIcon;
Begin
    // Получим текущий репозиторий
    Mb := MetabaseClass.Active;
    // Получим контейнер пользовательских классов
    Type := MetabaseSpecialObject.CustomExtender;
    CustomClassExtender := Mb.SpecialObject(Type).Edit As IMetabaseCustomExtender;
    // Зададим ресурс для контейнера
    CustomClassExtender.Resource := Mb.ItemById("RESOURCE").Bind As IResourceObject;
    CustomClassExtender.NameResource := "ID_CUSTOM_EXTENDER";
    // Загрузим крупную и маленькую пиктограммы в коллекцию
    ImgList := New GxImageList.Create;
    ImgList.Height := 16;
    Icon := New GxIcon.CreateFromFile("C:\Icon_small.ico");
    ImgList.AddIcon(Icon);
    CustomClassExtender.SmallImages := ImgList;
    ImgList32 := New GxImageList.Create;
    ImgList32.Height := 32;
    Icon := New GxIcon.CreateFromFile("C:\Icon_large.ico");
    ImgList32.AddIcon(Icon);
    CustomClassExtender.LargeImages := ImgList32;
    // Создадим пользовательский класс в контейнере
    CustomClasses := CustomClassExtender.Classes;
    CustomClass := CustomClasses.Add;
    // Зададим параметры пользовательского класса
    CustomClass.Name := "Пользовательский класс";
    CustomClass.Description := "Класс-контейнер";
    CustomClass.IsContainer := True;
    CustomClass.LargeImageIndex := 0;
    CustomClass.SmallImageIndex := 0;
    CustomClass.ImplementationURL := "https://site/CoolScript.js";
    // Создадим операцию для пользовательского класса
    Operations := CustomClass.Operations;
    Operation := Operations.Add(0);
    Operation.Name := "Новый метод";
    // Сохраним изменения контейнера пользовательских классов
    (CustomClassExtender As IMetabaseObject).Save;
    // Создадим объект пользовательского класса в корне репозитории
    CreateInfo := Mb.CreateCreateInfo;
    CreateInfo.ClassId := CustomClass.ClassId;
    CreateInfo.Name := "Объект собственного класса";
    CreateInfo.Permanent := True;
    CreateInfo.Parent := Mb.Root;
    Description := Mb.CreateObject(CreateInfo);
    Object := Description.Edit;
    CustomObject := Object As IMetabaseCustomObject;
    CustomObject.Extender := CustomClassExtender;
    CustomObject.CustomClass := CustomClass;
    // Сохраним изменения объекта пользовательского класса
    Object.Save;
End Sub UserProc;