IWxShape.Extension

Синтаксис

Extension: IWxShapeExtension;

Описание

Свойство Extension определяет объект, являющийся расширением фигуры.

Комментарии

Для создания расширения фигуры используйте метод CreateExtension. После вызова указанного метода используя данное свойство можно указать объект, являющийся расширением для фигуры.

В текущей реализации расширение создается для размещения на рабочем пространстве фигур, соответствующих объектам репозитория.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента WorkspaceBox с наименованием «WorkspaceBox1» и какого-либо источника данных для «WorkspaceBox1». В репозитории имеется форма с идентификатором «Form_1».

    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        MB: IMetabase;
        MbObj: IMetabaseObject;
        Shape: IWxShape;
        WxObj: IWxMetabaseObject;
        Style: IWxStyle;
        ws: IWxWorkspace;
    Begin
        //Размещение и оформление объекта репозитория на рабочем пространстве
        ws := WorkspaceBox1.View.Workspace;
        ws.BeginUpdate;
        Mb := MetabaseClass.Active;
        MbObj := Mb.ItemById("Form_1") As IMetabaseObject;
        Shape := ws.CreateRectangle;
        Shape.CreateExtension;
        WxObj := Shape.Extension As IWxMetabaseObject;
        WxObj.MetabaseObject := MbObj;
        Shape.Id := "Form";
        //Создание стиля
        Style := ws.CreateStyle;
        Style.ShadowBrushForeColor := GxColor.FromName("Blue");
        Style.ShadowBrushForeTransparent := 50;
        Style.LinePenTransparent := 100;
        Style.TextAlignmentVertical := GxAlignment.Far;
        Shape.Style := Style;
        ws.EndUpdate;
    End Sub Button1OnClick;

После выполнения примера на рабочем пространстве будет размещен указанный объект репозитория.

См. также:

IWxShape