Imports System.IO
Imports EgtUILib

Public Class MachOptionVM

   Private m_sSafeZ As String
   Public Property SafeZ As String
      Get
         Return m_sSafeZ
      End Get
      Set(value As String)
         Dim dSafeZ As Double = 0
         If StringToLen(value, dSafeZ) Then
            EgtMdbSetGeneralParam(MCH_GP.SAFEZ, dSafeZ)
            EgtMdbSave()
            m_sSafeZ = value
         End If
      End Set
   End Property

   Private m_sSafeAggrBottZ As String
   Public Property SafeAggrBottZ As String
      Get
         Return m_sSafeAggrBottZ
      End Get
      Set(value As String)
         Dim dSafeAggrBottZ As Double = 0
         If StringToLen(value, dSafeAggrBottZ) Then
            EgtMdbSetGeneralParam(MCH_GP.SAFEAGGRBOTTZ, dSafeAggrBottZ)
            EgtMdbSave()
            m_sSafeAggrBottZ = value
         End If
      End Set
   End Property

   Private m_sHolesTolerance As String
   Public Property HolesTolerance As String
      Get
         Return m_sHolesTolerance
      End Get
      Set(value As String)
         Dim dHolesTolerance As Double = 0
         If StringToLen(value, dHolesTolerance) Then
            EgtMdbSetGeneralParam(MCH_GP.HOLEDIAMTOLER, dHolesTolerance)
            EgtMdbSave()
            m_sHolesTolerance = value
         End If
      End Set
   End Property

   Private m_SplitArcsList As New List(Of MCH_SA)({MCH_SA.NEVER, MCH_SA.GEN_PLANE, MCH_SA.NO_XY_PLANE, MCH_SA.ALWAYS})
   Public ReadOnly Property SplitArcsList As List(Of MCH_SA)
      Get
         Return m_SplitArcsList
      End Get
   End Property

   Private m_SelectedSplitArcs As MCH_SA
   Public Property SelectedSplitArcs As MCH_SA
      Get
         Return m_SelectedSplitArcs
      End Get
      Set(value As MCH_SA)
         EgtMdbSetGeneralParam(MCH_GP.SPLITARCS, value)
         EgtMdbSave()
         m_SelectedSplitArcs = value
      End Set
   End Property

   Private m_ArchivedSetUpList As New List(Of String)
   Public Property ArchivedSetUpList As List(Of String)
      Get
         Return m_ArchivedSetUpList
      End Get
      Set(value As List(Of String))
         m_ArchivedSetUpList = value
      End Set
   End Property

   Public Property SelectedDefaultSetUp As String
      Get
         Return MachOptionModule.m_sSelectedDefaultSetUp
      End Get
      Set(value As String)
         MachOptionModule.m_sSelectedDefaultSetUp = value
         EgtUILib.WritePrivateProfileString(S_SETUP, K_DEFAULT, If(Not IsNothing(value), value, String.Empty), IniFile.m_sCurrMachIniFilePath)
      End Set
   End Property

#Region "Messages"

   Public ReadOnly Property SafeZMsg As String
      Get
         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 1)
      End Get
   End Property

   Public ReadOnly Property SafeAggrBottZMsg As String
      Get
         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 8)
      End Get
   End Property

   Public ReadOnly Property HolesToleranceMsg As String
      Get
         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 9)
      End Get
   End Property

   Public ReadOnly Property SplitArcsMsg As String
      Get
         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 2)
      End Get
   End Property

   Public ReadOnly Property DefaultSetUpMsg As String
      Get
         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 7)
      End Get
   End Property

#End Region

   ' Definizione comandi
   Private m_cmdCloseMachOptions As ICommand

   Sub New()
      ' Leggo distanza di sicurezza
      Dim dVal As Double = 0
      EgtMdbGetGeneralParam(MCH_GP.SAFEZ, dVal)
      m_sSafeZ = LenToString(dVal, 2)
      ' Leggo distanza di sicurezza per rinvii da sotto
      dVal = 0
      EgtMdbGetGeneralParam(MCH_GP.SAFEAGGRBOTTZ, dVal)
      m_sSafeAggrBottZ = LenToString(dVal, 2)
      ' Leggo tolleranza tra diametro punta e diametro foro
      dVal = 0
      EgtMdbGetGeneralParam(MCH_GP.HOLEDIAMTOLER, dVal)
      m_sHolesTolerance = LenToString(dVal, 2)
      ' Leggo tipo di spezzatura archi
      Dim nVal As Integer = 0
      EgtMdbGetGeneralParam(MCH_GP.SPLITARCS, nVal)
      m_SelectedSplitArcs = DirectCast(nVal, MCH_SA)
      ' Riempio lista attrezzaggi salvati
      m_ArchivedSetUpList.Add(String.Empty)
      If Directory.Exists(IniFile.m_sCurrMachSetUpDirPath) Then
         Dim SetUpFileNames() As String = Directory.GetFiles(IniFile.m_sCurrMachSetUpDirPath)
         For FileIndex = 0 To SetUpFileNames.Count - 1
            If Path.GetExtension(SetUpFileNames(FileIndex)).ToLower = ".stu" Then
               m_ArchivedSetUpList.Add(Path.GetFileNameWithoutExtension(SetUpFileNames(FileIndex)))
            End If
         Next
      End If
      ' Leggo attrezzaggio predefinito
      If EgtUILib.GetPrivateProfileString(S_SETUP, K_DEFAULT, "", MachOptionModule.m_sSelectedDefaultSetUp, IniFile.m_sCurrMachIniFilePath) <= 0 Then
         SelectedDefaultSetUp = Nothing
      Else
         If Not m_ArchivedSetUpList.Contains(MachOptionModule.m_sSelectedDefaultSetUp) Then
            SelectedDefaultSetUp = Nothing
         End If
      End If
   End Sub

#Region "COMMANDS"

#Region "CloseMachOptionsCommand"

   ''' <summary>
   ''' Returns a command that remove the current selected machining.
   ''' </summary>
   Public ReadOnly Property CloseMachOptionsCommand() As ICommand
      Get
         If m_cmdCloseMachOptions Is Nothing Then
            m_cmdCloseMachOptions = New RelayCommand(AddressOf CloseMachOptions)
         End If
         Return m_cmdCloseMachOptions
      End Get
   End Property

   ''' <summary>
   ''' Manage the MachiningDb closing.  This method is invoked by the CloseMachiningDbCommand.
   ''' </summary>
   Public Sub CloseMachOptions()
      ' Chiusura finestra
      For Each Window In Application.Current.Windows
         If TypeOf Window Is MachOptionV Then
            Dim MachOptionsWindow As MachOptionV = DirectCast(Window, MachOptionV)
            MachOptionsWindow.Close()
         End If
      Next
   End Sub

#End Region ' CloseMachOptionsCommand

#End Region    ' COMMANDS

End Class

Public Class SplitArcTypeConverter
   Implements IValueConverter

   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
      Select Case CInt(value)
         Case MCH_SA.NEVER
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 3)
         Case MCH_SA.GEN_PLANE
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 4)
         Case MCH_SA.NO_XY_PLANE
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 5)
         Case Else
            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 6)
      End Select
   End Function

   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
      Throw New NotImplementedException
   End Function

End Class