ActiveSelectAndMovePointColor: 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;
После выполнения примера при нажатии на кнопку будет включен режим выделения и перемещения объектов рабочего пространства. При выделении объекты будут обозначены красными точками.
См. также: