IWxSelectionStyle.ActiveSelectAndMovePointColor

Синтаксис

ActiveSelectAndMovePointColor: IGxColor;

ActiveSelectAndMovePointColor: Prognoz.Platform.Interop.Drawing.IGxColor;

Описание

Свойство ActiveSelectAndMovePointColor определяет цвет точек выделенных объектов при работе в режиме выделения и перемещения.

Комментарии

Данное свойство актуально, если в свойству IWxView.ActiveTool установлено значение WxTool.SelectAndMove.

Пример

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    WS: IWxWorkspace;
    View: IWxView;
    Rect: IWxEllipseBaloon;
Begin
    WS := UiWorkspace1.WxWorkspace;
    WS.BeginUpdate;
    Rect := WS.CreateEllipseBaloon;
    WS.EndUpdate;
    View := WorkspaceBox1.View;
    View.ActiveTool := WxTool.SelectAndMove;
    View.SelectionStyle.ActiveSelectAndMovePointColor := GxColor.FromName("Red");
End Sub Button1OnClick;
Imports Prognoz.Platform.Interop.Andy;
Imports Prognoz.Platform.Interop.Workspace;
Imports Prognoz.Platform.Interop.Drawing;
 
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    WS: IWxWorkspace;
    View: IWxView;
    Rect: IWxEllipseBaloon;
    Color: GxColorClassClass = New GxColorClassClass();
Begin
    WS := uiWorkspaceNet1.WxWorkspace;
    WS.BeginUpdate();
    Rect := WS.CreateEllipseBaloon();
    WS.EndUpdate();
    View := workspaceBoxNet1.View;
    View.ActiveTool := WxTool.wtlSelectAndMove;
    View.SelectionStyle.ActiveSelectAndMovePointColor := Color.FromName("Red");
End Sub;

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

См. также:

IWxSelectionStyle