Imports EgtWPFLib5

Public Class HelpPanelVM
   Inherits VMBase

   Public Enum HelpPages As Integer
      NULL = 0
      ICON = 1
      PROJECTMANAGER = 2
   End Enum

   Private m_CurrHelpPage As HelpPages
   Public ReadOnly Property CurrHelpPage As HelpPages
      Get
         Return m_CurrHelpPage
      End Get
   End Property

   Private m_Icon_Visibility As Boolean = False
   Public ReadOnly Property Icon_Visibility As Visibility
      Get
         Return If(m_Icon_Visibility, Visibility.Visible, Visibility.Collapsed)
      End Get
   End Property
   Public Property Icon_IsOpen As Boolean
      Get
         Return m_Icon_Visibility
      End Get
      Set(value As Boolean)
         m_Icon_Visibility = value
      End Set
   End Property
   Friend Sub SetIconVisibility(bValue As Boolean)
      m_Icon_Visibility = bValue
      NotifyPropertyChanged(NameOf(Icon_Visibility))
      NotifyPropertyChanged(NameOf(Icon_IsOpen))
   End Sub

   Private m_ProjectManager_Visibility As Boolean = False
   Public ReadOnly Property ProjectManager_Visibility As Visibility
      Get
         Return If(m_ProjectManager_Visibility, Visibility.Visible, Visibility.Collapsed)
      End Get
   End Property
   Public Property ProjectManager_IsOpen As Boolean
      Get
         Return m_ProjectManager_Visibility
      End Get
      Set(value As Boolean)
         m_ProjectManager_Visibility = value
      End Set
   End Property
   Friend Sub SetProjectManagerVisibility(bValue As Boolean)
      m_ProjectManager_Visibility = bValue
      NotifyPropertyChanged(NameOf(ProjectManager_Visibility))
      NotifyPropertyChanged(NameOf(ProjectManager_IsOpen))
   End Sub

   Sub New()
      Map.SetRefHelpPanelVM(Me)
   End Sub

   Friend Sub SelHelpPage(SelHelpPage As HelpPages)
      Select Case m_CurrHelpPage
         Case HelpPages.ICON
            SetIconVisibility(False)
         Case HelpPages.PROJECTMANAGER
            SetProjectManagerVisibility(False)
      End Select
      m_CurrHelpPage = SelHelpPage
      Select Case m_CurrHelpPage
         Case HelpPages.NULL
            SetProjectManagerVisibility(False)
         Case HelpPages.ICON
            SetIconVisibility(True)
         Case HelpPages.PROJECTMANAGER
            SetProjectManagerVisibility(True)
      End Select
   End Sub

End Class