Imports System.Collections.ObjectModel
Imports EgtUILib

Public Class DoorPanelVM
   Inherits ViewModelBase

   Public ReadOnly Property MruDoorNames As ObservableCollection(Of String)
      Get
         Return IniFile.m_MruDoors.m_FileNames
      End Get
   End Property

   Private m_DoorsBtn_Visibility As Visibility
   Public ReadOnly Property DoorsBtn_Visibility As Visibility
      Get
         Return m_DoorsBtn_Visibility
      End Get
   End Property

   Private m_DMachBtn_Visibility As Visibility
   Public ReadOnly Property DMachBtn_Visibility As Visibility
      Get
         Return m_DMachBtn_Visibility
      End Get
   End Property

   Private m_MTableDb_IsEnabled As Boolean = True
   Public ReadOnly Property MTableDb_IsEnabled As Boolean
      Get
         Return m_MTableDb_IsEnabled
      End Get
   End Property

   Private m_DoorPanel_Visibility As Visibility
   Public ReadOnly Property DoorPanel_Visibility As Visibility
      Get
         Return m_DoorPanel_Visibility
      End Get
   End Property
   Friend Sub SetDoorPanelVisibility(bValue As Boolean)
      m_DoorPanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
      OnPropertyChanged(NameOf(DoorPanel_Visibility))
   End Sub

   ' Definizione comandi
   Private m_cmdDoors As ICommand
   Private m_cmdDMach As ICommand
   Private Shared m_cmdOpenMruDoor As ICommand
   Private m_cmdMTableDb As ICommand

#Region "CONSTRUCTOR"

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

#End Region    ' Constructor

#Region "COMMANDS"

#Region "DoorsCommand"

   ''' <summary>
   ''' Returns a command that do Import.
   ''' </summary>
   Public ReadOnly Property DoorsCommand As ICommand
      Get
         If m_cmdDoors Is Nothing Then
            m_cmdDoors = New RelayCommand(AddressOf Doors)
         End If
         Return m_cmdDoors
      End Get
   End Property

   ''' <summary>
   ''' Execute the Door. This method is invoked by the DoorsCommand.
   ''' </summary>
   Public Sub Doors(ByVal param As Object)
      Map.refProjectVM.DoorsScript(String.Empty)
   End Sub

#End Region ' DoorsCommand

#Region "OpenMruDoorCommand"

   ''' <summary>
   ''' Returns a command that do Open.
   ''' </summary>
   Public Shared ReadOnly Property OpenMruDoorCommand As ICommand
      Get
         If m_cmdOpenMruDoor Is Nothing Then
            m_cmdOpenMruDoor = New RelayCommand(AddressOf OpenMruDoor)
         End If
         Return m_cmdOpenMruDoor
      End Get
   End Property

   ''' <summary>
   ''' Execute the Open.  This method is invoked by the OpenCommand.
   ''' </summary>
   Public Shared Sub OpenMruDoor(ByVal param As Object)
      Map.refProjectVM.DoorsScript(DirectCast(param, String).Replace("__", "_"))
   End Sub

#End Region ' OpenMruFileCommand

#Region "DMachCommand"

   ''' <summary>
   ''' Returns a command that do Import.
   ''' </summary>
   Public ReadOnly Property DMachCommand As ICommand
      Get
         If m_cmdDMach Is Nothing Then
            m_cmdDMach = New RelayCommand(AddressOf DMach)
         End If
         Return m_cmdDMach
      End Get
   End Property

   ''' <summary>
   ''' Execute the Dmach.  This method is invoked by the DMachCommand.
   ''' </summary>
   Public Sub DMach(ByVal param As Object)
      Map.refProjectVM.DMachScript()
   End Sub

#End Region ' DMachCommand

#Region "MTableDbCommand"

   ''' <summary>
   ''' Returns a command that do Exec.
   ''' </summary>
   Public ReadOnly Property MTableDbCommand As ICommand
      Get
         If m_cmdMTableDb Is Nothing Then
            m_cmdMTableDb = New RelayCommand(AddressOf MTableDb)
         End If
         Return m_cmdMTableDb
      End Get
   End Property

   ''' <summary>
   ''' Execute the Exec.  This method is invoked by the ExecCommand.
   ''' </summary>
   Public Sub MTableDb(ByVal param As Object)
      ' Leggo dal file ini il direttorio delle MTable
      Dim sTablesDir As String = String.Empty
      If GetPrivateProfileString(S_DOORS, K_TABLESDIR, "", sTablesDir) = 0 Then
         ' Se non lo trovo mando messaggio di errore e chiudo la finestra
         MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 4), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
         Return
      End If
      IniFile.m_sTablesRoot = IniFile.m_sDoorsDirPath & "\" & sTablesDir
      ' Verifico che la cartella indicata esista
      If Not My.Computer.FileSystem.DirectoryExists(IniFile.m_sTablesRoot) Then
         ' Se non la trovo mando messaggio di errore e chiudo la finestra
         MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 5), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
         Return
      End If
      ' Verifico che ci sia il file ini per scrivere le tabelle
      If Not My.Computer.FileSystem.FileExists(IniFile.m_sTablesRoot & "\" & MTABLETEMPLATE_FILE) OrElse Not My.Computer.FileSystem.FileExists(IniFile.m_sTablesRoot & "\" & GEONAMELIST_FILE) _
         OrElse Not My.Computer.FileSystem.FileExists(IniFile.m_sTablesRoot & "\" & OPERATIONLIST_FILE) Then
         ' Se non la trovo mando messaggio di errore e chiudo la finestra
         MessageBox.Show(EgtMsg(MSG_DOORSERRORS + 6), EgtMsg(MSG_DOORSERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
         Return
      End If
      ' verifico 
      If Not EgtVerifyMachinesDir() Then Return

      Dim MTableDb As New MTableDbV(Application.Current.MainWindow, New MTableDbVM)
      MTableDb.ShowDialog()

      'Dim MTableDbWindow As New MTableDbView
      'MTableDbWindow.Height = 614
      'MTableDbWindow.Width = 1024
      'MTableDbWindow.DataContext = New MTableDbViewModel
      'MTableDbWindow.Owner = Application.Current.MainWindow
      'MTableDbWindow.ShowDialog()
   End Sub

#End Region    ' MTableDbCommand

#End Region

#Region "METHODS"

   Public Sub SetDoorPanelButtonsVisibility(IsVisible As Boolean)
      If IsVisible Then
         m_DoorsBtn_Visibility = Visibility.Visible
         m_DMachBtn_Visibility = Visibility.Visible
      Else
         m_DoorsBtn_Visibility = Visibility.Collapsed
         m_DMachBtn_Visibility = Visibility.Collapsed
      End If
      OnPropertyChanged(NameOf(DoorsBtn_Visibility))
      OnPropertyChanged(NameOf(DMachBtn_Visibility))
   End Sub

   Friend Sub MTableIsEnabled(MTableDb_IsEnabled As Boolean)
      m_MTableDb_IsEnabled = MTableDb_IsEnabled
      OnPropertyChanged(NameOf(MTableDb_IsEnabled))
   End Sub

#End Region    ' Methods

End Class