Размещение объекта репозитория на рабочем пространстве

В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.

Sub UserProc;

Var

ws : IWxWorkspace;

MB: IMetabase;

MbObj : IMetabaseObject;

Shape : IWxShape;

WxObj : IWxMetabaseObject;

Style : IWxStyle;

Begin

ws.BeginUpdate;

Mb := MetabaseClass.Active;

MbObj := Mb.ItemById("CALENDAR") As IMetabaseObject;

Shape := ws.CreateRectangle;

Shape.CreateExtension("KeWsp.WxMetabaseObject");

WxObj := Shape.Extension As IWxMetaBaseObject;

WxObj.MetabaseObject := MbObj;

Shape.Id := "Dim";

//создание стиля

Style := ws.CreateStyle;

Style.LinePenTransparent := 100;

Style.PictureAlignmentVertical := GxAlignment.Center;

Style.TextAlignmentVertical := GxAlignment.Far;

Style.TextFontStyleItalic := True;

Shape.Style := Style;

ws.EndUpdate;

End Sub UserProc;

После выполнения примера на рабочем пространстве будет размещен объект репозитория с идентификатором «CALENDAR», к которому будет применен заданный стиль:

При размещении объекта репозитория на рабочем пространстве следует помнить, что для него будет отображена соответствующая пиктограмма и наименование.

См. также:

Примеры