Imports EgtUILib

Public Class BasePanelVM
   Inherits VMBase

   Private m_PanelViewState As ViewPanelStates = ViewPanelStates.NEVER
   Friend Sub SetPanelViewState(value As ViewPanelStates)
      m_PanelViewState = value
   End Sub

   Private m_Panel_Visibility As Visibility
   Public ReadOnly Property Panel_Visibility As Visibility
      Get
         Return m_Panel_Visibility
      End Get
   End Property
   Friend Sub SetPanelVisibility(ProjectMode As ProjectModeOpt)
      Dim bValue As Boolean = True
      Select Case ProjectMode
         Case ProjectModeOpt.DRAW, ProjectModeOpt.ONLYDRAW
            m_Panel_Visibility = If(m_PanelViewState = ViewPanelStates.ONLYDRAW Or m_PanelViewState = ViewPanelStates.ALWAYS, Visibility.Visible, Visibility.Collapsed)
         Case ProjectModeOpt.MACHINING
            m_Panel_Visibility = If(m_PanelViewState = ViewPanelStates.ONLYMACHINING Or m_PanelViewState = ViewPanelStates.ALWAYS, Visibility.Visible, Visibility.Collapsed)
      End Select
      NotifyPropertyChanged(NameOf(Panel_Visibility))
   End Sub

End Class