Задает растровое изображение, которым рисуется элемент узора заливки.

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

FillStyleElement

Синтаксис:

Visual Basic:

Function SetBitmap(Stream As IUnknown, TransparentColor As Long) As Boolean

Stream - поток с растровым изображением.

TransparentColor - цвет, считающийся прозрачным.

Описание:

Элемент узора становится растровым: в заливке повторяется изображение из потока. Шаг повторения задается методами SetStepHor и SetStepVer.

Метод возвращает True, если изображение принято.

Для монохромного изображения из черного и белого цветов признаком SetUserColorFlag можно включить отрисовку цветами самого объекта.

Пример:

Visual Basic:

Sub FillStyleElement_SetBitmap
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
Set fsd = CreateObject("ZuluLib.FillStyleDef")
Set fse = CreateObject("ZuluLib.FillStyleElement")
'Читаем картинку узора в двоичный поток. Путь укажите свой
Set st = CreateObject("ADODB.Stream")
st.Type = 1
st.Open
st.LoadFromFile "C:\Data\pattern.bmp"
st.Position = 0
'Белый цвет считаем прозрачным
fse.SetBitmap st, 16777215
'Шаг повторения картинки
fse.SetStepHor 16.0
fse.SetStepVer 16.0
fsd.AddElement fse
MsgBox "Новый стиль заливки получил Id " & L.FillStyles.AddItem(fsd, -1)
End Sub