Imports System.Collections.ObjectModel
Imports System.Drawing
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.ToolTip
Imports EgtWPFLib5

Public Class HelpWndVM

#Region "FIELDS & PROPERTIES"

   Friend Event m_CloseWindow(bDialogResult As Boolean)

#Region "Messages"

   Public ReadOnly Property Title_Msg As String
      Get
         Return "Help"
      End Get
   End Property

#End Region    ' Messages

   ' Definizione comandi
   Private m_cmdSoftwareStructure As ICommand
   Private m_cmdIcon As ICommand
   Private m_cmdProjectManagerBar As ICommand
   Private m_cmdClose As ICommand

#End Region    ' FIELDS & PROPERTIES

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

#Region "COMMANDS"

#Region "SoftwareStructure"

   Public ReadOnly Property SoftwareStructure_Command As ICommand
      Get
         If m_cmdSoftwareStructure Is Nothing Then
            m_cmdSoftwareStructure = New Command(AddressOf SoftwareStructure)
         End If
         Return m_cmdSoftwareStructure
      End Get
   End Property

   Public Sub SoftwareStructure()

   End Sub

#End Region ' SoftwareStructure

#Region "Icon"

   Public ReadOnly Property Icon_Command As ICommand
      Get
         If m_cmdIcon Is Nothing Then
            m_cmdIcon = New Command(AddressOf Icon)
         End If
         Return m_cmdIcon
      End Get
   End Property

   Public Sub Icon()
      Map.refHelpPanelVM.SelHelpPage(HelpPanelVM.HelpPages.ICON)
   End Sub

#End Region ' Icon

#Region "ProjectManagerBar"

   Public ReadOnly Property ProjectManagerBar_Command As ICommand
      Get
         If m_cmdProjectManagerBar Is Nothing Then
            m_cmdProjectManagerBar = New Command(AddressOf ProjectManagerBar)
         End If
         Return m_cmdProjectManagerBar
      End Get
   End Property

   Public Sub ProjectManagerBar()
      Map.refHelpPanelVM.SelHelpPage(HelpPanelVM.HelpPages.PROJECTMANAGER)
   End Sub

#End Region ' ProjectManagerBar

#Region "Close"

   Public ReadOnly Property Close_Command As ICommand
      Get
         If m_cmdClose Is Nothing Then
            m_cmdClose = New Command(AddressOf Close)
         End If
         Return m_cmdClose
      End Get
   End Property

   Public Sub Close()
      Map.refHelpPanelVM.SelHelpPage(HelpPanelVM.HelpPages.NULL)
      Map.SetRefHelpWndVM(Nothing)
      RaiseEvent m_CloseWindow(True)
   End Sub

#End Region ' Close

#End Region    ' COMMANDS 

End Class