Imports EgtUILib

Public Class DrawOptionPanelVM
   Inherits ViewModelBase

   ' GRAPHICAL ELEMENTS
   Private m_ManageLayerExpander As ManageLayerExpanderV
   Public ReadOnly Property ManageLayerExpander As ContentControl
      Get
         If IsNothing(m_ManageLayerExpander) Then
            m_ManageLayerExpander = New ManageLayerExpanderV
            m_ManageLayerExpander.DataContext = New ManageLayerExpanderVM
         End If
         Return m_ManageLayerExpander
      End Get
   End Property

   Private m_InfoExpander As InfoExpanderV
   Public ReadOnly Property InfoExpander As ContentControl
      Get
         If IsNothing(m_InfoExpander) Then
            m_InfoExpander = New InfoExpanderV
            m_InfoExpander.DataContext = New InfoExpanderVM
         End If
         Return m_InfoExpander
      End Get
   End Property

   Private m_InputExpander As InputExpanderV
   Public ReadOnly Property InputExpander As ContentControl
      Get
         If IsNothing(m_InputExpander) Then
            m_InputExpander = New InputExpanderV
            m_InputExpander.DataContext = New InputExpanderVM
         End If
         Return m_InputExpander
      End Get
   End Property

#Region "CONSTRUCTOR"

   Sub New()
      ' Creo riferimento a questa classe in Map
      Map.SetRefDrawOptionPanelVM(Me)
   End Sub

#End Region    ' CONSTRUCTOR

#Region "METHODS"

   Friend Function InitDrawOptionPanel() As Boolean
      'EgtZoom(ZM.ALL)
      Return True
   End Function

   Friend Function ExitDrawOptionPanel() As Boolean

      Return True
   End Function

#End Region    ' METHODS

End Class