Создает изображение образца заливки с заданными параметрами и записывает его в поток.

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

FillStyleDef

Синтаксис:

Visual Basic:

Function DrawSampleImage(Stream As IUnknown, Width As Long, Height As Long, SpaceX As Long, SpaceY As Long, Format As Long, ImageBkColor As Long, ImageTransparent As Boolean, Scale As Double, Color As Long, BackColor As Long, Transparent As Boolean, BorderStyle As LineStyleDef, BorderWidth As Double, BorderColor As Long) As Boolean

Stream - поток для записи результата с изображением.

Width - ширина рисунка.

Height - высота рисунка.

SpaceX - поля по вертикали.

SpaceY - поля по горизонтали.

Format - формат растрового изображения.

ImageBkColor - цвет фона изображения.

ImageTransparent - признак прозрачности изображения.

Scale - масштабный коэффициент изображения.

Color - цвет узора.

BackColor - цвет фона.

Transparent - признак прозрачности.

BorderStyle - стиль границы.

BorderWidth - толщина границы.

BorderColor - цвет границы.

Описание:

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

Параметр Format может принимать одно из возможных значений:

0	Bitmap Picture (BMP)
1	Joint Photographic Experts Group (JPEG)
2	Graphics Interchange Format (GIF)
3	Tagged Image File Format (TIFF)
4	Portable Network Graphics (PNG)

Пример:

Visual Basic:

Sub FillStyleDef_DrawSampleImage
'Берем активный слой карты
Set L = Zulu.ActiveMapDoc.Layers.Active
'Стиль заливки, образец которого нужен
Set fsd = L.FillStyles.Item(1)
'Стиль границы образца
Set border = L.LineStyles.Item(0)
'Двоичный поток, куда будет записано изображение
Set st = CreateObject("ADODB.Stream")
st.Type = 1
st.Open
'Образец 64x64 с полями 2, формат 4 - PNG, фон белый
If fsd.DrawSampleImage(st, 64, 64, 2, 2, 4, 16777215, False, 1.0, 0, 16777215, False, border, 1.0, 0) Then
  'Путь укажите свой
  st.SaveToFile "C:\Data\sample.png", 2
  MsgBox "Записано байт: " & st.Size
Else
  MsgBox "Не удалось создать изображение"
End If
End Sub