ElemStyle object

Представляет объект, содержащий параметры отображения линейных, контурных, символьных и текстовых графических объектов. Как свойство входит в объект Element. Используется как исходный параметр во всех методах записи в слой новых объектов: AddBufferZone, AddContour, AddPolyContour, AddPolyLine, AddText и др.

Входит в состав ZuluGIS 2021 Library.

Регистрационная информация:

PROGID:	ZuluLib.ElemStyle
CLSID:	{12507096-0B01-11D2-B55D-444553540000}

Свойства:

Свойства
BorderColorBorderPrintWidth BorderStyle BorderWidth FillColor FillStyle Font FontBackColor FontBackStyle FontColor LineColor LinePrintWidth LineStyle LineWidth PatColor StyleScalable	StyleScale SymbolColor SymbolID SymbolInputOrientable SymbolInputRotatable SymbolScalable SymbolScaleLimited SymbolSize TextAlignment TextAngle TextAscent TextHeight TextMultilineAlignment TextUnicodeFlag Transparency Transparent

Пример:

'Запишем в активный слой треугольник с заданным цветом и стилем
Private Sub Command1_Click()
           
    Dim eStyle As ElemStyle
    Dim cell As Contour
           
    Dim Xcoords(4) As Double
    Dim Ycoords(4) As Double
           
    'Создаем контур
    Set cell = New Contour
           
    Xcoords(1) = 9800000
    Ycoords(1) = 10800000
    Xcoords(2) = 9810000
    Ycoords(2) = 10810000
    Xcoords(3) = 9850000
    Ycoords(3) = 10820000
    Xcoords(4) = Xcoords(1)
    Ycoords(4) = Ycoords(1)
           
    'Записываем в контур треугольник
    cell.Fill 3, Xcoords(1), Ycoords(1)
           
    'Создаем объект ElemStyle
    Set eStyle = New  ElemStyle
    
    ' Цвет узора - красный
    eStyle.PatColor = RGB(255, 0,  0)  
           
    ' Граница - тонкая сплошная линия
    eStyle.BorderStyle = 0                     
    eStyle.BorderWidth = 1                
           
    'Цвет границы - синий
    eStyle.BorderColor = RGB(0, 0, 255)  
           
    'Записываем контур в активный слой
    MapCtrl1.Map.Layers.Active.AddContour cell, eStyle, -1, -1
           
End Sub