' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports System
Imports ESRI.ArcGIS.Geometry
Imports ESRI.ArcGIS.Carto
Imports ESRI.ArcGIS.Analyst3D
Imports ESRI.ArcGIS.Display
Imports ESRI.ArcGIS.esriSystem
Imports ESRI.ArcGIS.GlobeCore

Namespace GlobeGraphicsToolbar
  Public Class PolygonElement
    Private _element As IElement
    Private _elementProperties As IGlobeGraphicsElementProperties

        Public Sub New(ByVal geometry As IGeometry, ByVal simpleFillStyle As ESRI.ArcGIS.Display.esriSimpleFillStyle)
            _element = GetElement(geometry, simpleFillStyle)
            _elementProperties = GetElementProperties()
        End Sub

        Private Function GetElement(ByVal geometry As IGeometry, ByVal simpleFillStyle As ESRI.ArcGIS.Display.esriSimpleFillStyle) As IElement
            Dim element As IElement

            Dim polygonElement As IPolygonElement = New PolygonElementClass()
            element = TryCast(polygonElement, IElement)

            Dim fillShapeElement As IFillShapeElement = TryCast(polygonElement, IFillShapeElement)

            Dim simpleFillSymbol As ISimpleFillSymbol = New SimpleFillSymbolClass()
            simpleFillSymbol.Style = simpleFillStyle
            simpleFillSymbol.Color = ColorSelection.GetColor()

            element.Geometry = geometry

            fillShapeElement.Symbol = simpleFillSymbol

            Return element
        End Function

    Private Function GetElementProperties() As IGlobeGraphicsElementProperties
      Dim elementProperties As IGlobeGraphicsElementProperties = New GlobeGraphicsElementPropertiesClass()
      elementProperties.Rasterize = True

      Return elementProperties
    End Function

    Public ReadOnly Property Element() As IElement
      Get
        Return _element
      End Get
    End Property

    Public ReadOnly Property ElementProperties() As IGlobeGraphicsElementProperties
      Get
        Return _elementProperties
      End Get
    End Property
  End Class
End Namespace