IUiWorkspaceBaseEventArgs.UiWs

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

Class TESTForm: Form
    Button1: Button;
    WorkspaceBox1: WorkspaceBox;
    UiWorkspaceObject1: UiWorkspaceObject;

    Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
    Var
        Mb: IMetabase;
        Workspace: IMetabaseObjectDescriptor;
    Begin
        // Получим рабочее пространство
        Mb := MetabaseClass.Active;
        Workspace := Mb.ItemById("WORKSPACE").Edit;
        // Зададим параметры открытия объекта на форме
        UiWorkspaceObject1.Active := True;
        UiWorkspaceObject1.Object := Workspace;
        UiWorkspaceObject1.OperationMode := UiMetabaseObjectOperationMode.Edit;
        WorkspaceBox1.Source := UiWorkspaceObject1 As IWorkspaceSource;
    End Sub TESTFormOnCreate;

    // Добавим фигуру на рабочее пространство при нажатии на кнопку
    Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
    Var
        Workspace: IWxWorkspace;
    Begin
        Workspace := UiWorkspaceObject1.Workspace As IWxWorkspace;
        Workspace.CreateEllipse;
    End Sub Button1OnClick;

    // Настроим событие, которое будет происходить после добавления фигуры
    Sub UiWorkspaceObject1OnAfterCreateShape(Sender: Object; Args: IUiWorkspaceShapeEventArgs);
    Var
        Arg: IUiWorkspaceBaseEventArgs;
        Object: IUiWorkspaceObject;
        Workspace: IWxWorkspace;
        Shapes: IWxShapes;
        Shape: IWxShape;
        Style: IWxStyle;
        Count: Integer;
    Begin
        Arg := Args As IUiWorkspaceBaseEventArgs;
        // Получим объект, содержащий компонент UiWorkspaceObject
        Object := Arg.UiWs;
        // Получим рабочее пространство
        Workspace := Object.Workspace As IWxWorkspace;
        Workspace.BeginUpdate;
        // Получим коллекцию фигур и их количество
        Shapes := Workspace.Shapes;
        Count := Shapes.Count;
        // Зададим красный цвет заливки добавленной фигуре
        Shape := Workspace.Shapes.Item(Count - 1);
        Style := Shape.Style;
        Style.BackgroundBrushForeColor := GxColor.FromName("Red");
        Workspace.EndUpdate;
    End Sub UiWorkspaceObject1OnAfterCreateShape;
End Class TESTForm;