Задает признак использования цветов объекта для монохромного растрового элемента.

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

FillStyleElement

Синтаксис:

Visual Basic:

Sub SetUserColorFlag(nFlag As Boolean)

nFlag - признак использования цветов объекта.

Описание:

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

Пример:

Visual Basic:

Sub FillStyleElement_SetUserColorFlag
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
'Собираем стиль заливки из одного элемента
Set fsd = CreateObject("ZuluLib.FillStyleDef")
Set fse = CreateObject("ZuluLib.FillStyleElement")
'Штриховка рисуется линией стиля 1
fse.SetLine 1
'Использовать цвета объекта
fse.SetUserColorFlag True
fsd.AddElement fse
'Добавляем стиль в библиотеку стилей слоя
MsgBox "Новый стиль заливки получил Id " & L.FillStyles.AddItem(fsd, -1)
End Sub

Python:

import zulu

def Macro_FillStyleElement_SetUserColorFlag():
    # Берем активный слой карты
    L = zulu.App.ActiveMapDoc.Layers.Active
    # Собираем стиль заливки из одного элемента
    fsd = zulu.FillStyleDef()
    fse = zulu.FillStyleElement()
    # Штриховка рисуется линией стиля 1
    fse.SetLine(1)
    # Использовать цвета объекта
    fse.SetUserColorFlag(True)
    fsd.AddElement(fse)
    # Добавляем стиль в библиотеку стилей слоя
    print("Новый стиль заливки получил Id", L.FillStyles.AddItem(fsd, -1))