SelectionStyle: IWxSelectionStyle;
Свойство SelectionStyle определяет параметры оформления выделенного объекта на рабочем пространстве.
В рассматриваемом примере предполагается существование объекта ws типа IWxWorkspace.
Sub UserProc;
Var
ws: IWxWorkspace;
view : IWxView;
SStyle : IWxSelectionStyle;
Begin
view := ws.CreateView;
SStyle := view.SelectionStyle;
SStyle.ActivePointColor := GxColor.FromName("Blue");
SStyle.SelectedRotationPointColor := GxColor.FromName("Pink");
SStyle.SelectionPointStyle := WxSelectionPointStyle.Corners;
SStyle.SelectionPointSize := 2;
SStyle.ActiveRotationPointColor := New GxColor.CreateRGB(0,128,255);
SStyle.ConnectionPointColor := New GxColor.CreateRGB(0,192,0);
End Sub UserProc;
После выполнения примера будут задан стиль выделения объектов на рабочем пространстве.
См. также: