Устанавливает текущий стиль ввода графических примитивов интерактивного редактора слоя карты.

Применяется к:

MapDoc

Синтаксис:

Visual Basic:

Function SetInputStyle(Style As ElemStyle) As Long

Style - объект со стилями графических объектов.

Описание:

К графическим примитивам, стили которых задает метод, относятся стили площадных, линейных, символьных и текстовых объектов. Эти стили получит соответствующий новый нетиповой объект при вводе через интерактивный редактор карты.

Метод установит стили редактора карты только в том случае, если редактор в данный момент работает, т.е свойство MapDoc.Layers.EditLayer - не пустой объект. В противном случае метод не окажет на карту никакого воздействия.

Пример:

Dim st As ElemStyle
 
'Если редактор карты включен
If TypeName(MapCtrl1.Map.Layers.EditLayer) <> "Nothing" Then
    'Получаем текущий стиль примитивов редактора 
    Set st = MapCtrl1.Map.GetInputStyle

    'Устанавливаем красный цвет заливки полигонов
    st.PatColor = 255

    MapCtrl1.Map.SetInputStyle st

End If