EgtCAM5/OptionPanel/DrawOptionPanelVM.vb

Public Class DrawOptionPanelVM
   Inherits ViewModelBase

   Private m_InputExpanderVM As InputExpanderVM

   ' GRAPHICAL ELEMENTS
   Private m_ManageLayerExpander As ManageLayerExpanderV
   Public ReadOnly Property ManageLayerExpander As ContentControl
      Get
         If IsNothing(m_ManageLayerExpander) Then
            m_ManageLayerExpander = New ManageLayerExpanderV With {
               .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 With {
               .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 With {
            '   .DataContext = New InputExpanderVM
            '}
            m_InputExpanderVM = New InputExpanderVM()
            m_InputExpander = New InputExpanderV With {
               .DataContext = m_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
      Return True
   End Function

   Friend Function ExitDrawOptionPanel() As Boolean
      Return True
   End Function

#End Region    ' METHODS

End Class