IWxView.ActiveShape

Синтаксис

ActiveShape: IWxShape;

Описание

Свойство ActiveShape определяет активную фигуру.

Пример

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

Добавьте ссылки на системные сборки: Andy, Drawing, Workspace.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Wsp: IWxWorkspace;
    View: IWxView;
    Arrow: IWxArrow;
    Ellipse: IWxEllipse;
Begin
    // Получаем рабочее пространство для редактирования
    Wsp := UiWorkspace1.WxWorkspace;
    View := Wsp.CreateView;
    View := Wsp.Views.Item(0);
    Arrow := Wsp.CreateArrow;
    Arrow.FirstPoint := New GxPointF.Create(10, 10);
    Arrow.LastPoint := New GxPointF.Create(3, 19);
    Ellipse := Wsp.CreateEllipse;
    View.ActiveShape := Arrow;
End Sub Button1OnClick;

После выполнения примера на рабочем пространстве будет выделена фигурная стрелка.

См. также:

IWxView