Imports System.Collections.ObjectModel
Imports System.IO
Imports System.Drawing.Text
Imports System.ComponentModel
Imports EgtUILib
Imports EgtWPFLib5

Public Class OptionsVM
   Implements INotifyPropertyChanged

   ' serve per definire l'indirizzo per la guida (senza aggiungere l'estenzione!)
   Dim m_Chapter As String

   #Region "HARDWARE PART"

   Private m_HardwarePartV As HardwarePartV
   Private m_HardwarePartVM As HardwarePartVM

   Private m_UnitMeasureList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(6545)})
   Public ReadOnly Property UnitMeasureList As List(Of String)
      Get
         Return m_UnitMeasureList
      End Get
   End Property

   Private m_FontList As New ObservableCollection(Of String)
   Public ReadOnly Property FontList As ObservableCollection(Of String)
      Get
         Dim sNfeDir As String = String.Empty
         GetMainPrivateProfileString(S_GEOMDB, K_NFEFONTDIR, "", sNfeDir)
         Dim EgtFontList As String() = Directory.GetFiles(sNfeDir)
         For i = 0 To EgtFontList.Count - 1
            m_FontList.Add(Path.GetFileName(EgtFontList(i)))
         Next
         Dim fonts As New InstalledFontCollection
         For i = 0 To fonts.Families.Count - 1
            m_FontList.Add(fonts.Families(i).Name)
         Next
         Return m_FontList
      End Get
   End Property

   Public ReadOnly Property HardwarePart As ContentControl
      Get
         Return m_HardwarePartV 
      End Get
   End Property

   ' se sono nel DOORCreator disabilito il tab dell'HardwarePart
   Public Readonly Property IsEnableHarwarePart As Boolean
      Get
         If Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nHardwarePage then
            Return true
         End If
         Return false
      End Get
   End Property

   ' suggerisco il tabcontrol in funzione della schermata in lettura
   Private m_SelectedTab As Integer = 0
   Public Property SelectedTab As Integer
      Get
         If Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nAssemblyPage then
            Return 2
         ElseIf Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nHardwarePage then
            Return 1
         Else
            Return 0
         End If
      End Get
      Set (value as integer)
         m_SelectedTab = value
      End Set
   End Property

   Private m_SelectedTabGeneral As Integer = 0
   Public Property SelectedTabGeneral As Integer
      Get
         Return m_SelectedTabGeneral
      End Get
      Set(value As Integer)
         m_SelectedTabGeneral = value
      End Set
   End Property


#End Region    ' Hardware_part

   Public ReadOnly Property LanguageList As ObservableCollection(Of Language)
      Get
         Return OptionModule.m_LanguageList
      End Get
   End Property

   Public Property SelectedLanguage As Language
      Get
         Return OptionModule.m_SelectedLanguage
      End Get
      Set(value As Language)
         If value IsNot OptionModule.m_SelectedLanguage Then
            OptionModule.m_SelectedLanguage = value
            WriteMainPrivateProfileString(S_GENERAL, K_MESSAGES, m_SelectedLanguage.Name)
         End If
      End Set
   End Property

   Public ReadOnly Property MeasureUnitList As List(Of String)
      Get
         Return OptionModule.m_MeasureUnitList
      End Get
   End Property

   Public Property SelectedMeasureUnit As String
      Get
         Return OptionModule.m_SelectedMeasureUnit
      End Get
      Set(value As String)
         If value IsNot OptionModule.m_SelectedMeasureUnit Then
            OptionModule.m_bIsMmUnit = (value = OptionModule.m_MeasureUnitList(0))
            EgtSetUiUnits(OptionModule.m_bIsMmUnit)
            WriteMainPrivateProfileString(S_SCENE, K_MMUNITS, If(OptionModule.m_bIsMmUnit, "1", "0"))
            OptionModule.m_SelectedMeasureUnit = value
         End If
      End Set
   End Property

   Public ReadOnly Property OptionLauncher As List(Of String)
      Get
         Return OptionModule.m_OptionLauncherList
      End Get
   End Property

   Public Property SelectedOptionLauncher As Integer
      Get
         Return OptionModule.m_SelectedOptionLauncher
      End Get
      Set(value As Integer)
         If value <> OptionModule.m_SelectedOptionLauncher Then
            OptionModule.m_SelectedOptionLauncher = value
            Select Case OptionModule.m_SelectedOptionLauncher
               Case LauncherOpt.Open_window
                  WriteMainPrivateProfileString(S_LAUNCHERWINDOW, K_LAUNCHER, "0")
               Case LauncherOpt.Open_last_project
                  WriteMainPrivateProfileString(S_LAUNCHERWINDOW, K_LAUNCHER, "1")
               Case Else
                  WriteMainPrivateProfileString(S_LAUNCHERWINDOW, K_LAUNCHER, "2")
            End Select
         End If
      End Set
   End Property

   Public ReadOnly Property DispositionIsEnable As Boolean
      Get
         Return OptionModule.DispositionBoolean
      End Get
   End Property

   ' Carico i parametri associati al Bevel Up
   Public Property BevelUpIsChecked As Boolean
      Get
         If OptionModule.m_bBevelUp = Visibility.Visible Then
            Return True
         Else
            Return False
         End If
      End Get
      Set(value As Boolean)
         ' se sto accendendo o spegmemdo un bevel
         If QuestionSetBevel(CheckBevel(OptionModule.m_bBevelUp, value), ConstGen.BEVEL_UP) Then
            If value Then
               OptionModule.m_bBevelUp = Visibility.Visible
            Else
               OptionModule.m_bBevelUp = Visibility.Collapsed
            End If

            If value Then
               DefaultWritePrivateProfileString(S_EDGE, K_BEVELU_INI, "1")
            Else
               DefaultWritePrivateProfileString(S_EDGE, K_BEVELU_INI, "0")
            End If
            RefreshEdgeTypeList()
         Else
            Return
         End If
      End Set
   End Property

   ' Carico i parametri associati al Bevel Down
   Public Property BevelDownIsChecked As Boolean
      Get
         If OptionModule.m_bBevelDown = Visibility.Visible Then
            Return True
         Else
            Return False
         End If
      End Get
      Set(value As Boolean)
         If QuestionSetBevel(CheckBevel(OptionModule.m_bBevelDown, value), ConstGen.BEVEL_DOWN) Then
            If value Then
               OptionModule.m_bBevelDown = Visibility.Visible
            Else
               OptionModule.m_bBevelDown = Visibility.Collapsed
            End If
            If value Then
               DefaultWritePrivateProfileString(S_EDGE, K_BEVELD_INI, "1")
            Else
               DefaultWritePrivateProfileString(S_EDGE, K_BEVELD_INI, "0")
            End If
            RefreshEdgeTypeList()
         Else
            Return
         End If
      End Set
   End Property

#Region "Dimensionig"

   Public Property ExtLineLen As String
      Get
         Return LenToString(OptionModule.m_ExtLineLen, 5)
      End Get
      Set(value As String)
         Dim dVal As Double = 0
         If StringToLen(value, dVal) AndAlso dVal > 0 Then
            OptionModule.m_ExtLineLen = dVal
            EgtSetCurrDimensionStyle(m_ExtLineLen, m_ArrowLen, m_TextDist, m_LenIsMM, m_DecDigit, m_Font, m_TextHeight)
            WriteMainPrivateProfileString(S_DIMENSIONSTYLE, K_EXTLINELEN, DoubleToString(OptionModule.m_ExtLineLen, 5))
         End If
      End Set
   End Property

   Public Property ArrowLen As String
      Get
         Return LenToString(OptionModule.m_ArrowLen, 5)
      End Get
      Set(value As String)
         Dim dVal As Double = 0
         If StringToLen(value, dVal) AndAlso dVal > 0 Then
            OptionModule.m_ArrowLen = dVal
            EgtSetCurrDimensionStyle(m_ExtLineLen, m_ArrowLen, m_TextDist, m_LenIsMM, m_DecDigit, m_Font, m_TextHeight)
            WriteMainPrivateProfileString(S_DIMENSIONSTYLE, K_ARROWLEN, DoubleToString(OptionModule.m_ArrowLen, 5))
         End If
      End Set
   End Property

   Public Property TextDist As String
      Get
         Return LenToString(OptionModule.m_TextDist, 5)
      End Get
      Set(value As String)
         Dim dVal As Double = 0
         If StringToLen(value, dVal) AndAlso dVal > 0 Then
            OptionModule.m_TextDist = dVal
            EgtSetCurrDimensionStyle(m_ExtLineLen, m_ArrowLen, m_TextDist, m_LenIsMM, m_DecDigit, m_Font, m_TextHeight)
            WriteMainPrivateProfileString(S_DIMENSIONSTYLE, K_TEXTDIST, DoubleToString(OptionModule.m_TextDist, 5))
         End If
      End Set
   End Property

   Public Property SelectedUnitMeasure As String
      Get
         If OptionModule.m_LenIsMM = 0 Then
            Return "inch"
         ElseIf OptionModule.m_LenIsMM = 1 Then
            Return "mm"
         Else
            Return EgtMsg(6545)
         End If
      End Get
      Set(value As String)
         Dim nVal As Integer = 2
         If value = "inch" Then
            nVal = 0
         ElseIf value = "mm" Then
            nVal = 1
         End If
         OptionModule.m_LenIsMM = nVal
         EgtSetCurrDimensionStyle(m_ExtLineLen, m_ArrowLen, m_TextDist, m_LenIsMM, m_DecDigit, m_Font, m_TextHeight)
         WriteMainPrivateProfileString(S_DIMENSIONSTYLE, K_LENISMM, OptionModule.m_LenIsMM.ToString())
      End Set
   End Property

   Public Property DecDigit As String
      Get
         Return OptionModule.m_DecDigit.ToString()
      End Get
      Set(value As String)
         Dim nVal As Integer = 0
         If Integer.TryParse(value, nVal) AndAlso nVal > 0 Then
            OptionModule.m_DecDigit = nVal
            EgtSetCurrDimensionStyle(m_ExtLineLen, m_ArrowLen, m_TextDist, m_LenIsMM, m_DecDigit, m_Font, m_TextHeight)
            WriteMainPrivateProfileString(S_DIMENSIONSTYLE, K_DECDIGIT, OptionModule.m_DecDigit.ToString())
         End If
      End Set
   End Property

   Public Property SelectedFont As String
      Get
         Return m_FontList(m_FontList.IndexOf(OptionModule.m_Font))
      End Get
      Set(value As String)
         OptionModule.m_Font = value
         EgtSetCurrDimensionStyle(m_ExtLineLen, m_ArrowLen, m_TextDist, m_LenIsMM, m_DecDigit, m_Font, m_TextHeight)
         WriteMainPrivateProfileString(S_DIMENSIONSTYLE, K_DIMFONT, OptionModule.m_Font)
      End Set
   End Property

   Public Property TextHeight As String
      Get
         Return LenToString(OptionModule.m_TextHeight, 5)
      End Get
      Set(value As String)
         Dim dVal As Double = 0
         If StringToLen(value, dVal) AndAlso dVal > 0 Then
            OptionModule.m_TextHeight = dVal
            EgtSetCurrDimensionStyle(m_ExtLineLen, m_ArrowLen, m_TextDist, m_LenIsMM, m_DecDigit, m_Font, m_TextHeight)
            WriteMainPrivateProfileString(S_DIMENSIONSTYLE, K_TEXTHEIGHT, DoubleToString(OptionModule.m_TextHeight, 5))
         End If
      End Set
   End Property

#End Region    ' Dimensioning

   ' Carico i valori di Default della porta
   Public Property WidthValue As String
      Get
         Return OptionModule.m_Width
      End Get
      Set(value As String)
         OptionModule.m_Width = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_SIZE, K_WIDTH_INI, value)
      End Set
   End Property

   Public Property HeightValue As String
      Get
         Return OptionModule.m_Height
      End Get
      Set(value As String)
         OptionModule.m_Height = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_SIZE, K_HEIGHT_INI, value)
      End Set
   End Property

   Public Property ThicknessValue As String
      Get
         Return OptionModule.m_Thickness
      End Get
      Set(value As String)
         OptionModule.m_Thickness = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_SIZE, K_THICKNESS_INI, value)
      End Set
   End Property

   Public Property WeightValue As String
      Get
         Return OptionModule.m_Weight
      End Get
      Set(value As String)
         OptionModule.m_Weight = value
         DefaultWritePrivateProfileString(S_SIZE, K_WEIGHT_INI, OptionModule.m_Weight)
      End Set
   End Property

   Public Shared Property IsCheckedWeight As Boolean
      Get
         If Part.IsCheckedWeight = Visibility.Visible Then
            Return True
         Else
            Return False
         End If
      End Get
      Set(value As Boolean)
         If value Then
            Part.IsCheckedWeight = Visibility.Visible
            DefaultWritePrivateProfileString(S_SIZE, K_WEIGHTISCHECKED_INI, "1")
         Else
            If Part.IsCheckedWeight = Visibility.Visible Then
               If MessageBox.Show(EgtMsg(50153), EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.No) = MessageBoxResult.Yes Then
                  Part.IsCheckedWeight = Visibility.Collapsed
                  DefaultWritePrivateProfileString(S_SIZE, K_WEIGHTISCHECKED_INI, "0")
               Else
                  Return
               End If
            End If
         End If
         If Not IsNothing(Map.refAssemblyManagerVM.CurrProject) AndAlso Not IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) Then
            Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
         End If
      End Set
   End Property

   Public Shared Sub SetIsCheckedWeight(IsChecked As Boolean)
      If IsChecked Then
         Part.IsCheckedWeight = Visibility.Visible
         DefaultWritePrivateProfileString(S_SIZE, K_WEIGHTISCHECKED_INI, "1")
      Else
         Part.IsCheckedWeight = Visibility.Collapsed
         DefaultWritePrivateProfileString(S_SIZE, K_WEIGHTISCHECKED_INI, "0")
      End If
   End Sub

   Public ReadOnly Property SwingTypeList As List(Of String)
      Get
         Return OptionModule.m_SwingTypeList
      End Get
   End Property

   Public Property SwingValue As String
      Get
         Dim SwingAlias As SwingItemTypeList = Nothing
         SetCurrSwing(SwingAlias, OptionModule.m_Swing)
         OptionModule.m_Swing = SwingAlias.AliasName
         Return OptionModule.m_Swing
      End Get
      Set(value As String)
         OptionModule.m_Swing = value
         Dim SwingAlias As SwingItemTypeList = Nothing
         SetCurrSwing(SwingAlias, value)
         OptionModule.m_Swing = SwingAlias.AliasName
         DefaultWritePrivateProfileString(S_SIZE, K_SWING_INI, SwingAlias.Name)
      End Set
   End Property

   Public Shared ReadOnly Property LockEdgeTypeList As ObservableCollection(Of EdgeType)
      Get
         Return Part.m_LockEdgeTypeList
      End Get
   End Property

   Public Shared ReadOnly Property HingeEdgeTypeList As ObservableCollection(Of EdgeType)
      Get
         Return Part.m_HingeEdgeTypeList
      End Get
   End Property

   Public Shared ReadOnly Property TopEdgeTypeList As ObservableCollection(Of EdgeType)
      Get
         Return Part.m_TopEdgeTypeList
      End Get
   End Property

   Public Shared ReadOnly Property BottomEdgeTypeList As ObservableCollection(Of EdgeType)
      Get
         Return Part.m_BottomEdgeTypeList
      End Get
   End Property

   Public Shared ReadOnly Property FrameEdgeTypeList As ObservableCollection(Of EdgeType)
      Get
         Return Assembly.m_FrameEdgeTypeList
      End Get
   End Property


   Public Property LockEdgeType As EdgeType
      Get
         If m_LockEdgeType.IsActive = Visibility.Collapsed Then
            m_LockEdgeType = LockEdgeTypeList(0)
         End If
         Return m_LockEdgeType
      End Get
      Set(value As EdgeType)
         OptionModule.m_LockEdgeType = value
         DefaultWritePrivateProfileString(S_EDGE, K_LOCKEDGE_INI, OptionModule.m_LockEdgeType.Name)
      End Set
   End Property

   Public Property HingeEdgeType As EdgeType
      Get
         If m_HingeEdgeType.IsActive = Visibility.Collapsed Then
            m_HingeEdgeType = HingeEdgeTypeList(0)
         End If
         Return m_HingeEdgeType
      End Get
      Set(value As EdgeType)
         m_HingeEdgeType = value
         DefaultWritePrivateProfileString(S_EDGE, K_HINGEDGE_INI, OptionModule.m_HingeEdgeType.Name)
      End Set
   End Property

   Public Property TopType As EdgeType
      Get
         If m_TopType.IsActive = Visibility.Collapsed Then
            m_TopType = TopEdgeTypeList(0)
         Else
            Try
               m_TopType = TopEdgeTypeList.First(Function(x) x.Name = m_TopType.Name)
            Catch ex As Exception
               m_TopType = TopEdgeTypeList(0)
            End Try
         End If
         Return m_TopType
      End Get
      Set(value As EdgeType)
         OptionModule.m_TopType = value
         DefaultWritePrivateProfileString(S_EDGE, K_TOPEDGE_INI, OptionModule.m_TopType.Name)
      End Set
   End Property

   Public Property BottomType As EdgeType
      Get
         If m_BottomType.IsActive = Visibility.Collapsed Then
            m_BottomType = BottomEdgeTypeList(0)
         Else
            Try
               m_BottomType = BottomEdgeTypeList.First(Function(x) x.Name = m_BottomType.Name)
            Catch ex As Exception
               m_BottomType = BottomEdgeTypeList(0)
            End Try
         End If
         Return m_BottomType
      End Get
      Set(value As EdgeType)
         OptionModule.m_BottomType = value
         DefaultWritePrivateProfileString(S_EDGE, K_BOTTOMEDGE_INI, OptionModule.m_BottomType.Name)
      End Set
   End Property

   ' is Checked
   Public Property LockEdgeIsChecked As Boolean
      Get
         Return OptionModule.m_LockEdgeMachining
      End Get
      Set(value As Boolean)
         OptionModule.m_LockEdgeMachining = value
         If value Then
            DefaultWritePrivateProfileString(S_MACHINING, K_LOCKEDGEISCHECKED_INI, "1")
         Else
            DefaultWritePrivateProfileString(S_MACHINING, K_LOCKEDGEISCHECKED_INI, "0")
         End If
      End Set
   End Property

   Public Property HingeEdgeIsChecked As Boolean
      Get
         Return OptionModule.m_HingeEdgeMachining
      End Get
      Set(value As Boolean)
         OptionModule.m_HingeEdgeMachining = value
         If value Then
            DefaultWritePrivateProfileString(S_MACHINING, K_HINGEDGEEISCHECKED_INI, "1")
         Else
            DefaultWritePrivateProfileString(S_MACHINING, K_HINGEDGEEISCHECKED_INI, "0")
         End If
      End Set
   End Property

   Public Property TopIsChecked As Boolean
      Get
         Return OptionModule.m_TopMachining
      End Get
      Set(value As Boolean)
         OptionModule.m_TopMachining = value
         If value Then
            DefaultWritePrivateProfileString(S_MACHINING, K_TOPISCHECKED_INI, "1")
         Else
            DefaultWritePrivateProfileString(S_MACHINING, K_TOPISCHECKED_INI, "0")
         End If
      End Set
   End Property

   Public Property BottomIsChecked As Boolean
      Get
         Return OptionModule.m_BottomMachining
      End Get
      Set(value As Boolean)
         OptionModule.m_BottomMachining = value
         If value Then
            DefaultWritePrivateProfileString(S_MACHINING, K_BOTTOMISCHECKED_INI, "1")
         Else
            DefaultWritePrivateProfileString(S_MACHINING, K_BOTTOMISCHECKED_INI, "0")
         End If
      End Set
   End Property

   ' OverMaterial
   Public Property LockEdgeOverMaterialValue As String
      Get
         Return OptionModule.m_LockEdgeOverMaterial
      End Get
      Set(value As String)
         OptionModule.m_LockEdgeOverMaterial = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERMATERIAL, K_LOCKEDGEOVERMATERIAL_INI, value)
      End Set
   End Property

   Public Property HingeEdgeOverMaterialValue As String
      Get
         Return OptionModule.m_HingeEdgeOverMaterial
      End Get
      Set(value As String)
         OptionModule.m_HingeEdgeOverMaterial = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERMATERIAL, K_HINGEDGEOVERMATERIAL_INI, value)
      End Set
   End Property

   Public Property TopOverMaterialValue As String
      Get
         Return OptionModule.m_TopOverMaterial
      End Get
      Set(value As String)
         OptionModule.m_TopOverMaterial = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERMATERIAL, K_TOPOVERMATERIAL_INI, value)
      End Set
   End Property

   Public Property BottomOverMaterialValue As String
      Get
         Return OptionModule.m_BottomOverMaterial
      End Get
      Set(value As String)
         OptionModule.m_BottomOverMaterial = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERMATERIAL, K_BOTTOMOVERMATERIAL_INI, value)
      End Set
   End Property

   Public Property MyProjectDir As String
      Get
         Return IniFile.m_MyProjectDir
      End Get
      Set(value As String)
         If value IsNot IniFile.m_MyProjectDir Then
            IniFile.m_MyProjectDir = value
            WriteMainPrivateProfileString(S_DOORS, K_MYPROJECTDIR, value)
         End If
         NotifyPropertyChanged("MyProjectDir")
      End Set
   End Property

   Public Property MachinDir As String
      Get
         Return IniFile.m_MachinProject
      End Get
      Set(value As String)
         If value IsNot IniFile.m_MachinProject Then
            IniFile.m_MachinProject = value
            WriteMainPrivateProfileString(S_DOORS, K_MACHINDIR, value)
         End If
         NotifyPropertyChanged("MachinDir")
      End Set
   End Property

   '----------------------------------------------------------------------------------------------------------------------------------------------------

   Public ReadOnly Property EnableAssembly As Boolean
      Get
         Return (OptionModule.m_ConfigurationSoftware = ConfigType.Assembly)
      End Get
   End Property

   Public Property LightUp As String
      Get
         Return OptionModule.m_LightUp
      End Get
      Set(value As String)
         OptionModule.m_LightUp = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_LIGHT, K_LIGHTUP, value)
      End Set
   End Property

   Public Property LightBottom As String
      Get
         Return OptionModule.m_LightBottom
      End Get
      Set(value As String)
         OptionModule.m_LightBottom = value
         ConvertToCompoConfig(value)
         ' modifico le dimensioni dei Jambs
         DefaultWritePrivateProfileString(S_LIGHT, K_LIGHTBOTTOM, value)
      End Set
   End Property

   Public Property LightHinge As String
      Get
         Return OptionModule.m_LightHinge
      End Get
      Set(value As String)
         OptionModule.m_LightHinge = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_LIGHT, K_LIGHTHINGE, value)
      End Set
   End Property

   Public Property LightLock As String
      Get
         Return OptionModule.m_LightLock
      End Get
      Set(value As String)
         OptionModule.m_LightLock = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_LIGHT, K_LIGHTLOCK, value)
      End Set
   End Property

   ' spessore del jamb della testa
   Public Property ThicknessHead As String
      Get
         Return OptionModule.m_ThicknessHead
      End Get
      Set(value As String)
         OptionModule.m_ThicknessHead = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERLAP, K_THICKNESSHEAD, value)
      End Set
   End Property

   Public Property OverlapHinge As String
      Get
         Return OptionModule.m_OverlapHinge
      End Get
      Set(value As String)
         OptionModule.m_OverlapHinge = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERLAP, K_OVERLAPHINGE, value)
      End Set
   End Property

   Public Property OverlapLock As String
      Get
         Return OptionModule.m_OverlapLock
      End Get
      Set(value As String)
         OptionModule.m_OverlapLock = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERLAP, K_OVERLAPLOCK, value)
      End Set
   End Property

   Public Property OverlapTop As String
      Get
         Return OptionModule.m_OverlapTop
      End Get
      Set(value As String)
         OptionModule.m_OverlapTop = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERLAP, K_OVERLAPTOP, value)
      End Set
   End Property

   Public Property DeltaThickness As String
      Get
         Return OptionModule.m_DeltaThickness
      End Get
      Set(value As String)
         OptionModule.m_DeltaThickness = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERLAP, K_DELTAT, value)
      End Set
   End Property

   Public Property Exterior As Boolean
      Get
         Return OptionModule.m_Exterior
      End Get
      Set(value As Boolean)
         OptionModule.m_Exterior = value
         If OptionModule.m_Exterior Then
            DefaultWritePrivateProfileString(S_OVERLAP, K_EXTERIOR, "1")
         Else
            DefaultWritePrivateProfileString(S_OVERLAP, K_EXTERIOR, "0")
         End If
      End Set
   End Property

   Public Property TotalDimension As Boolean
      Get
         If OptionModule.m_TotalDimension Then
            DefaultWritePrivateProfileString(S_TOTALDIMENSION, K_STATIC, "1")
         Else
            DefaultWritePrivateProfileString(S_TOTALDIMENSION, K_STATIC, "0")
         End If
         Return OptionModule.m_TotalDimension
      End Get
      Set(value As Boolean)
         OptionModule.m_TotalDimension = value
         NotifyPropertyChanged("TotalDimension")
         ' aggiorno la grafica
         If Not IsNothing(Map.refAssemblyPageVM) AndAlso Not IsNothing(Map.refAssemblyPageVM.CurrAssembly) Then
            Map.refAssemblyPageVM.CurrAssembly.Dimension = OptionModule.m_TotalDimension
         End If
      End Set
   End Property

   Public Property TotalHeight As String
      Get
         'If Not IsNothing(Map.refAssemblyPageVM) AndAlso Not IsNothing(Map.refAssemblyPageVM.CurrAssembly) Then
         '   If Not IsNothing(Map.refAssemblyManagerVM.ReserchPartDoor("FL_")) Then
         '      OptionModule.m_TotalHeight = Map.refAssemblyManagerVM.ReserchPartDoor("FL_").Door.Height
         '   Else
         '      TotalDimension = False
         '   End If
         'End If
         DefaultWritePrivateProfileString(S_TOTALDIMENSION, K_TOTALHEIGHT, OptionModule.m_TotalHeight)
         Return OptionModule.m_TotalHeight
      End Get
      Set(value As String)
         OptionModule.m_TotalHeight = value
         NotifyPropertyChanged("TotalHeight")
         'If Not IsNothing(Map.refAssemblyPageVM) AndAlso Not IsNothing(Map.refAssemblyPageVM.CurrAssembly) Then
         '   Map.refAssemblyPageVM.CurrAssembly.SetDimension("Height")
         '   Map.refSceneManagerVM.RefreshBtn()
         'End If
      End Set
   End Property

   Public Property TotalWidth As String
      Get
         'If Not IsNothing(Map.refAssemblyPageVM) AndAlso Not IsNothing(Map.refAssemblyPageVM.CurrAssembly) Then
         '   Dim DO_1 As PartDoor = Map.refAssemblyManagerVM.ReserchPartDoor("DO_1")
         '   Dim DO_2 As PartDoor = Map.refAssemblyManagerVM.ReserchPartDoor("DO_2")
         '   Dim LL As String = Map.refAssemblyPageVM.CurrAssembly.LightLock
         '   Dim LH As String = Map.refAssemblyPageVM.CurrAssembly.LightHinge
         '   Dim JW As String = Map.refAssemblyPageVM.CurrAssembly.Width
         '   If Not IsNothing(DO_1) Then
         '      Dim nDO_1Width As Double = 0
         '      Dim nDO_2Width As Double = 0
         '      StringToDouble(DO_1.Door.Width, nDO_1Width)
         '      Dim nJW As Double = 0
         '      StringToDouble(JW, nJW)
         '      Dim nLL As Double = 0
         '      StringToDouble(LL, nLL)
         '      Dim nLH As Double = 0
         '      StringToDouble(LH, nLH)
         '      If Not IsNothing(DO_2) Then
         '         StringToDouble(DO_2.Door.Width, nDO_2Width)
         '         OptionModule.m_TotalWidth = DoubleToString(nDO_1Width + nDO_2Width + nLL + nLH * 2 + 2 * nJW, 4)
         '      Else
         '         OptionModule.m_TotalWidth = DoubleToString(nDO_1Width + nLL + nLH + 2 * nJW, 4)
         '      End If
         '   Else
         '      TotalDimension = False
         '   End If
         'End If
         DefaultWritePrivateProfileString(S_TOTALDIMENSION, K_TOTALWIDTH, OptionModule.m_TotalWidth)
         Return OptionModule.m_TotalWidth
      End Get
      Set(value As String)
         OptionModule.m_TotalWidth = value
         NotifyPropertyChanged("TotalWidth")
      End Set
   End Property


   Public Property ThicknessJamb As String
      Get
         Return OptionModule.m_ThicknessJamb
      End Get
      Set(value As String)
         OptionModule.m_ThicknessJamb = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_SIZEJAMB, K_THICKNESS, value)
      End Set
   End Property

   Public Property WidthJamb As String
      Get
         Return OptionModule.m_WidthJamb
      End Get
      Set(value As String)
         OptionModule.m_WidthJamb = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_SIZEJAMB, K_WIDTH, value)
      End Set
   End Property

   Public ReadOnly Property DoorListNumber As List(Of String)
      Get
         Return OptionModule.m_DoorsListNumber
      End Get
   End Property

   Public Property DoorNumber As String
      Get
         Return OptionModule.m_DoorsNumber
      End Get
      Set(value As String)
         OptionModule.m_DoorsNumber = value
      End Set
   End Property

   Public Property LockEdgeTypeAssembly As EdgeType
      Get
         If m_LockEdgeTypeAssembly.IsActive = Visibility.Collapsed Then
            OptionModule.m_LockEdgeTypeAssembly = FrameEdgeTypeList(0)
         End If
         Return OptionModule.m_LockEdgeTypeAssembly
      End Get
      Set(value As EdgeType)
         OptionModule.m_LockEdgeTypeAssembly = value
         DefaultWritePrivateProfileString(S_EDGEASSEMBLY, K_LOCKEDGE, OptionModule.m_LockEdgeTypeAssembly.Name)
      End Set
   End Property

   Public Property HingeEdgeTypeAssembly As EdgeType
      Get
         If m_HingeEdgeTypeAssembly.IsActive = Visibility.Collapsed Then
            OptionModule.m_HingeEdgeTypeAssembly = FrameEdgeTypeList(0)
         End If
         Return OptionModule.m_HingeEdgeTypeAssembly
      End Get
      Set(value As EdgeType)
         OptionModule.m_HingeEdgeTypeAssembly = value
         DefaultWritePrivateProfileString(S_EDGEASSEMBLY, K_HINGEDGE_INI, OptionModule.m_HingeEdgeTypeAssembly.Name)
      End Set
   End Property

   Public Property TopTypeAssembly As EdgeType
      Get
         If m_TopTypeAssembly.IsActive = Visibility.Collapsed Then
            OptionModule.m_TopTypeAssembly = FrameEdgeTypeList(0)
         End If
         Return OptionModule.m_TopTypeAssembly
      End Get
      Set(value As EdgeType)
         OptionModule.m_TopTypeAssembly = value
         DefaultWritePrivateProfileString(S_EDGEASSEMBLY, K_TOPEDGE_INI, OptionModule.m_TopTypeAssembly.Name)
      End Set
   End Property

   Public Property BottomTypeAssembly As EdgeType
      Get
         If m_BottomTypeAssembly.IsActive = Visibility.Collapsed Then
            OptionModule.m_BottomTypeAssembly = FrameEdgeTypeList(0)
         End If
         Return OptionModule.m_BottomTypeAssembly
      End Get
      Set(value As EdgeType)
         OptionModule.m_BottomTypeAssembly = value
         DefaultWritePrivateProfileString(S_EDGEASSEMBLY, K_BOTTOMEDGE_INI, OptionModule.m_BottomTypeAssembly.Name)
      End Set
   End Property

#Region "Machining Assembly"
   Public Property LockEdgeMachiningAssembly As Boolean
      Get
         Return OptionModule.m_LockEdgeMachiningAssembly
      End Get
      Set(value As Boolean)
         OptionModule.m_LockEdgeMachiningAssembly = value
         If value Then
            DefaultWritePrivateProfileString(S_MACHININGASSEMBLY, K_LOCKEDGEISCHECKED_INI, "1")
         Else
            DefaultWritePrivateProfileString(S_MACHININGASSEMBLY, K_LOCKEDGEISCHECKED_INI, "0")
         End If
      End Set
   End Property

   Public Property LockEdgeOverMaterialAssembly As String
      Get
         Return OptionModule.m_LockEdgeOverMaterialAssembly
      End Get
      Set(value As String)
         OptionModule.m_LockEdgeOverMaterialAssembly = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERMATERIALASSEMBLY, K_LOCKEDGEOVERMATERIAL_INI, value)
      End Set
   End Property

   Public Property HingeEdgeMachiningAssembly As Boolean
      Get
         Return OptionModule.m_HingeEdgeMachiningAssembly
      End Get
      Set(value As Boolean)
         OptionModule.m_HingeEdgeMachiningAssembly = value
         If value Then
            DefaultWritePrivateProfileString(S_MACHININGASSEMBLY, K_HINGEDGEEISCHECKED_INI, "1")
         Else
            DefaultWritePrivateProfileString(S_MACHININGASSEMBLY, K_HINGEDGEEISCHECKED_INI, "0")
         End If
      End Set
   End Property

   Public Property HingeEdgeOverMaterialAssembly As String
      Get
         Return OptionModule.m_HingeEdgeOverMaterialAssembly
      End Get
      Set(value As String)
         OptionModule.m_HingeEdgeOverMaterialAssembly = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERMATERIALASSEMBLY, K_HINGEDGEOVERMATERIAL_INI, value)
      End Set
   End Property

   Public Property TopMachiningAssembly As Boolean
      Get
         Return OptionModule.m_TopMachiningAssembly
      End Get
      Set(value As Boolean)
         OptionModule.m_TopMachiningAssembly = value
         If value Then
            DefaultWritePrivateProfileString(S_MACHININGASSEMBLY, K_TOPISCHECKED_INI, "1")
         Else
            DefaultWritePrivateProfileString(S_MACHININGASSEMBLY, K_TOPISCHECKED_INI, "0")
         End If
      End Set
   End Property

   Public Property TopOverMaterialAssembly As String
      Get
         Return OptionModule.m_TopOverMaterialAssembly
      End Get
      Set(value As String)
         OptionModule.m_TopOverMaterialAssembly = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERMATERIALASSEMBLY, K_TOPOVERMATERIAL_INI, value)
      End Set
   End Property

   Public Property BottomMachiningAssembly As Boolean
      Get
         Return OptionModule.m_BottomMachiningAssembly
      End Get
      Set(value As Boolean)
         OptionModule.m_BottomMachiningAssembly = value
         If value Then
            DefaultWritePrivateProfileString(S_MACHININGASSEMBLY, K_BOTTOMISCHECKED_INI, "1")
         Else
            DefaultWritePrivateProfileString(S_MACHININGASSEMBLY, K_BOTTOMISCHECKED_INI, "0")
         End If
      End Set
   End Property

   Public Property BottomOverMaterialAssembly As String
      Get
         Return OptionModule.m_BottomOverMaterialAssembly
      End Get
      Set(value As String)
         OptionModule.m_BottomOverMaterialAssembly = value
         ConvertToCompoConfig(value)
         DefaultWritePrivateProfileString(S_OVERMATERIALASSEMBLY, K_BOTTOMOVERMATERIAL_INI, value)
      End Set
   End Property

#End Region    ' Machining Assembly

   '-------------------------------------------------------------------------------------------------------------------------------------------------------

   ' Definizione comandi
   Private m_cmdCloseOptions As ICommand
   Private m_cmdBrowse As ICommand
   Private m_F1GuideCmd As ICommand

#Region "Messages"

   Public ReadOnly Property Title As String
      Get
         Dim sTitle As String = EgtMsg(MSG_MAINWINDOW + 209)
         If Map.refMainWindowVM.SelectedPage =MainWindowVM.ListPageEnum.nDDFPage then
            sTitle = "DOOR - " & sTitle
         else
            sTitle = "HARDWARE - " & sTitle
         End If
         Return sTitle
      End Get
   End Property

   Public ReadOnly Property StartUpMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 210)
      End Get
   End Property

   Public ReadOnly Property CurrentLanguageMsg As String
      Get
         Return EgtMsg(MSG_OPTIONPAGE + 1)
      End Get
   End Property

   Public ReadOnly Property LanguageAdvertMsg As String
      Get
         Return EgtMsg(MSG_OPTIONPAGE + 2)
      End Get
   End Property

   Public ReadOnly Property MeasureUnit As String
      Get
         Return EgtMsg(50211)
      End Get
   End Property

   Public ReadOnly Property DirectoryMsg As String
      Get
         Return EgtMsg(50212)
      End Get
   End Property

   Public ReadOnly Property MachinDirectoryMsg As String
      Get
         ' Directory Machine
         Return EgtMsg(50306)
      End Get
   End Property

   Public ReadOnly Property General As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 201)
      End Get
   End Property

   Public ReadOnly Property OptionStart As String
      Get
         Return EgtMsg(50213)
      End Get
   End Property

   Public ReadOnly Property CurrentUnitMeasure As String
      Get
         Return EgtMsg(50200)
      End Get
   End Property

   Public ReadOnly Property CurrentDirectiry As String
      Get
         Return EgtMsg(50214)
      End Get
   End Property

   Public ReadOnly Property CurrentMachinDirectiry As String
      Get
         'Machine
         Return EgtMsg(50307)
      End Get
   End Property


   Public ReadOnly Property DoorMsg As String
      Get
         'Door
         Return EgtMsg(50308)
      End Get
   End Property

   Public ReadOnly Property HardwarePartMsg As String
      Get
         'HardwarePart
         Return EgtMsg(50712)
      End Get
   End Property

   Public ReadOnly Property WidthMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 1)
      End Get
   End Property

   Public ReadOnly Property EdgeMsg As String
      Get
         Return EgtMsg(50215)
      End Get
   End Property

   Public ReadOnly Property OverMaterialMsg As String
      Get
         Return EgtMsg(50216)
      End Get
   End Property

   Public ReadOnly Property HeightMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 2)
      End Get
   End Property

   Public ReadOnly Property ThicknessMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 3)
      End Get
   End Property

   Public ReadOnly Property SwingMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 4)
      End Get
   End Property

   Public ReadOnly Property LockEdgeMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 5)
      End Get
   End Property

   Public ReadOnly Property HingeEdgeMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 6)
      End Get
   End Property

   Public ReadOnly Property TopMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 7)
      End Get
   End Property

   Public ReadOnly Property WeightMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 47)
      End Get
   End Property


   Public ReadOnly Property BottomMsg As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 8)
      End Get
   End Property

   ' Machinig
   Public ReadOnly Property LockEdgeOverMaterial As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 202)
      End Get
   End Property

   Public ReadOnly Property HingeEdgeOverMaterial As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 203)
      End Get
   End Property

   Public ReadOnly Property TopOverMaterial As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 204)
      End Get
   End Property

   Public ReadOnly Property BottomOverMaterial As String
      Get
         Return EgtMsg(MSG_MAINWINDOW + 205)
      End Get
   End Property

   Public ReadOnly Property MsgBrowse As String
      Get
         Return EgtMsg(50217)
      End Get
   End Property

   Public ReadOnly Property MsgClose As String
      Get
         Return EgtMsg(50218)
      End Get
   End Property

   Public ReadOnly Property MachMsg As String
      Get
      ' Mach.
         Return EgtMsg(50711)
      End Get
   End Property

   ' BevelMsg
   Public ReadOnly Property BevelMsg As String
      Get
         Return EgtMsg(50219)
      End Get
   End Property

   Public ReadOnly Property BevelUpMsg As String
      Get
         Return EgtMsg(50220)
      End Get
   End Property

   Public ReadOnly Property BevelDownMsg As String
      Get
         Return EgtMsg(50221)
      End Get
   End Property

   Public ReadOnly Property MachinePositionMsg As String
      Get
         Return EgtMsg(50222)
      End Get
   End Property

   Public ReadOnly Property GeneralOption As String
      Get
         ' General
         Return EgtMsg(50716)
      End Get
   End Property

   Public ReadOnly Property GeneralCam As String
      Get
         ' Report
         Return EgtMsg(50715)
      End Get
   End Property

   Public ReadOnly Property ExtLineLenMsg As String
      Get
         ' Estensione linea
         Return EgtMsg(6537)
      End Get
   End Property
   Public ReadOnly Property ArrowLenMsg As String
      Get
         ' Dimensione freccia
         Return EgtMsg(6538)
      End Get
   End Property
   Public ReadOnly Property TextDistMsg As String
      Get
         ' Distanza messaggio
         Return EgtMsg(6539)
      End Get
   End Property
   Public ReadOnly Property LenIsMMMsg As String
      Get
         ' Unità di misura
         Return EgtMsg(6540)
      End Get
   End Property
   Public ReadOnly Property DecDigitMsg As String
      Get
         ' Numero dicmali
         Return EgtMsg(6541)
      End Get
   End Property
   Public ReadOnly Property FontMsg As String
      Get
         ' Caretteri
         Return EgtMsg(6542)
      End Get
   End Property
   Public ReadOnly Property TextHeightMsg As String
      Get
         ' Dimensione testo
         Return EgtMsg(6543)
      End Get
   End Property

   Public ReadOnly Property DimensionMsg As String
      Get
         ' Quotatura
         Return EgtMsg(6544)
      End Get
   End Property

   Public ReadOnly Property DispConfiguration As String
      Get
         Dim Msg As String = String.Empty
         If OptionModule.m_sDisposition = ConstGen.BEVEL_UP Then
            'Wide Side Down (BU)
            Msg = EgtMsg(50309)
            m_BevelConfiguration = Visibility.Visible
            m_BySwingConfiguration = Visibility.Collapsed
         ElseIf OptionModule.m_sDisposition = ConstGen.BEVEL_DOWN Then
            'Wide Side Up (BD)
            Msg = EgtMsg(50310)
            m_BevelConfiguration = Visibility.Visible
            m_BySwingConfiguration = Visibility.Collapsed
         Else
            m_BevelConfiguration = Visibility.Collapsed
            m_BySwingConfiguration = Visibility.Visible
         End If
         Return Msg
      End Get
   End Property

   ' Template
   Public ReadOnly Property TemplateMsg As String
      Get
         ' Template
         Return EgtMsg(50227)
      End Get
   End Property

   Public ReadOnly Property EnableTemplateMsg As String
      Get
         ' Enable template 
         Return EgtMsg(50228)
      End Get
   End Property

   Public ReadOnly Property OrderMsg As String
      Get
         ' Order
         Return EgtMsg(50068)
      End Get
   End Property

   Public ReadOnly Property EnableOrderMsg As String
      Get
         ' Enable Order
         Return EgtMsg(50229)
      End Get
   End Property

      Public ReadOnly Property ProjectMsg As String
      Get
         ' Prject
         Return EgtMsg(50547)
      End Get
   End Property

   Public ReadOnly Property EnableSingleDoorMsg As String
      Get
         ' Enable single door.
         Return EgtMsg(50546)
      End Get
   End Property

   Private m_BevelConfiguration As Visibility
   Public ReadOnly Property BevelConfiguration As Visibility
      Get
         Return m_BevelConfiguration
      End Get
   End Property

   Private m_EnableTemplate As Boolean = Not OptionModule.m_DisableTemplate
   Public Property EnableTemplate As Boolean
      Get
         Return m_EnableTemplate
      End Get
      Set(value As Boolean)
         m_EnableTemplate = value
         If Not value Then
            DefaultWritePrivateProfileString(S_EDGE, "DisableTemplate", "1")
         Else
            DefaultWritePrivateProfileString(S_EDGE, "DisableTemplate", "0")
         End If
         OptionModule.m_DisableTemplate = Not value
         NotifyPropertyChanged("EnableTemplate")
      End Set
   End Property

   Private m_EnableOrder As Boolean = Not OptionModule.m_DisableWindowOrder
   Public Property EnableOrder As Boolean
      Get
         Return m_EnableOrder
      End Get
      Set(value As Boolean)
         m_EnableOrder = value
         If Not value Then
            DefaultWritePrivateProfileString(S_EDGE, "DisableOrder", "1")
         Else
            DefaultWritePrivateProfileString(S_EDGE, "DisableOrder", "0")
         End If
         OptionModule.m_DisableWindowOrder = Not value
         NotifyPropertyChanged("EnableOrder")
      End Set
   End Property

   Private m_EnableSingleDoor As Boolean = OptionModule.m_SingleDoor
   Public Property EnableSingleDoor As Boolean
      Get
         Return m_EnableSingleDoor
      End Get
      Set(value As Boolean)
         m_EnableSingleDoor = value
         If Not value Then
            WriteMainPrivateProfileString(S_GENERAL, K_SINGLEDOOR, "0")
         Else
            WriteMainPrivateProfileString(S_GENERAL, K_SINGLEDOOR, "1")
         End If
         NotifyPropertyChanged("EnableSingleDoor")
      End Set
   End Property

   Public ReadOnly Property ImpTempMsg As String
      Get
         ' Open template door
         Return EgtMsg(50230)
      End Get
   End Property

   Public ReadOnly Property OpenOrderMsg As String
      Get
         ' Open window order
         Return EgtMsg(50231)
      End Get
   End Property

   Public ReadOnly Property SingleDoorMsg As String
      Get
         ' The new configuration will take effect after restart.
         Return EgtMsg(50548)
      End Get
   End Property

   Private m_BySwingConfiguration As Visibility
   Public ReadOnly Property BySwingConfiguration As Visibility
      Get
         Return m_BySwingConfiguration
      End Get
   End Property
   '---------------------------------------------------------------------------------------------------------------------------------------------------------------
   'tab2
   Public ReadOnly Property AssemblyMsg As String
      Get
         Return EgtMsg(50713)
      End Get
   End Property

   Public ReadOnly Property LightUpMsg As String
      Get
      ' Light Up
         Return EgtMsg(50056)
      End Get
   End Property

   Public ReadOnly Property LightLockMsg As String
      Get
      ' Light Lock
         Return EgtMsg(50057)
      End Get
   End Property

   Public ReadOnly Property LightBottomMsg As String
      Get
         Return EgtMsg(50058)
      End Get
   End Property

   Public ReadOnly Property LightHingeMsg As String
      Get
         Return EgtMsg(50059)
      End Get
   End Property

   Public ReadOnly Property ThicknessHeadMsg As String
      Get
         Return EgtMsg(50060)
      End Get
   End Property

   Public ReadOnly Property OverlapHingeMsg As String
      Get
         Return EgtMsg(50061)
      End Get
   End Property

   Public ReadOnly Property OverlapLockMsg As String
      Get
         Return EgtMsg(50062)
      End Get
   End Property

   Public ReadOnly Property OverlapTopMsg As String
      Get
         Return EgtMsg(50063)
      End Get
   End Property

   Public ReadOnly Property DeltaTMsg As String
      Get
         Return EgtMsg(50064)
      End Get
   End Property

   Public ReadOnly Property ExteriorMsg As String
      Get
         Return EgtMsg(50065)
      End Get
   End Property

   Public ReadOnly Property DoorNumberMsg As String
      Get
         Return EgtMsg(50066)
      End Get
   End Property

   Public ReadOnly Property JambsAndDoorsMsg As String
      Get
         Return EgtMsg(50067)
      End Get
   End Property

   Public ReadOnly Property TotalDimesionMsg As String
      Get
         Return EgtMsg(50714)
      End Get
   End Property

   Public ReadOnly Property TotalHeightMsg As String
      Get
         Return EgtMsg(50002)
      End Get
   End Property

   Public ReadOnly Property TotalWidthMsg As String
      Get
         Return EgtMsg(50001)
      End Get
   End Property

#End Region

   ' Controllo di eliminare un bevel dalla lista: 1 se accendo un bevel, 2 se spengo un bevel, -1 tutti i casi che non sono questi
   Private Function CheckBevel(VisibilityBevel As Visibility, bValue As Boolean) As Integer
      Dim bAnser As Integer
      Dim bBevel As Boolean
      ' converto il parametro di visibilità in un booleano
      If VisibilityBevel = Visibility.Visible Then
         bBevel = True
      Else
         bBevel = False
      End If
      If bBevel And Not bValue Then
         ' significa che sta togliendo dalla lista
         bAnser = 1
      ElseIf Not bBevel And bValue Then
         ' sto aggiungendo un bevel alla lista
         bAnser = 2
      Else
         ' non accade nulla 
         bAnser = -1
      End If
      Return bAnser
   End Function

   ' chiedo se vuole continuare: vero se cambia li lista
   Private Function QuestionSetBevel(bCheckBevel As Integer, sBevel As String) As Boolean
      If Not IsNothing(Map.refPartPageVM.CurrPart) Or IsNothing(Map.refAssemblyPageVM.CurrAssembly) Then
         ' se la porta esiste
         If bCheckBevel = 1 Then
            ' controllo se sto eliminando da uno degli elementi della lista: se si chiedo di continuare
            If Map.refPartPageVM.CurrPart.DispositionItem.Name = sBevel Then
               ' Se blocco tutto non accade nulla --  It is the bevel of the current door. Do You want to proced?
               If MessageBox.Show(EgtMsg(50154), EgtMsg(50115), MessageBoxButton.YesNo, MessageBoxImage.Asterisk, MessageBoxResult.No) = MessageBoxResult.No Then
                  Return False
               Else
                  ' se decido di continuare 
                  Return True
               End If
            Else
               ' se non sono presenti elementi nella lista procedo nella eliminazione
               Return True
            End If
            ' se sto attivando un bevel  nella lista
         ElseIf bCheckBevel = 2 Then
            Return True
         Else
            ' per tutti gli altri casi (-1) non accade nulla
            Return False
         End If

      Else
         Return True
      End If
   End Function

   ' aggiorno la visibilità dei bevel Up e Down
   Public Sub RefreshEdgeTypeList()
      '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
      ' aggiorno la lista delle disposizioni
      For IndexBeveDisp As Integer = 0 To Part.m_DispositionList.Count - 1
         If Part.m_DispositionList(IndexBeveDisp).Name = ConstGen.BEVEL_UP Then
            Part.m_DispositionList(IndexBeveDisp).IsActive = OptionModule.m_bBevelUp
         ElseIf Part.m_DispositionList(IndexBeveDisp).Name = ConstGen.BEVEL_DOWN Then
            Part.m_DispositionList(IndexBeveDisp).IsActive = OptionModule.m_bBevelDown
         End If
      Next
      ' aggiorno la lista
      Map.refPartPageVM.CurrPart.NotifyPropertyChanged("DispositionList")
      ' verifico che l'elemento selezionato nella option page non sia stato disattivato
      If Not IsNothing(Map.refPartPageVM.CurrPart) Then
         If Map.refPartPageVM.CurrPart.DispositionItem.IsActive = Visibility.Collapsed Then Map.refPartPageVM.CurrPart.DispositionItem = Part.m_DispositionList(2)
      End If
   End Sub

   ' creo le liste dei bevel e delle siposizioni
   Public Shared Sub CreateEdgeTypeList()
      '----------------------------------------------------------------------------------------------------------
      ' carico la lista dei bevel da mostrare sugli spigoli Lock, Hinge
      If Part.m_LockEdgeTypeList.Count = 0 Then
         LockHingeEdge(Part.m_LockEdgeTypeList)
      End If
      If Part.m_HingeEdgeTypeList.Count = 0 Then
         LockHingeEdge(Part.m_HingeEdgeTypeList)
      End If
      '----------------------------------------------------------------------------------------------------------
      ' caricare gli spigoli top e bottom 
      If Part.m_TopEdgeTypeList.Count = 0 Then
         TopBottomEdge(Part.m_TopEdgeTypeList)
      End If
      If Part.m_BottomEdgeTypeList.Count = 0 Then
         TopBottomEdge(Part.m_BottomEdgeTypeList)
      End If
      '----------------------------------------------------------------------------------------------------------
      ' caricare gli spigoli dei frame
      TopBottomEdge(Assembly.m_FrameEdgeTypeList)
      '----------------------------------------------------------------------------------------------------------
      ' carico la lista che contiene la disposizione in macchina
      Part.m_DispositionList.Add(New EdgeType(ConstGen.BEVEL_UP, OptionModule.m_bBevelUp))
      Part.m_DispositionList.Add(New EdgeType(ConstGen.BEVEL_DOWN, OptionModule.m_bBevelDown))
      Part.m_DispositionList.Add(New EdgeType(ConstGen.BEVEL_BYSWING, Visibility.Visible))
      ' assegno il valore della disposizione letto dal file Config.ini
      If IsNothing(OptionModule.m_Disposition) Then
         OptionModule.m_Disposition = Part.m_DispositionList(2)
      ElseIf OptionModule.m_Disposition.Name <> ConstGen.BEVEL_UP AndAlso OptionModule.m_Disposition.Name <> ConstGen.BEVEL_DOWN Then
         OptionModule.m_Disposition = Part.m_DispositionList(2)
      End If
   End Sub

   ' carica la lista con tutte le lavorazioni legate agli spigoli Lock e Hinge
   Public Shared Sub LockHingeEdge(ByVal EdgeList As ObservableCollection(Of EdgeType))
      For Index = 0 To m_StaticEdgeTypeList.Count - 1
         If m_StaticEdgeTypeList(Index) = ConstGen.BEVEL_UP OrElse
            m_StaticEdgeTypeList(Index) = ConstGen.BEVEL_DOWN OrElse
            m_StaticEdgeTypeList(Index) = ConstGen.BEVEL_GRAPHIC OrElse
            m_StaticEdgeTypeList(Index) = ConstGen.BEVEL_SQUARED Then
         Else
            EdgeList.Add(New EdgeType(m_StaticEdgeTypeList(Index), Visibility.Visible))
         End If
      Next
      EdgeList.Insert(0, New EdgeType(ConstGen.BEVEL_SQUARED, Visibility.Visible))
      EdgeList.Insert(0, New EdgeType(ConstGen.BEVEL_GRAPHIC, Visibility.Visible))
   End Sub

   ' carica la lista con tutte le lavorazioni legate agli spigoli Top e Bottom e Frame
   Public Shared Sub TopBottomEdge(ByVal EdgeList As ObservableCollection(Of EdgeType))
      Try
         ' controllo che nella configurazione sia presente il Bevel BV
         EdgeList.Add(EdgeList.First(Function(x) x.Name = ConstGen.BEVEL_SQUARED))
      Catch ex As Exception
         EdgeList.Add(New EdgeType(ConstGen.BEVEL_SQUARED, Visibility.Visible))
      End Try
      Try
         ' controllo che nella configurazione sia presente il Bevel BV
         EdgeList.Add(EdgeList.First(Function(x) x.Name = ConstGen.BEVEL_GRAPHIC))
      Catch ex As Exception
         EdgeList.Add(New EdgeType(ConstGen.BEVEL_GRAPHIC, Visibility.Visible))
      End Try
   End Sub

   Sub New()
      Map.SetRefOptionsVM(Me)
      If IsEnableHarwarePart then
         m_HardwarePartVM = New HardwarePartVM
         m_HardwarePartV = New HardwarePartV(m_HardwarePartVM)
      End if
   End Sub

#Region "COMMANDS"

#Region "CloseOptionsCommand"

   Public ReadOnly Property CloseOptionsCommand() As ICommand
      Get
         If m_cmdCloseOptions Is Nothing Then
            m_cmdCloseOptions = New Command(AddressOf CloseOptions)
         End If
         Return m_cmdCloseOptions
      End Get
   End Property

   Public Sub CloseOptions()
      ' Chiusura finestra
      For Each Window In Application.Current.Windows
         If TypeOf Window Is OptionsV Then
            Dim OptionsWindow As OptionsV = DirectCast(Window, OptionsV)
            ' se eseguo una modifica prima di avere una porta...controllo bene!!
            If Not IsNothing(Map.refPartPageVM.CurrPart) Then
               Map.refPartPageVM.CurrPart.VisibilityWeight = Part.IsCheckedWeight
               Map.refPartPageVM.CurrPart.NotifyPropertyChanged("Weight")
               Map.refPartPageVM.CurrPart.NotifyPropertyChanged("VisibilityWeight")
            End If
            OptionsWindow.Close()
         End If
      Next
   End Sub

#End Region ' CloseOptionsCommand

   Public ReadOnly Property BrowseCommand() As ICommand
      Get
         If m_cmdBrowse Is Nothing Then
            m_cmdBrowse = New Command(AddressOf Browse)
         End If
         Return m_cmdBrowse
      End Get
   End Property

   Public Sub Browse(param As Object)
      Dim SelectButton As String = (CStr(param))
      Select Case SelectButton
         Case "MyProject"
            Dim FolderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog
            FolderBrowserDialog.SelectedPath = IniFile.m_MyProjectDir
            ' mostriamo la finestra di dialogo aperta fino alla directory MyProjects
            If FolderBrowserDialog.ShowDialog <> Forms.DialogResult.OK Then
               ' se la risposta è diversa da OK esce
               Return
            End If
            MyProjectDir = FolderBrowserDialog.SelectedPath
         Case "MachinDir"
            Dim FolderBrowserDialog As New System.Windows.Forms.FolderBrowserDialog
            FolderBrowserDialog.SelectedPath = IniFile.m_MachinProject
            ' mostriamo la finestra di dialogo aperta fino alla directory MyProjects
            If FolderBrowserDialog.ShowDialog <> Forms.DialogResult.OK Then
               ' se la risposta è diversa da OK esce
               Return
            End If
            MachinDir = FolderBrowserDialog.SelectedPath
      End Select

   End Sub

   Public ReadOnly Property OptionGuideCmd As ICommand
      Get
         If m_F1GuideCmd Is Nothing Then
            m_F1GuideCmd = New Command(AddressOf F1Guide)
         End If
         Return m_F1GuideCmd
      End Get
   End Property

   Public Sub F1Guide()
      Dim rfGuideVM As New GuideVM
   End Sub

#End Region    ' COMMANDS

   Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

   Public Sub NotifyPropertyChanged(propName As String)
      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
   End Sub

End Class

Public Class EdgeType
   Implements INotifyPropertyChanged

   Private m_Name As String
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
      End Set
   End Property

   Private m_IsActive As Visibility
   Public Property IsActive As Visibility
      Get
         Return m_IsActive
      End Get
      Set(value As Visibility)
         m_IsActive = value
         NotifyPropertyChanged("IsActive")
      End Set
   End Property

   Private m_BevelDDF As String
   Public Property BevelDDF As String
      Get
         Return m_BevelDDF
      End Get
      Set(value As String)
         m_BevelDDF = value
      End Set
   End Property

   Sub New(sName As String, bIsActive As Visibility)
      m_Name = sName
      m_IsActive = bIsActive
   End Sub

   Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

   Public Sub NotifyPropertyChanged(propName As String)
      RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
   End Sub
End Class

Public Class SwingItemTypeList

   Private m_Name As String
   Public Property Name As String
      Get
         Return m_Name
      End Get
      Set(value As String)
         m_Name = value
      End Set
   End Property

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

   Private m_AliasName As String
   Public Property AliasName As String
      Get
         Return m_AliasName
      End Get
      Set(value As String)
         m_AliasName = value
      End Set
   End Property

   Private m_VisibilityName As Visibility = Visibility.Visible
   Public Property VisibilityName As Visibility
      Get
         Return m_VisibilityName
      End Get
      Set(value As Visibility)
         m_VisibilityName = value
      End Set
   End Property

   Sub New(sNameSwing As String)
      m_Name = sNameSwing
   End Sub
End Class