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

Public Class Hardware
   Implements INotifyPropertyChanged

   Friend Shared DoRefresh As Boolean = True
   Friend Shared FirstSelection As Boolean = True
   Dim ReLoading As Boolean = False
   Dim bTypeListExist As Boolean = False
   Dim m_GroupChapterName As New ObservableCollection(Of String)
   Dim ErrorReading As String = String.Empty
   Dim BackupDir As String = IniFile.m_CompoDir & ConstGen.BACKUPDIR
   Dim bNewHardware As Boolean = False
   Dim bIsFrame As Boolean = False

   Dim CurrHardwareFilePath As String = String.Empty

   Dim sLastTemplate As String = String.Empty
   Dim m_LastDirectory As CompoBrandDir

   Dim m_MatchingDoor_Door As Boolean = False

   ' Path StdTemplate.ini
   Private m_StdTemplate As String = String.Empty   ' il percorso viene aggiornato ad ogni scelta dell'hardware in LoadType()
   Public ReadOnly Property StdTemplate As String
      Get
         Return m_StdTemplate
      End Get
   End Property

   ' i parametetri sono suddivisi in sottocapitolli (gruppi di parametri)
   Private m_GroupChapters As New ObservableCollection(Of Compo)
   Public Property GroupChapters As ObservableCollection(Of Compo)
      Get
         Return m_GroupChapters
      End Get
      Set(value As ObservableCollection(Of Compo))
         m_GroupChapters = value
      End Set
   End Property

#Region "BRAND"

   Public ReadOnly Property BrandList As ObservableCollection(Of CompoBrandDir)
      Get
         If Not IsNothing(m_HardwareGeneral) Then
            Return m_HardwareGeneral.HardwareFolderList
         Else
            Return Nothing
         End If
      End Get
   End Property

   Private m_SelBrand As CompoBrandDir
   Public Property SelBrand As CompoBrandDir
      Get
         Return m_SelBrand
      End Get
      Set(value As CompoBrandDir)
         If Not IsNothing(m_SelBrand) Then
            ' sto carciando la cartella per la prima volta
            m_LastDirectory = New CompoBrandDir(m_SelBrand, m_HardwareGeneral.Path)
         End If

         If Map.refHardwarePageVM.m_GeomtryWindowIsOpen Then
            If SaveControl() = SaveResult.nCancel Then
               RefreshTemplateListEgtDOORCreator()
               Return
            End If
         End If

         If IsNothing(value) Then
            m_SelBrand = m_LastDirectory
         End If

         ' se decido di procedere allora elimino il file temporaneo
         DeleteTempFile()
         ' verifico che la selezione abbia senso, altrimenti mantengo la selezione precedente
         If Not IsNothing(value) Then
            m_SelBrand = value
         ElseIf Not IsNothing(value) AndAlso Not Directory.Exists(value.ModelDir) Then
         ' 50542 = {0}: Directory does not exist!
            ErrorReading = String.Format(EgtMsg(50542),value.ModelDir)
            RefreshTemplateListEgtDOORCreator()
         Else
            Return
         End If

         ' se l'oggetto Brand esiste 
         If Not IsNothing(m_SelBrand) Then
            ' riconosce il tipo di Hardaware in base alla cartella in cui è slavato
            If m_SelBrand.ModelDir.ToLower.Contains(FRAME_FOLDER) Then
               bIsFrame = True
               ' aggiormo il jamb con i vaori salvato nella pagina crrente
               Map.refHardwarePageVM.Jamb.SetMaterial(Map.refHardwarePageVM.GenericPart.SelectedMaterial)
               Map.refHardwarePageVM.GenericPart = Map.refHardwarePageVM.Jamb
            Else
               bIsFrame = False
               ' aggiormo il jamb con i vaori salvato nella pagina crrente
               Map.refHardwarePageVM.Door.SetMaterial(Map.refHardwarePageVM.GenericPart.SelectedMaterial)
               Map.refHardwarePageVM.GenericPart = Map.refHardwarePageVM.Door
            End If
            ' Carico lista template (la lista dei file lua)
            TemplateList = m_SelBrand.ModelFileList
            DoRefresh = True
            ' verifico che la lista contenga almeno un file
            If m_SelBrand.ModelFileList.Count > 0 Then
               ' verifico se esisteva un file selzionato, e che quetso esista ancora
               If Not String.IsNullOrWhiteSpace(SelTemplate) AndAlso File.Exists(m_SelBrand.ModelDir & "\" & SelTemplate & LUA_EXTENSION) Then
                  ' ricarico l'elemento dalla lista
                  For Each ItemFile In m_SelBrand.ModelFileList
                     If ItemFile = m_SelTemplate Then
                        SelTemplate = ItemFile
                        Exit For
                     End If
                  Next
               ElseIf File.Exists(m_SelBrand.ModelDir & "\" & m_SelBrand.ModelFileList(0) & LUA_EXTENSION) Then
                  ' se non esiste nessuna selezione carico il primo file della lista
                  SelTemplate = m_SelBrand.ModelFileList(0)
               Else
                  ' se i controlli precedenti falliscono allora restituisco stringa vuota 
                  SelTemplate = String.Empty
                  'Map.refSceneManagerVM.RefreshBtn()
               End If
            Else
               SelTemplate = String.Empty
               'Map.refSceneManagerVM.RefreshBtn()
            End If
            Else
               SelTemplate = String.Empty
            'Map.refSceneManagerVM.RefreshBtn()
         End If
         ' termine della selezione
         NotifyPropertyChanged("SelBrand")
      End Set
   End Property

#End Region    ' Brand

#Region "TEMPLATE"

   Private m_HardwareGeneral As CompoType
   Public Property HardwareGeneral As CompoType
      Get
         Return m_HardwareGeneral
      End Get
      Set(value As CompoType)
         m_HardwareGeneral = value
      End Set
   End Property

   Private m_TemplateList As New ObservableCollection(Of String)
   Public Property TemplateList As ObservableCollection(Of String)
      Get
         Return m_TemplateList
      End Get
      Set(value As ObservableCollection(Of String))
         m_TemplateList = value
         DoRefresh = False
         NotifyPropertyChanged("TemplateList")
      End Set
   End Property

   Private m_SelTemplate As String = ""
   ' questa proprietà non è usata nel momento in cui generiamo un nuovo Hardware
   Public Property SelTemplate As String
      Get
         Return m_SelTemplate
      End Get
      Set(value As String)
         ' salvo l'ultimo valore registrato
         sLastTemplate = m_SelTemplate
         If m_SelTemplate = value AndAlso Not IsNothing(m_LastDirectory) AndAlso m_SelBrand.ModelDirGraphic = m_LastDirectory.ModelDirGraphic Then Return
         m_SelTemplate = value

         If Not Map.refHardwarePageVM.m_GeomtryWindowIsOpen Then
            If SaveControl() = SaveResult.nCancel Then
               Application.Current.Dispatcher.BeginInvoke(New Action(Sub()
                                                                        m_SelTemplate = sLastTemplate
                                                                        NotifyPropertyChanged("SelTemplate")
                                                                     End Sub), System.Windows.Threading.DispatcherPriority.ContextIdle, Nothing)
               NotifyPropertyChanged("TemplateList")
               Return
            End If
         End If

         sLastTemplate = m_SelTemplate
         ' elimino il file temporaneo
         DeleteTempFile()
         ' pulisco la lista dei capitoli per il nuovo Hardware 
         ClearGroupChapters()
         ' controllo che la selezione abbia restituito un nome
         If Not String.IsNullOrWhiteSpace(m_SelTemplate) Then
            If bTypeListExist Then
               ' se restituisce dei problemi in fase di caricamento del file allora eseguo un reload delle liste
               If Not SetTypeFromTemplate(m_SelTemplate) Then
                  m_SelTemplate = String.Empty
                  ShowErrorMsg()
                  RefreshTemplateListEgtDOORCreator()
                  Return
               End If
               NotifyPropertyChanged("VisibilityType")
            End If
            FirstSelection = True              ' Comunico grafica di eseguire lo zoom 
            ReadChapterTemplate()              ' Rileggo i parametri del SetdTemplate
            'ReadTemplate(m_SelTemplate)        ' Carico i dati del template
            ReadTemplate()
            ' Map.refSceneManagerVM.RefreshBtn()
         End If
         NotifyPropertyChanged("SelTemplate")
         LoadSwingFromTemplate()
         Map.refSceneManagerVM.RefreshBtn()
         ' NotifyPropertyChanged("TemplateList")
         ShowErrorMsg()
      End Set
   End Property

   Private m_VisibilityTemplate As Visibility = Visibility.Visible
   Public Property VisibilityTemplate As Visibility
      Get
         Return m_VisibilityTemplate
      End Get
      Set(value As Visibility)
         m_VisibilityTemplate = value
      End Set
   End Property

#End Region    ' Name-Template

#Region "TYPELIST"

   Private m_TypeList As New List(Of TypeHardware)
   Public Property TypeList As List(Of TypeHardware)
      Get
         Return m_TypeList
      End Get
      Set(value As List(Of TypeHardware))
         m_TypeList = value
         NotifyPropertyChanged("TypeList")
      End Set
   End Property

   ' se non dovessere esistere un tipo, al momento del salvataggio cerca il file con nome Template ed estensione .Templ
   Private m_SelType As TypeHardware = New TypeHardware(TYPE_STD_TEMPLATE, TYPE_STD_TEMPLATE_INI)
   Public Property SelType As TypeHardware
      Get
         Return m_SelType
      End Get
      Set(value As TypeHardware)
         ' verifico se tipo è cambiato  --  OrElse value.Name <> m_SelType.Name
         Dim bChanged As Boolean = If(Not IsNothing(m_SelType), value.NameINI <> m_SelType.NameINI, True)
         m_SelType = value
         ' se cambiato carico il suo progetto con quotature/suggerimenti
         If bChanged Then Map.refHardwareHelpSceneHostV.LoadHelpProject()
         NotifyPropertyChanged("SelType")
      End Set
   End Property

   Private m_VisibilityType As Visibility = Visibility.Collapsed
   Public Property VisibilityType As Visibility
      Get
         Return m_VisibilityType
      End Get
      Set(value As Visibility)
         m_VisibilityType = value
         NotifyPropertyChanged("VisibilityType")
      End Set
   End Property

   ' se non viene modificata il tipo non può essere modificato
   Private m_IsEnableType As Boolean = False
   Public Property IsEnableType As Boolean
      Get
         If Not VisibilityType = Visibility.Visible Then Return False
         Return m_IsEnableType
      End Get
      Set(value As Boolean)
         m_IsEnableType = value
         NotifyPropertyChanged("IsEnableType")
      End Set
   End Property

#End Region    ' TypeList

#Region "MATCHING"
   'creo il capitolo "Match File"
   Private Function CreateChapterMatching() As Compo
      If Me.SelBrand.ModelDir.ToLower.Contains(FRAME_FOLDER) Then Return Nothing

      ' creo la classe che ospiterà gli oggetti di tipo ComboBox
      Dim CompoMatch As New Compo(m_HardwareGeneral, True)
      CompoMatch.TemplateDDFName = MATCHING_FILE_TEMPLATE
      CompoMatch.TemplateName = MATCHING_FILE_TEMPLATE & " Door to Frame"
      ' creo le liste delle configurazioni
      Dim LocalHardwareListName As New ObservableCollection(Of String)
      Dim LocalHardwareListDDFName As New ObservableCollection(Of String)
      ' se questo file non esiste dovrei interrompere il caricamento?
      If File.Exists(m_HardwareGeneral.Path & "\" & MATCHING_FILE_NAME) Then
         LocalHardwareListName.Add(MATCHING_FILE_AUTOMATIC)
         LocalHardwareListDDFName.Add(MATCHING_FILE_AUTOMATIC)
      End If
      ' aggiungo alla lista il riferiemento "None"
      LocalHardwareListName.Add(MATCHING_FILE_NONE)
      LocalHardwareListDDFName.Add(MATCHING_FILE_NONE)
      ' ricerco il capitolo [Matching] nel file di configurazione della componente
      ' carcio la lista "LocalHardwareListDDFName" l'elemco 
      IniFile.GetPrivateProfileMatchHardware(ConstCompo.MATCHING_INI, "List", LocalHardwareListDDFName, LocalHardwareListName, m_HardwareGeneral.Path & "\" & CONFIGINI_FILE_NAME)
      ' verifico se esistano cartelle con estensione ".Frame" nel direttorio della componente
      If m_HardwareGeneral.FrameFolderList.Count > 0 AndAlso LocalHardwareListDDFName.IndexOf(m_HardwareGeneral.DDFName) < 0 Then
         ' allora aggiungo alla lista il riferiento della compoenente stessa
         LocalHardwareListName.Add(m_HardwareGeneral.Name)
         LocalHardwareListDDFName.Add(m_HardwareGeneral.DDFName)
      End If
      ' rimuovo dall'elenco eventuali cartelle che non contengano cartelle con estensione ".Frame"
      For Each Item In Map.refCompoPanelHardwareVM.CompoTypeList
         For ElemntIndex As Integer = LocalHardwareListDDFName.Count - 1 To 0 Step -1
            If Item.DDFName = LocalHardwareListDDFName(ElemntIndex) Then
               ' se non esistono direttori ".Frame" nel cartella indicata allora rimuovo dalla lista
               If Item.FrameFolderList.Count < 1 Then
                  Dim Index As Integer = LocalHardwareListName.IndexOf(Item.Name)
                  LocalHardwareListName.RemoveAt(Index)
                  LocalHardwareListDDFName.RemoveAt(Index)
                  Exit For
               End If
            End If
         Next
      Next
      If LocalHardwareListDDFName.Count < 1 Then Return Nothing
      ' aggiungo il primo parametro "Matching" (lista appena costruita)
      Dim ComboBoxMatch As New ComboBoxParam(ConstCompo.MATCHING_INI, EgtMsg(50224), CompoMatch, LocalHardwareListName, LocalHardwareListDDFName, LocalHardwareListName(0))
      CompoMatch.CompoParamList.Add(ComboBoxMatch)
      If OptionModule.m_ConfigurationSoftware = ConfigType.Door Then
         CompoMatch.GroupVisibilityChapter = Visibility.Collapsed
      End If
      Return CompoMatch
   End Function

   ' permette di creare il Matching Door-Door (quindi non solo con le componenti di tipo frame)
   Private Function CreateChapterMatchingDoor() As Compo
      If Me.SelBrand.ModelDir.ToLower.Contains(FRAME_FOLDER) Then Return Nothing
      ' verifico se la componente deve gestire degli accomppiamenti Anta-Anta
      m_MatchingDoor_Door = IniFile.GetPrivateProfileRefCompoDoor(ConstCompo.MATCHING_INI, "Door", m_HardwareGeneral.Path & "\" & CONFIGINI_FILE_NAME)
      If Not m_MatchingDoor_Door Then Return Nothing
      ' creo la classe che ospiterà gli oggetti di tipo ComboBox
      Dim CompoMatch As New Compo(m_HardwareGeneral, True)
      CompoMatch.TemplateDDFName = MATCHING_FILE_TEMPLATE_DOOR
      CompoMatch.TemplateName = MATCHING_FILE_TEMPLATE_DOOR & " to Door"
      ' creo le liste delle configurazioni
      Dim LocalHardwareListName As New ObservableCollection(Of String)
      Dim LocalHardwareListDDFName As New ObservableCollection(Of String)
      ' se questo file non esiste dovrei interrompere il caricamento?
      If File.Exists(m_HardwareGeneral.Path & "\" & MATCHING_FILE_NAME) Then
         LocalHardwareListName.Add(MATCHING_FILE_AUTOMATIC)
         LocalHardwareListDDFName.Add(MATCHING_FILE_AUTOMATIC)
      End If
      ' aggiungo alla lista il riferiemento "None"
      LocalHardwareListName.Add(MATCHING_FILE_NONE)
      LocalHardwareListDDFName.Add(MATCHING_FILE_NONE)
      ' ricerco il capitolo [Matching] nel file di configurazione della componente
      ' carcio la lista "LocalHardwareListDDFName" l'elemco 
      IniFile.GetPrivateProfileMatchHardware(ConstCompo.MATCHING_INI, "List", LocalHardwareListDDFName, LocalHardwareListName, m_HardwareGeneral.Path & "\" & CONFIGINI_FILE_NAME)
      If LocalHardwareListDDFName.Count < 1 Then Return Nothing
      ' aggiungo il primo parametro "Matching" (lista appena costruita)
      Dim ComboBoxMatch As New ComboBoxParam(ConstCompo.MATCHING_INI, EgtMsg(50224), CompoMatch, LocalHardwareListName, LocalHardwareListDDFName, LocalHardwareListName(0))
      CompoMatch.CompoParamList.Add(ComboBoxMatch)
      ' disabilito il capitolo se non è specificato nel file Config.ini "[Matching.ini] Door = 1"
      If OptionModule.m_ConfigurationSoftware = ConfigType.Door OrElse Not m_MatchingDoor_Door Then
         CompoMatch.GroupVisibilityChapter = Visibility.Collapsed
      End If
      Return CompoMatch
   End Function

   ' Definita la componete che vogliamo associare restituice l'elenco di tutti i direttori con estensione ".Frame"
   Public Function SelectMatching(ByRef ComboBoxMatch As ComboBoxParam, ByRef CompoMatch As Compo) As ObservableCollection(Of CompoBrandDir)
      Dim BrandList As New ObservableCollection(Of CompoBrandDir)
      For Each Item In Map.refCompoPanelHardwareVM.CompoTypeList
         If Item.Name = ComboBoxMatch.SelItem Then
            If m_MatchingDoor_Door AndAlso CompoMatch.TemplateDDFName = MATCHING_FILE_TEMPLATE_DOOR Then
               BrandList = Item.FolderList
            Else
               BrandList = Item.FrameFolderList
            End If
            Exit For
         End If
      Next
      Return BrandList
   End Function

   ' a seconda della scelta fatta nel passaggio precedente Aggiorna la grafica per mostrare l'elenco dei brand e dei file
   Public Sub SelectFileMatching(ComboBoxMatch As ComboBoxParam, BrandList As ObservableCollection(Of CompoBrandDir))
      ' eseguo una copia locale della componente Matching
      Dim CompoMatch As Compo = ComboBoxMatch.CurrCompo
      Dim BrandListGraphic As New ObservableCollection(Of String)
      ' estrapolo dalla lista del BrandList
      If IsNothing(BrandList) Then
         ' se l'oggetto lista 
         For Each Item In Map.refCompoPanelHardwareVM.CompoTypeList
            If Item.Name = ComboBoxMatch.SelItem Then
               BrandList = Item.FrameFolderList
               Exit For
            End If
         Next
      End If
      For Each Element In BrandList
         BrandListGraphic.Add(Element.ModelDirGraphic)
      Next
      ' prima di procedere ripulisco completamente l'elenco 
      If CompoMatch.CompoParamList.Count > 1 Then
         CompoMatch.CompoParamList.RemoveAt(2)
         CompoMatch.CompoParamList.RemoveAt(1)
      End If
      ' se la lista dei brand non è vuota e la lista dei file non è vuota allora mostro a video gli elenchi aggiornati
      If BrandList.Count > 0 AndAlso BrandList(0).ModelFileList.Count > 0 Then
         Dim ComboBoxBrand As New ComboBoxParam(ConstCompo.BRAND_INI, EgtMsg(50225), CompoMatch, BrandListGraphic, BrandListGraphic, BrandListGraphic(0))
         CompoMatch.CompoParamList.Add(ComboBoxBrand)
         Dim FileList As New ObservableCollection(Of String)
         FileList = BrandList(0).ModelFileList
         Dim ComboBoxTemplate As New ComboBoxParam(ConstCompo.BRAND_FILE_INI, EgtMsg(50226), CompoMatch, FileList, FileList, FileList(0))
         CompoMatch.CompoParamList.Add(ComboBoxTemplate)
      Else

      End If
   End Sub

   ' dalla scelta del brand restituisce la lista dei file corretta
   Public Sub SelectBrandMatching(ComboBoxBrand As ComboBoxParam)
      ' eseguo una copia della componente
      Dim CurrCompo As Compo = ComboBoxBrand.CurrCompo
      ' se il parametro che sto caricando non Brand allora esco
      If CurrCompo.CompoParamList.Count < 2 Then Return
      ' esguo una copia del parametro Matching
      Dim ComboBoxMatch As ComboBoxParam = DirectCast(CurrCompo.CompoParamList(0), ComboBoxParam)
      ' definisco le liste dei brand (assegnata la componete di riferimento)
      Dim BrandListGraphic As New ObservableCollection(Of String)
      Dim BrandList As New ObservableCollection(Of CompoBrandDir)
      ' ricavo l'elenco dei brand
      For Each Item In Map.refCompoPanelHardwareVM.CompoTypeList
         If Item.Name = ComboBoxMatch.SelItem Then
            BrandList = Item.FrameFolderList
            If ComboBoxBrand.CurrCompo.TemplateDDFName = MATCHING_FILE_TEMPLATE_DOOR Then
               BrandList = Item.FolderList
            End If
            For Each Element In BrandList
               BrandListGraphic.Add(Element.ModelDirGraphic)
            Next
            Exit For
         End If
      Next
      Dim Index As Integer = -1
      For Each Item In BrandList
         If Item.ModelDirGraphic = ComboBoxBrand.SelItem Then
            Index = BrandList.IndexOf(Item)
            Exit For
         End If
      Next
      If Index = -1 Then Return
      If CurrCompo.CompoParamList.Count > 1 Then
         CurrCompo.CompoParamList.RemoveAt(2)
      End If
      Dim FileList As New ObservableCollection(Of String)
      FileList = BrandList(Index).ModelFileList
      Dim ComboBoxTemplate As New ComboBoxParam(ConstCompo.BRAND_FILE_INI, EgtMsg(50226), CurrCompo, FileList, FileList, FileList(0))
      CurrCompo.CompoParamList.Add(ComboBoxTemplate)
   End Sub

#End Region    ' Matching

#Region "GENERAL FUNCTION"

#Region "Caricamento"

   Public Function ShowErrorMsg() As Boolean
      If Not String.IsNullOrEmpty(ErrorReading) Then
         MessageBox.Show(ErrorReading, EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
      End If
      ErrorReading = String.Empty
      Return True
   End Function

   ' elimina il file temporaneo CurrHardware.lua
   Public Function DeleteTempFile() As Boolean
      If String.IsNullOrWhiteSpace(CurrHardwareFilePath) Then Return False
      Try
         File.Delete(CurrHardwareFilePath)
      Catch ex As Exception
      End Try
      Return True
      Return True
   End Function

   ' Carica il nome della Componente, La lista dei template, La lista dei tipi (Config.ini)
   Public Sub LoadTemplate(ByRef CurrCompoType As CompoType)
      ' eseguo un aggiornamento della lista
      CurrCompoType.LoadListTemplate()
      ' carico il general dell'hardware
      m_HardwareGeneral = CurrCompoType.DeepCopy()
      If m_HardwareGeneral.HardwareFolderList.Count = 0 Then
         Dim CurrFolder = New CompoBrandDir(m_HardwareGeneral.Path, Path.GetFileName(m_HardwareGeneral.Path))
         m_HardwareGeneral.HardwareFolderList.Add(CurrFolder)
      End If
      NotifyPropertyChanged("BrandList")
      ' carico la lista dei Type
      bTypeListExist = LoadType()
      If Not bTypeListExist Then
         'SelBrand = Nothing
         SelBrand = BrandList(0)
      ElseIf BrandList.Count > 0 Then
         SelBrand = BrandList(0)
      Else
         EgtNewFile()
      End If
      Dim ErrorList As String = String.Empty
      If EgtUILib.GetPrivateProfileInt(S_TEMPLATE, K_ISACTIVE, 1, CurrCompoType.Path & "\" & CONFIGINI_FILE_NAME) = 0 Then
         VisibilityTemplate = Visibility.Collapsed
         NotifyPropertyChanged("VisibilityTemplate")
      End If
   End Sub

   ' carico lo swing da assegnare al part
   Private Sub LoadSwingFromTemplate()
      m_StdTemplate = m_HardwareGeneral.Path & "\" & STD_TEMPLATE
      If Not File.Exists(m_StdTemplate) Then Return
      Dim SwingTemplate As String = String.Empty
      If Not IsNothing(Map.refHardwarePageVM.GenericPart) And Not String.IsNullOrEmpty(Map.refHardwarePageVM.GenericPart.Swing) Then
         SwingTemplate = Map.refHardwarePageVM.GenericPart.Swing
      Else
         SwingTemplate = "RH"
      End If
      IniFile.StdTemplateGetPrivateProfileString("Hardware", "Swing", SwingTemplate, SwingTemplate)
      Map.refHardwarePageVM.GenericPart.SetSwing(SwingTemplate)
      If bIsFrame Then
         IniFile.StdTemplateGetPrivateProfileString("Hardware", "SwingFrame", "RH", SwingTemplate)
         Map.refHardwarePageVM.GenericPart.SetSwing(SwingTemplate)

         ' per gestire in futuro lo swing delle ante
         'Dim Local_Jamb As Part = Map.refHardwarePageVM.GenericPart
         'If Not IsNothing(m_JambL) AndAlso Not IsNothing(m_JambR) AndAlso m_JambL.SwingAlias.Name.Contains("LH") Then
         '   m_JambL.TypePart = ConstGen.PART_FRAME_LEFT & ConstGen.HINGE
         '   m_JambR.TypePart = ConstGen.PART_FRAME_RIGHT & ConstGen.LOCK
         'Else
         '   If Not IsNothing(m_JambL) Then m_JambL.TypePart = ConstGen.PART_FRAME_LEFT & ConstGen.LOCK
         '   If Not IsNothing(m_JambR) Then m_JambR.TypePart = ConstGen.PART_FRAME_RIGHT & ConstGen.HINGE
         'End If
         'If Not IsNothing(m_JambB) Then m_JambB.TypePart = ConstGen.PART_FRAME_BOTTOM & ConstGen.BOTTOM
         'If Not IsNothing(m_JambT) Then m_JambT.TypePart = ConstGen.PART_FRAME_TOP & ConstGen.TOP

      End If
   End Sub

   Private Sub FindSideJamb()
      If Map.refHardwarePageVM.GenericPart.CompoList.Count < 1 Then Return
      'If String.IsNullOrEmpty(HardwareGeneral.JambSide) Then
      For Each Item In Map.refHardwarePageVM.GenericPart.CompoList(0).CompoParamList
            If TypeOf Item Is ComboBoxParam AndAlso
               Item.DDFName = "side" Then
               Dim CBoxPar As ComboBoxParam = DirectCast(Item, ComboBoxParam)
               Dim IndexItem As Integer = CBoxPar.ItemList.IndexOf(CBoxPar.SelItem)
               If IndexItem > -1 Then
                  HardwareGeneral.SetJambSide(CBoxPar.ItemListDDF(IndexItem))
               End If
               'HardwareGeneral.SetJambSide(CBoxPar.SelItem)
               Exit For
            End If
         Next
      'End If
      If HardwareGeneral.JambSide.ToLower.Contains("hinge") Then
         Map.refHardwarePageVM.GenericPart.TypePart = PART_FRAME_LEFT & HINGE
         If Not HardwarePartVM.bIsSettingDoor Then
            Map.refHardwarePageVM.GenericPart.SetWidth(OptionModule.m_WidthJamb)
            Map.refHardwarePageVM.GenericPart.SetHeight(OptionModule.m_Height)
         End If
         Return
      ElseIf HardwareGeneral.JambSide.ToLower.Contains("lock") Then
         Map.refHardwarePageVM.GenericPart.TypePart = PART_FRAME_LEFT & LOCK
         If Not HardwarePartVM.bIsSettingDoor Then
            Map.refHardwarePageVM.GenericPart.SetWidth(OptionModule.m_WidthJamb)
            Map.refHardwarePageVM.GenericPart.SetHeight(OptionModule.m_Height)
         End If
         Return
         ElseIf HardwareGeneral.JambSide.ToLower.Contains("top") Then
         Map.refHardwarePageVM.GenericPart.TypePart = PART_FRAME_TOP & TOP
         If Not HardwarePartVM.bIsSettingDoor Then
            Map.refHardwarePageVM.GenericPart.SetWidth(OptionModule.m_Width)
            Map.refHardwarePageVM.GenericPart.SetHeight(OptionModule.m_ThicknessHead)
         End If
         Return
         ElseIf HardwareGeneral.JambSide.ToLower.Contains("bottom") Then
         Map.refHardwarePageVM.GenericPart.TypePart = PART_FRAME_BOTTOM & BOTTOM
         If Not HardwarePartVM.bIsSettingDoor Then
            Map.refHardwarePageVM.GenericPart.SetWidth(OptionModule.m_Width)
            Map.refHardwarePageVM.GenericPart.SetHeight(OptionModule.m_ThicknessBottom)
         End If
         Return
         End If

   End Sub

   ' carico la lista dei tipi --> devo stampare gli errori 
   Private Function LoadType() As Boolean
      ' costruisco la Path del template da leggere
      m_StdTemplate = m_HardwareGeneral.Path & "\" & STD_TEMPLATE
      If Not File.Exists(m_StdTemplate) Then Return False
      Dim List As New List(Of String)    ' lista temporanea "1/Mort"
      If IniFile.StdTemplateGetPrivateProfileList(S_HARDWARE, K_TYPE, List) Then
         m_VisibilityType = Visibility.Visible    ' rendo visibile la lista
         ' leggo nomi
         Dim ArrayNameSplit(1) As String
         For IndexListType As Integer = 0 To List.Count - 1
            ArrayNameSplit = List(IndexListType).Split("/"c)
            If IsNumeric(ArrayNameSplit(0)) Then
               m_TypeList.Add(New TypeHardware(ArrayNameSplit(1), ArrayNameSplit(0)))
            Else
               ' In file StdTempate.ini is missing numeric param in [Type]
               ErrorReading = EgtMsg(50171) & vbCrLf
               m_TypeList.Add(New TypeHardware(EgtMsg(50101), "0"))
               Return False  ' interrompo la lettura
            End If
         Next
         ' se esiste una lista di nomi di tipi carico di default il primo che trovo
         If m_TypeList.Count > 0 Then SelType = m_TypeList(0)
         'NotifyPropertyChanged("TypeListName")
      Else
         m_TypeList.Add(New TypeHardware(TYPE_STD_TEMPLATE, TYPE_STD_TEMPLATE_INI))
         m_VisibilityType = Visibility.Collapsed
         Return False   ' se la lista è vuota restituisco falso
      End If
      Return True
   End Function

   ' setta il valore del template --> devo stampare gli errori 
   Private Function SetTypeFromTemplate(value As String) As Boolean
      ' carico di Default il valore 1  
      For IndexListType As Integer = 0 To TypeList.Count - 1
         If TypeList(IndexListType).NameINI = "1" Then
            SelType = TypeList(IndexListType)
            VisibilityType = Visibility.Visible
            NotifyPropertyChanged("SelType")
            Exit For
         End If
      Next
      ' inizio la lettura del file lua selezionato
      Dim CurrItemPath As String = CurrPath()
      Dim ErrorMsg As String = String.Empty
      ' se il file ha estensione nge
      If Path.HasExtension(CurrItemPath) AndAlso Path.GetExtension(CurrItemPath).ToLower = NGE_EXTENSION Then
         ' File does not exist
         If Not File.Exists(CurrItemPath) Then ErrorReading = EgtMsg(50172) & vbCrLf : Return False ' controllo che esiste il file altrimenti esco
         Dim ConfigDefault As String = String.Empty   ' configurazione del template
         EgtUILib.GetPrivateProfileString(S_NGECONFIG, K_DEFAULT, "", ConfigDefault, m_HardwareGeneral.Path & "\" & CONFIGINI_FILE_NAME)
         For IndexTypeList As Integer = 0 To TypeList.Count - 1
            ' Definition type is not correct: 
            If TypeList(IndexTypeList).NameINI = ConfigDefault Then Exit For Else ErrorReading = EgtMsg(50173) & ConfigDefault & vbCrLf : Return False
         Next
      Else
         ' se il file ha estensione allora aggiungo l'estensione .lua
         If Path.GetExtension(CurrItemPath).ToLower <> LUA_EXTENSION Then
            CurrItemPath &= LUA_EXTENSION
         End If
         ' controllo che esiste il file altrimenti esco
         ' File does not exist
         If Not File.Exists(CurrItemPath) Then ErrorReading = CurrItemPath & ": " & EgtMsg(50172) & vbCrLf : Return False
         '   m_TemplateSelItem = value
         ' carico un vettore con le stringhe del file corrente 
         Dim ReadCurrCompo() As String = File.ReadAllLines(CurrItemPath)
         Dim EndOfFile As Boolean = False
         ' leggo il vettore di stringhe del file corrente
         For LineIndex = 0 To ReadCurrCompo.Count - 1
            ' copio il valore della riga  
            Dim CurrCompoFileLine As String = ReadCurrCompo(LineIndex)
            ' cerco il titolo [Graphic parameters]: se lo trovo
            If RegexFunction.IsGraphicParametersTitle(CurrCompoFileLine) Then
               ' mi preparo per leggere la prima riga dopo il titolo
               Dim ParamIndex As Integer = 1
               If Not String.IsNullOrWhiteSpace(ParamLine(ReadCurrCompo(LineIndex + ParamIndex), K_DEFAULT)) Then
                  Dim ConfigDefault As String = Trim(ParamLine(ReadCurrCompo(LineIndex + ParamIndex), K_DEFAULT))
                  If Not IsNumeric(ConfigDefault) Then
                     ' 50162 =In file {0} param 'Default' must be numeric.
                     ErrorReading = String.Format(EgtMsg(50162), CurrItemPath)
                     ErrorReading &= vbCrLf
                     Return False   ' valore letto non è numerico
                  Else
                     For IndexListType As Integer = 0 To TypeList.Count - 1
                        If TypeList(IndexListType).NameINI = ConfigDefault Then
                           SelType = TypeList(IndexListType)
                           NotifyPropertyChanged("SelType")
                           Exit For
                        End If
                     Next
                     Exit For
                  End If
               End If
            End If
         Next
      End If
      Return True
   End Function

   ' ricerca il nome dei capitoli associati e chiama la lettura dei parametri
   Public Sub ReadChapterTemplate()
      Dim sParam As String = String.Empty    ' la stringa che contiene tutte le informazioni della componente
      Dim ParamIndex As Integer = 1
      Dim ChapterIndex As Integer = 1        ' numero del capitolo
      Dim IndexChapter As String = "1"
      For IndexTypeList As Integer = 0 To m_TypeList.Count - 1
         If m_TypeList(IndexTypeList) Is SelType Then
            IndexChapter = m_TypeList(IndexTypeList).NameINI
            Exit For
         End If
      Next
      Dim S_CHAPTER As String = S_GR_PARAM_HARDWARE & IndexChapter & "."    ' il nome del capitolo da leggere  "ParametersN."  
      While EgtUILib.GetPrivateProfileString(S_CHAPTER & ChapterIndex, K_PARAM & ParamIndex, "", sParam, m_StdTemplate) > 0    ' Verifico che esista il capitolo nuovo "Type-ChapterIndex"
         Dim Chapter As New Compo(m_HardwareGeneral, True)
         Dim Name As String = String.Empty
         Dim LuaName As String = String.Empty

         ' legge il nome del parametro
         If StdTemplateGetPrivateProfileChapterName(S_CHAPTER & ChapterIndex, K_NAME, LuaName, Name) Then
            Chapter.TemplateDDFName = LuaName
            Chapter.TemplateName = Name
         End If
         ' leggo il nome dei capitoli dei parametri
         Dim GroupName As String = String.Empty
         If StdTemplateGetPrivateProfileGroupChapter(S_CHAPTER & ChapterIndex, "GroupChapter", GroupName) Then
            Chapter.GroupNameChapter = GroupName
            SetGroupChaptername(Trim(GroupName))
         End If
         Dim bIsActive As Boolean = True
         ' legge se è attivo
         Dim nIsActive As Integer = 0
         nIsActive = StdTemplateGetPrivateProfileInt(S_CHAPTER & ChapterIndex, K_ISACTIVE, nIsActive)

         ' leggo se il capitolo appartiene al tipo di materiale, 
         ' il tipo di visualizzazione da adoperare in caso il materiale non sia quello corrente
         Dim sMaterialList As New List(Of String)
         Dim nIsActiveMaterial As Integer = 3
         Dim bIsCurrentMaterial As Boolean = True
         StdTemplateGetPrivateProfileListMaterial(S_CHAPTER & ChapterIndex, K_MATERIAL, sMaterialList, nIsActiveMaterial)
         'For Each ItemMaterial In sMaterialList
         '   bIsCurrentMaterial = False
         '   Dim ArrayItemMaterial As String() = ItemMaterial.Split("/"c)
         '   If Trim(ArrayItemMaterial(0)) = Trim(Map.refHardwarePageVM.GenericPart.SelectedMaterial.NameDDF) Then
         '      bIsCurrentMaterial = True
         '      Exit For
         '   End If
         'Next
         IsCurrentMaterial(sMaterialList, bIsCurrentMaterial)

         If Not bIsCurrentMaterial And nIsActive <> 4 Then
            nIsActive = nIsActiveMaterial
         End If

         ' verifico che non stia leggendo un nuovo hardware
         If Not bNewHardware And nIsActive < 3 Then
            nIsActive = 0
         End If
         Select Case nIsActive
            Case 0
               Chapter.SetIsFixed(False)
               Chapter.SetIsActiveChapter(False)
            Case 1
               Chapter.SetIsFixed(False)
               Chapter.SetIsActiveChapter(True)
            Case 2
               Chapter.SetIsFixed(True)
               Chapter.SetIsActiveChapter(True)
            Case 3
               Chapter.SetIsFixed(False)
               Chapter.SetIsActiveChapter(False)
               Chapter.GroupVisibilityChapter = Visibility.Collapsed
            Case 4
               Chapter.SetIsFixed(False)
               Chapter.SetIsActiveChapter(False)
               Chapter.SetEnableChapter(bIsCurrentMaterial)
         End Select

         '' leggo se il capitolo appartiene al tipo di materiale ed eventualmente il tipo di visualizzazione da adoperare
         'Dim sMaterialList As New List(Of String)
         'StdTemplateGetPrivateProfileListMaterial(S_CHAPTER & ChapterIndex, K_MATERIAL, sMaterialList, nIsActive)
         'For Each ItemMaterial In sMaterialList
         '   Chapter.GroupVisibilityChapter = Visibility.Collapsed
         '   Dim ArrayItemMaterial As String() = ItemMaterial.Split("/"c)
         '   If Trim(ArrayItemMaterial(0)) = Trim(Map.refHardwarePageVM.GenericPart.SelectedMaterial.NameDDF) Then
         '      Chapter.GroupVisibilityChapter = Visibility.Visible
         '      Exit For
         '   End If
         'Next

         While EgtUILib.GetPrivateProfileString(S_CHAPTER & ChapterIndex, K_PARAM & ParamIndex, "", sParam, m_StdTemplate) > 0 ' Verifico che esista il parametro nuovo "Param-ParamIndex"
            If Not String.IsNullOrWhiteSpace(sParam) Then
               Dim NewParam As New CompoParam(m_HardwareGeneral.DDFName, m_HardwareGeneral.Name, Chapter)
               Dim sHelpParam As String = String.Empty
               EgtUILib.GetPrivateProfileString(S_CHAPTER & ChapterIndex, "HelpParam" & ParamIndex, "", sHelpParam, m_StdTemplate)
               ' verifico se il materiale corrente deve essere visualizzato in funzione del materiale associato al parametro
               Dim sMaterialParam As String = String.Empty
               Dim MaterialParamList As New List(Of String)
               Dim bIsCurrentMaterialParam As Boolean = True
               Dim sDefaultGhostValue As String = ""
               StdTemplateGetPrivateProfileListMaterialParam(S_CHAPTER & ChapterIndex, "MaterialParam" & ParamIndex, MaterialParamList, sDefaultGhostValue)
               IsCurrentMaterial(MaterialParamList, bIsCurrentMaterialParam)
               If Not bIsCurrentMaterialParam Then
                  ' trasformo il parametro in Ghost
                  TrasformCurrParamInGhost(sParam, sDefaultGhostValue)
               End If

               ' leggo il tipo di parametro, se la lettura va a buon fine la carico
               If Chapter.ReadParamHardware(sParam, sHelpParam, NewParam, ErrorReading) Then Chapter.CompoParamList.Add(NewParam)
               If TypeOf NewParam Is TextBoxOnOffParam Then
                  Dim Param = DirectCast(NewParam, TextBoxOnOffParam)
                  Param.SetIsActive(False)
               ElseIf TypeOf NewParam Is ComboBoxParamLua Then
                  Dim Param As ComboBoxParamLua = DirectCast(NewParam, ComboBoxParamLua)
                  Param.ItemListDDF = RefreshListGeometry(Param.ItemListDDF)
                  Param.ItemList = RefreshListGeometry(Param.ItemList)
                  If Param.ItemList.Count > 0 Then
                     Param.SetSelItem(Param.ItemList(0))
                  Else
                     Param.SetSelItem("")
                  End If
               ElseIf TypeOf NewParam Is ComboBoxOnOffParam Then
                  Dim Param = DirectCast(NewParam, ComboBoxOnOffParam)
                  Param.SetIsActive(False)
               End If

            End If
               ParamIndex += 1
         End While    ' termina lettura del capitolo

         GroupChapters.Add(Chapter)
         ParamIndex = 1
         ChapterIndex += 1
      End While    ' termina lettura della configurazione
      ' se la componente è di tipo frame allora esce
      Dim LocalCompoMatch As Compo = CreateChapterMatching()
      If Not IsNothing(LocalCompoMatch) AndAlso LocalCompoMatch.GroupVisibilityChapter = Visibility.Visible Then
         LocalCompoMatch.SetIsFixed(True)
         GroupChapters.Add(LocalCompoMatch)
      End If
      ' se la componente lo prevede allora aggiungo 
      Dim LocalCompoMatchDoor As Compo = CreateChapterMatchingDoor()
      If Not IsNothing(LocalCompoMatchDoor) AndAlso LocalCompoMatchDoor.GroupVisibilityChapter = Visibility.Visible Then
         LocalCompoMatchDoor.SetIsFixed(True)
         GroupChapters.Add(LocalCompoMatchDoor)
      End If
   End Sub

   ' recupera il l'elenco dei materiali indicati nella stringa e verifica se nell'elenco è presente il materiale attivo nella porta
   Private Sub IsCurrentMaterial(sMaterialList As List(Of String), ByRef bIsCurrentMaterial As Boolean)
      For Each ItemMaterial In sMaterialList
         bIsCurrentMaterial = False
         Dim ArrayItemMaterial As String() = ItemMaterial.Split("/"c)
         If Trim(ArrayItemMaterial(0)) = Trim(Map.refHardwarePageVM.GenericPart.SelectedMaterial.NameDDF) Then
            bIsCurrentMaterial = True
            Exit For
         End If
      Next
   End Sub

   Private Sub TrasformCurrParamInGhost(ByRef sParamLine As String, ByVal sDefaultValue As String)
      ' separo la stringa
      Dim sItems As String() = sParamLine.Split(";"c)
      If sItems.Count > 2 Then
         sItems(0) = "Ghost"
         sItems(2) = sDefaultValue
      End If
      ' riassemblo la stringa iniziale
      sParamLine = Trim(sItems(0)) & "; " & Trim(sItems(1)) & "; " & Trim(sItems(2))
   End Sub

   ' carico la liste dei nomi dei capitoli
   Private Function SetGroupChaptername(sName As String) As Boolean
      If m_GroupChapterName.Count = 0 Then m_GroupChapterName.Add(sName)
      Dim bFounded As Boolean = False
      For Index1 As Integer = 0 To m_GroupChapterName.Count - 1
         If m_GroupChapterName(Index1) = sName Then
            bFounded = True
            Exit For
         End If
      Next
      If Not bFounded Then m_GroupChapterName.Add(sName)
      Return True
   End Function

   ' elimina le liste di parametri precedenti ad ogni selezione
   Public Sub ClearGroupChapters()
      If Not IsNothing(GroupChapters) Then
         GroupChapters.Clear()
      End If
      NotifyPropertyChanged("GroupChapters")
   End Sub

   ' ricarico il file temporaneo
   Public Sub RelaoadTempCurrHardwareFile()
      ReadTemplate(CurrHardwareFilePath)
   End Sub

   ' legge  il file lua: verifica che il file esista e se necessario il tipo di versione (solo per le Lock)
   Friend Function ReadTemplate(Optional ByVal sFile As String = "") As Boolean
      ' inizio la lettura del file lua selezionato
      Dim FileContent() As String
      Dim CurrItemPath As String = CurrPath()
      Dim MatchingFile As String = String.Empty
      Dim MatchingFileDoor As String = String.Empty

      Dim Version As String = "2"   ' 2 è la versione nuova, 1 la versione vecchia
      Dim IsActiveVersion As Integer = 0
      Dim MakeHole As Boolean = False
      If StdTemplateGetPrivateProfileChapterVersioning("Versioning", "IsActive", IsActiveVersion) Then
         Version = "1"
      End If

      If Not String.IsNullOrEmpty(sFile) Then
         CurrItemPath = sFile
      End If

      If Not Path.HasExtension(CurrItemPath) Then
         CurrItemPath &= LUA_EXTENSION
      ElseIf Path.GetExtension(CurrItemPath).ToLower <> LUA_EXTENSION Then
         CurrItemPath &= LUA_EXTENSION
      End If
      Dim ErrorMsg As String = String.Empty
      ' se il file ha estensione o se ha estensione nge: esco
      If Path.GetExtension(CurrItemPath).ToLower = NGE_EXTENSION Then
         ' 50556=File has nge extension.
         ErrorMsg = EgtMsg(50556)
         Return False
      End If
      ' file does not exists
      If Not File.Exists(CurrItemPath) Then ErrorMsg = EgtMsg(50172) : Return False ' controllo che esiste il file altrimenti esco
      FileContent = File.ReadAllLines(CurrItemPath)
      ' se il file esiste ma è vuoto
      If FileContent.Count = 0 Then
         MessageBox.Show(EgtMsg(50107), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
      End If

      ' cerco la versione caricata
      If IsActiveVersion = 1 Then
         For Each Line In FileContent
            Dim CurrLine As String = Utility.DeleteLuaComment(Line)
            Dim sLine() As String = CurrLine.Split("="c)
            If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
            If sLine(0).Contains(".VER") Then
               If Not IsNothing(sLine(1)) AndAlso IsNumeric(sLine(1).Replace("'", "")) Then
                  Version = Trim(sLine(1).Replace("'", ""))
               End If
               Exit For
            End If
         Next
      End If

      Select Case Version
         Case "2"
            For IndexLine As Integer = 0 To FileContent.Count - 1
               Dim CurrLine As String = Utility.DeleteLuaComment(FileContent(IndexLine))
               Dim sLine() As String = CurrLine.Split("="c)
               If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
               FindParamTemplateInConfigList(Trim(sLine(0)), Trim(sLine(1)))
            Next
            ' nuova versione
         Case "1"
            ' se è una lock
            If m_HardwareGeneral.DDFName = "locks" Then
               ' cerco il Parametro mh per l'attivazione del foro
               For Each Line In FileContent
                  Dim CurrLine As String = Utility.DeleteLuaComment(Line)
                  Dim sLine() As String = CurrLine.Split("="c)
                  If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
                  If Trim(sLine(0)) = "tLkmPar.mh" Then
                     If Not IsNothing(sLine(1)) AndAlso Trim(sLine(1)) = "true" Then
                        MakeHole = True
                     End If
                     Exit For
                  End If
               Next
               For IndexLine As Integer = 0 To FileContent.Count - 1
                  Dim CurrLine As String = Utility.DeleteLuaComment(FileContent(IndexLine))
                  Dim sLine() As String = CurrLine.Split("="c)
                  If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
                  FindParamTemplateInConfigListOldVersionLock(Trim(sLine(0)), Trim(sLine(1)), MakeHole)
               Next
               Return True
            End If
            For IndexLine As Integer = 0 To FileContent.Count - 1
               Dim CurrLine As String = Utility.DeleteLuaComment(FileContent(IndexLine))
               Dim sLine() As String = CurrLine.Split("="c)
               If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
               FindParamTemplateInConfigList(Trim(sLine(0)), Trim(sLine(1)))
            Next
      End Select
      For IndexName As Integer = 0 To m_GroupChapterName.Count - 1
         CascadedChapter(m_GroupChapters, m_GroupChapterName(IndexName))
      Next

      ' ricerco il nome dell'associazione Frame
      MatchingFile = ReadMatchingFile(FileContent, K_MATCHING_FILE)
      LoadMatchingFile(MatchingFile, MATCHING_FILE_TEMPLATE)
      ' ricerco il nome dell'associazione Door
      MatchingFileDoor = ReadMatchingFile(FileContent, K_MATCHING_FILE_DOOR)
      LoadMatchingFile(MatchingFileDoor, MATCHING_FILE_TEMPLATE_DOOR)
      ' carcio i valori di default della componente
      ReadDefaultParamDDF(FileContent)
      Return True
   End Function

   Private Function CascadedChapter(CompoList As ObservableCollection(Of Compo), sGroupName As String) As Boolean
      ' salvo l'indice del primo parametro visibile
      Dim bLastVisible As Boolean = False
      For Index As Integer = 0 To CompoList.Count - 1
         If CompoList(Index).GroupNameChapter <> sGroupName Then Continue For
         If CompoList(Index).IsActiveChapter Then
            CompoList(Index).GroupVisibilityChapter = Visibility.Visible
         ElseIf Not CompoList(Index).IsActiveChapter And Not bLastVisible Then
            CompoList(Index).GroupVisibilityChapter = Visibility.Visible
            bLastVisible = True
         Else
            CompoList(Index).GroupVisibilityChapter = Visibility.Collapsed
         End If
      Next
      Return True
   End Function

   ' caricamento dei dati del file lua
   Private Function FindParamTemplateInConfigList(sParam As String, sValue As String) As Boolean
      For IndexGroupChapters As Integer = 0 To m_GroupChapters.Count - 1
         ' verifico che sia attivo il gruppo
         If Not m_GroupChapters(IndexGroupChapters).EnableChapter Then
            Continue For
         End If
         For IndexChapter As Integer = 0 To m_GroupChapters(IndexGroupChapters).CompoParamList.Count - 1
            If m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter).DDFName = sParam Then
               ' ho trovato una corrispondenza tra il valore de file ini e quello lua in lettura
               ' allora significa che tutto il capitolo associato deve essere attivo
               Dim AcitvateParamNotExists As Boolean = True
               For Each ItemParam In m_GroupChapters(IndexGroupChapters).CompoParamList
                  If TypeOf ItemParam Is ActivateParam Then
                     AcitvateParamNotExists = False
                     Exit For
                  End If
               Next
               If AcitvateParamNotExists Then m_GroupChapters(IndexGroupChapters).SetIsActiveChapter(True)
               ' m_GroupChapters(IndexGroupChapters).SetIsActiveChapter(True)
               If TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxDGCParam Then
                  Dim Text As TextBoxDGCParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxDGCParam)
                  ' se testo numerico, eseguo opportunbe conversioni per H,W e T
                  sValue = ConvertToDGD(Text.TypeVar, sValue)
                  ' separare il valore tra parentesi dai termini fuoir parentesi
                  Dim sItems() As String = sValue.Split("+"c)
                  If sItems.Count > 2 Then
                     For IndexArray As Integer = 1 To sItems.Count - 2
                        sItems(0) &= "+" & sItems(IndexArray)
                     Next
                     sItems(1) = sItems(sItems.Count - 1)
                  End If
                  Dim sLen As String = Trim(Utility.GetMeasure(sItems(0)))
                  Dim dVal As Double = 0.0
                  Text.SetValue(sLen)
                  Text.SetConst(Text.ConstList(0))
                  If sItems.Count >= 2 Then
                     For IndexConst As Integer = 0 To Text.ConstList.Count - 1
                        If Text.ConstList(IndexConst) = Trim(sItems(1)) Then Text.SetConst(Text.ConstList(IndexConst)) : Exit For
                     Next
                  End If
               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxThicknessParam Then
                  Dim Text As TextBoxThicknessParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxThicknessParam)
                  ' se testo numerico, eseguo opportunbe conversioni per H,W e T
                  sValue = ConvertToDGD(Text.TypeVar, sValue)
                  Dim dVal As Double
                  Text.SetConst(Text.ConstList(2))
                  Text.SetValue("")
                  If StringToDouble(sValue, dVal) AndAlso dVal < 0.0 Then
                     For IndexItem As Integer = 0 To Text.ConstList.Count - 1
                        If Text.ConstList(IndexItem).dValue = dVal Then
                           Text.SetConst(Text.ConstList(IndexItem))
                           Exit For
                        End If
                     Next
                  End If
                  If Text.SelConst.Name = OptionModule.m_SelectedMeasureUnit Then
                     Dim sLen As String = Trim(Utility.GetMeasure(sValue))
                     Text.SetValue(sLen)
                  End If
                  ' comunico che non c'è nessun tipo di errore nel valore caricato
                  m_GroupChapters(IndexGroupChapters).ErrorValue = False
                  m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter).NotifyPropertyChanged("ErrorParameter")

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxNgeParam Then
                  Dim Text As TextBoxNgeParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxNgeParam)
                  Text.SetValue(Trim(Utility.DeleteSuperScript(sValue)))

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxLuaParam Then
                  Dim Text As TextBoxLuaParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxLuaParam)
                  Text.SetValue(Trim(Utility.DeleteSuperScript(sValue)))

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxOnOffParam Then
                  Dim Text As TextBoxOnOffParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxOnOffParam)
                  ' estraggo il valore: -- NomeParamOnOff = inch(0.6); 0
                  Dim sItems() As String = sValue.Split(";"c)
                  sValue = sItems(0)
                  ' verifico se deve essere attivata
                  If sItems.Count > 1 Then
                     If sItems(1).Trim <> "0" Then
                        Text.SetIsActive(True)
                     Else
                        Text.SetIsActive(False)
                     End If
                  Else
                     Text.SetIsActive(True)
                  End If
                  ' se testo numerico, eseguo opportunbe conversioni per H,W e T
                  sValue = ConvertToDGD(Text.TypeVar, sValue)
                  ' controllo il tipo di dato che si aspetta 
                  Select Case Text.TypeVar
                     Case ConstGen.INCHES
                        Dim sLen As String = Trim(Utility.GetMeasure(sValue))
                        Text.SetValue(sLen)
                     Case ConstGen.MM
                        Dim sLen As String = Trim(Utility.GetMeasure(sValue))
                        Text.SetValue(sLen)
                     Case ConstGen.VAL_DOUBLE
                        Dim dVal As Double = 0.0
                        If StringToDouble(sValue, dVal) Then Text.SetValue(sValue) Else Text.SetValue("0.000")
                     Case ConstGen.VAL_STRING
                        Text.SetValue(Trim(Utility.DeleteSuperScript(sValue)))
                  End Select

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxParam Then
                  Dim Text As TextBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxParam)
                  ' se testo numerico, eseguo opportunbe conversioni per H,W e T
                  sValue = ConvertToDGD(Text.TypeVar, sValue)
                  ' controllo il tipo di dato che si aspetta 
                  Select Case Text.TypeVar
                     Case ConstGen.INCHES
                        Dim sLen As String = Trim(Utility.GetMeasure(sValue))
                        Text.SetValue(sLen)
                     Case ConstGen.MM
                        Dim sLen As String = Trim(Utility.GetMeasure(sValue))
                        Text.SetValue(sLen)
                     Case ConstGen.VAL_DOUBLE
                        Dim dVal As Double = 0.0
                        If StringToDouble(sValue, dVal) Then Text.SetValue(sValue) Else Text.SetValue("0.000")
                     Case ConstGen.VAL_STRING
                        Text.SetValue(Trim(Utility.DeleteSuperScript(sValue)))
                  End Select

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is CheckBoxParam Then
                  Dim Text As CheckBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), CheckBoxParam)
                  Text.SetIsChecked(Utility.ConvertCheckBox(sValue))
               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxParamLua Then
                  Dim Text As ComboBoxParamLua = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxParamLua)
                  Text.ItemListDDF = RefreshListGeometry(Text.ItemListDDF)
                  Text.ItemList = RefreshListGeometry(Text.ItemList)
                  If Text.ItemList.Count > 0 Then Text.SetSelItem(Text.ItemList(0))
                  Dim bExistItem As Boolean = False
                  For IndexCombo As Integer = 0 To Text.ItemListDDF.Count - 1
                     If Trim(Utility.DeleteSuperScript(Text.ItemListDDF(IndexCombo))) = Trim(Utility.DeleteSuperScript(sValue)) Then Text.SetSelItem(Text.ItemList(IndexCombo)) : bExistItem = True
                  Next
                  ' se non trovo nessuna corrispondenza allora segnalo un errore
                  If Not bExistItem Then
                     Text.ErrorInReading = True
                     ' aggiungo all'elenco il nome sbagliato
                     Text.ItemList.Add(Trim(Utility.DeleteSuperScript(sValue)))
                     Text.ItemListDDF.Add(Trim(sValue))
                     Text.SetSelItem(Text.ItemList(Text.ItemList.Count - 1))
                     ErrorReading = ErrorReading & String.Format(EgtMsg(50564), m_GroupChapters(IndexGroupChapters).TemplateName, m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter).Name, sValue) & vbCrLf
                  End If

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxOnOffParam Then
                  Dim Text As ComboBoxOnOffParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxOnOffParam)
                  ' estraggo il valore: -- NomeParamOnOff = inch(0.6); 0
                  Dim sItems() As String = sValue.Split(";"c)
                  sValue = sItems(0)
                  ' verifico se deve essere attivata
                  If sItems.Count > 1 Then
                     If sItems(1).Trim <> "0" Then
                        Text.SetIsActive(True)
                     Else
                        Text.SetIsActive(False)
                     End If
                  Else
                     Text.SetIsActive(True)
                  End If
                  Text.SetSelItem(Text.ItemList(0))
                  For IndexCombo As Integer = 0 To Text.ItemListDDF.Count - 1
                     If Trim(Utility.DeleteSuperScript(Text.ItemListDDF(IndexCombo))) = Trim(Utility.DeleteSuperScript(sValue)) Then Text.SetSelItem(Text.ItemList(IndexCombo))
                  Next

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxParam Then
                  Dim Text As ComboBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxParam)
                  Text.SetSelItem(Text.ItemList(0))
                  For IndexCombo As Integer = 0 To Text.ItemListDDF.Count - 1
                     If Trim(Utility.DeleteSuperScript(Text.ItemListDDF(IndexCombo))) = Trim(Utility.DeleteSuperScript(sValue)) Then Text.SetSelItem(Text.ItemList(IndexCombo))
                  Next
               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is GhostParam Then
                  Dim Text As GhostParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), GhostParam)
                  Text.Value = sValue
               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ActivateParam Then
                  Dim Text As ActivateParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ActivateParam)
                  Text.SetIsActivated(Utility.ConvertCheckBox(sValue))
                  m_GroupChapters(IndexGroupChapters).SetIsActiveChapter(Text.IsActivated)
               End If
               Return True
            End If
         Next
      Next
      Return False
   End Function

   Private Function RefreshListGeometry(ByRef GeometryList As ObservableCollection(Of String)) As ObservableCollection(Of String)
      Dim CurrListGeomtry As New ObservableCollection(Of String)
      If bIsFrame Then
         For Each ItemGeomtry In GeometryList
            If ItemGeomtry.ToLower.Contains("frame") Then
               CurrListGeomtry.Add(ItemGeomtry)
            End If
         Next
         Return CurrListGeomtry
      End If
      For Each ItemGeomtry In GeometryList
         If Not ItemGeomtry.ToLower.Contains("frame") Then
            CurrListGeomtry.Add(ItemGeomtry)
         End If
      Next
      Return CurrListGeomtry
   End Function

   ' restituisco la lista aggiornata delle geometrie
   Public Function GetCurrentListGeometry(CompoType As String, NameParam As String) As ObservableCollection(Of String)
      Dim sNameGeometry As String = String.Empty
      Dim sErrorList As String = String.Empty
      Dim ComboItemList As New ObservableCollection(Of String)
      If Not CompoMatch.ReserchInTable(CompoType, NameParam, sNameGeometry) Then
         ' Error reading {0} param in {1} compo: no matching (look at GeometryNameList.ini) .
         Dim sError As String = String.Format(EgtMsg(50502), NameParam, CompoType)
         sErrorList = ConcatErrorString(sErrorList, sError)
         Return ComboItemList
      End If

      Dim sComboItemList() As String = sNameGeometry.Split(","c)

      For ItemIndex = 0 To sComboItemList.Count - 1
         ComboItemList.Add(Trim(sComboItemList(ItemIndex)))
      Next
      Return RefreshListGeometry(ComboItemList)
   End Function

   ' so già che il file contiene un foro al posto di una mortise
   Private Function FindParamTemplateInConfigListOldVersionLock(sParam As String, sValue As String, MakeHole As Boolean) As Boolean
      If MakeHole Then
         Select Case sParam
            Case "tLkmPar.L2"
               sParam = ""
            Case "tLkmPar.H2"
               sParam = "tLkmPar.HB2"
            Case "tLkmPar.T2"
               sParam = "tLkmPar.TB2"
            Case "tLkmPar.D_X"
               sParam = "tLkmPar.DH_X"
            Case "tLkmPar.LG2"
               sParam = ""
            Case "tLkmPar.LA"
               sParam = ""
            Case "tLkmPar.s"
               sParam = ""
            Case "tLkmPar.p2"
               sParam = ""
            Case "tLkmPar.d2"
               sParam = ""
         End Select
      Else
         Select Case sParam
            Case "tLkmPar.LGH"
               sParam = ""
         End Select
      End If
      Return FindParamTemplateInConfigList(sParam, sValue)
   End Function

   ' ricerco nel file .lua dell'hardware se esiste un'associazione
   Private Function ReadMatchingFile(sFile() As String, sKey As String) As String
      Dim LineIndex As Integer = 0
      Dim ParamIndex As Integer = 1
      Dim FrameFile As String = String.Empty
      For LineIndex = 0 To sFile.Count - 1
         If RegexFunction.IsMatchingParameterTitle(sFile(LineIndex)) Then
            FrameFile = Trim(RegexFunction.ParamLine(sFile(LineIndex + ParamIndex), sKey))
            While String.IsNullOrEmpty(FrameFile) And LineIndex + ParamIndex < sFile(LineIndex + ParamIndex).Count
               ParamIndex += 1
               FrameFile = Trim(RegexFunction.ParamLine(sFile(LineIndex + ParamIndex), sKey))
               Exit For
            End While
         End If
      Next
      Return FrameFile
   End Function

   ' legge e carica i parametri da settare nel ddf
   Private Function ReadDefaultParamDDF(sFile() As String) As Boolean
      Dim LineIndex As Integer = 0
      Dim ParamIndex As Integer = 1
      Dim KeyParam As String = String.Empty
      Dim ValueParam As String = String.Empty
      ' inizio a leggere tutto il file lua
      For LineIndex = 0 To sFile.Count - 1
         ' verifico che eista il titolo [DDF parameters]
         If RegexFunction.IsDDFParameterTitle(sFile(LineIndex)) Then
            For Each Item In GroupChapters
               If Item.TemplateDDFName = "DDF" Then
                  ' carico il nome di ogni parametro scritto nella configurazione 
                  For Each ItemParam In Item.CompoParamList
                     ' recupero il nome del parametro ddf scritto nel file lua
                     KeyParam = Trim(RegexFunction.KeyParamLine(sFile(LineIndex + ParamIndex)))
                     While String.IsNullOrEmpty(KeyParam) AndAlso KeyParam = ItemParam.DDFName And LineIndex + ParamIndex < sFile(LineIndex + ParamIndex).Count
                        ParamIndex += 1
                        KeyParam = Trim(RegexFunction.KeyParamLine(sFile(LineIndex + ParamIndex)))
                     End While
                     If String.IsNullOrEmpty(KeyParam) Then Continue For
                     ValueParam = RegexFunction.ParamLine(sFile(LineIndex + ParamIndex), KeyParam)
                     If String.IsNullOrEmpty(ValueParam) Then Continue For
                     FindParamTemplateInConfigList(KeyParam, ValueParam)
                     ' passo alla riga successiva
                     LineIndex = LineIndex + ParamIndex
                     ParamIndex = 1
                  Next
               End If
            Next
         End If
      Next
      Return True
   End Function

   ' aggiorna la grafica (dato il nome del file) --> devo stampare gli errori
   Private Function LoadMatchingFile(MatchingFile As String, sNameChapter As String) As Boolean
      If String.IsNullOrEmpty(MatchingFile) Then Return False
      For Each ItemChapter In m_GroupChapters
         If ItemChapter.TemplateDDFName = sNameChapter Then
            Dim ComboBoxMatch As ComboBoxParam = DirectCast(ItemChapter.CompoParamList(0), ComboBoxParam)
            Dim sItem() As String = MatchingFile.Split("\"c)
            ' Hinge\StdMort.Frame\1_5s
            If sItem.Count > 2 Then
               For IndexCompoType As Integer = 0 To Map.refCompoPanelVM.CompoTypeList.Count - 1
                  If Path.GetFileName(Map.refCompoPanelVM.CompoTypeList(IndexCompoType).Path) = sItem(0) Then
                     ' ricerco la radice del direttorio
                     For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
                        If ComboBoxMatch.ItemListDDF(IndexParam) = Map.refCompoPanelVM.CompoTypeList(IndexCompoType).DDFName Then
                           ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemList(IndexParam))
                           Exit For
                        End If
                     Next
                     ' se il caricamento è fallito (non son stati caricati anche gli altri campi) allora esco
                     If ItemChapter.CompoParamList.Count < 2 Then
                        MatchingFile = String.Empty
                        Exit For
                     End If
                     ' ricerco il brand 
                     Dim ComboBoxBrand As ComboBoxParam = DirectCast(ItemChapter.CompoParamList(1), ComboBoxParam)
                     For IndexBrand As Integer = 0 To ComboBoxBrand.ItemListDDF.Count - 1
                        If ComboBoxBrand.ItemListDDF(IndexBrand) = sItem(1) Then
                           ComboBoxBrand.SetSelItem(ComboBoxBrand.ItemListDDF(IndexBrand))
                           Exit For
                        End If
                     Next
                     ' se non è stato trovato il brand corretto allora esco
                     If IsNothing(ComboBoxBrand.SelItem) Then
                        MatchingFile = String.Empty
                        Exit For
                     End If
                     ' ricerco il file
                     Dim ComboBoxFile As ComboBoxParam = DirectCast(ItemChapter.CompoParamList(2), ComboBoxParam)
                     For IndexFile As Integer = 0 To ComboBoxFile.ItemListDDF.Count - 1
                        If ComboBoxFile.ItemListDDF(IndexFile) = sItem(2) Then
                           ComboBoxFile.SetSelItem(ComboBoxFile.ItemListDDF(IndexFile))
                           Exit For
                        End If
                     Next
                     If IsNothing(ComboBoxFile.SelItem) Then
                        MatchingFile = String.Empty
                        Exit For
                     End If
                     ' termino le associazioni
                     Exit For
                  End If
               Next
            ElseIf MatchingFile <> "None" Then
               ' se  non è corretta l'estensione allora svuoto il nome associato
               MatchingFile = String.Empty
            Else
               For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
                  If ComboBoxMatch.ItemListDDF(IndexParam) = "None" Then
                     ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemListDDF(IndexParam))
                     Exit For
                  End If
               Next
            End If

            ' se l'associazione è andata a buon fine allora esco, altrimenti continuo
            If Not IsNothing(ComboBoxMatch.SelItem) Then Exit For

            ' "Automatic"
            If String.IsNullOrEmpty(MatchingFile) Then
               ' cerco di associare con "Automatic"
               For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
                  If ComboBoxMatch.ItemListDDF(IndexParam) = "Automatic" Then
                     ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemListDDF(IndexParam))
                     Exit For
                  End If
               Next
               ' se fallisce associo "None"
               If IsNothing(ComboBoxMatch.SelItem) Then
                  For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
                     If ComboBoxMatch.ItemListDDF(IndexParam) = "None" Then
                        ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemList(IndexParam))
                        Exit For
                     End If
                  Next
               End If
            ElseIf Trim(MatchingFile) = "None" Then
               For IndexParam As Integer = 0 To ComboBoxMatch.ItemListDDF.Count - 1
                  If ComboBoxMatch.ItemListDDF(IndexParam) = "None" Then
                     ComboBoxMatch.SetSelItem(ComboBoxMatch.ItemList(IndexParam))
                     Exit For
                  End If
               Next
            End If
         End If
      Next
      Return True
   End Function

#End Region    ' Caricamneto

#Region "Salvataggio, Duplica, Nuovo, Aggiorna"

   Public Function Duplicate(sSelBrand As String, sTemplate As String) As Boolean
      DoRefresh = False
      If IsNothing(sTemplate) Then
         ' Missing name of the new template!
         MessageBox.Show(EgtMsg(50174), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Exclamation)
         Return False
      End If
      ' ricostruico il percorso del file da dupicare
      Dim OldDirPath As String = CurrPath()
      ' ricostruisco il nuovo file da creare
      Dim ModelDir As String = String.Empty
      If sSelBrand <> RegexFunction.ModelTemplate(m_HardwareGeneral.Path) Then ModelDir = sSelBrand & "\"
      Dim CurrDirPath As String = m_HardwareGeneral.Path & "\" & ModelDir & sTemplate & LUA_EXTENSION

      Dim IndexModel As Integer
      Dim TemSelBrand As String = String.Empty
      ' carico la lista dei file presenti nel direttorio selezionato
      Dim Temp_TemplateList As New ObservableCollection(Of String)
      For IndexModel = 0 To m_HardwareGeneral.HardwareFolderList.Count - 1
         If m_HardwareGeneral.HardwareFolderList(IndexModel).ModelDirGraphic = sSelBrand Then
            TemSelBrand = m_HardwareGeneral.HardwareFolderList(IndexModel).ModelDirGraphic
            Temp_TemplateList = m_HardwareGeneral.HardwareFolderList(IndexModel).ModelFileList
            Exit For
         End If
      Next
      ' controllo se il nome è già presente nel direttorio selezionato
      Dim bNameExist As Boolean = False
      Dim IndexHardwList As Integer
      For IndexHardwList = 0 To Temp_TemplateList.Count - 1
         If Temp_TemplateList(IndexHardwList) = sTemplate Then
            ' se il nome è nella lista allora esco dal ciclo e rendo falsa la variabile bNameExist
            bNameExist = True
            Exit For
         End If
         bNameExist = False
      Next

      Dim MsgBoxResult As MessageBoxResult = MessageBoxResult.OK
      ' se il nome esite già nel direttorio selezionato
      If bNameExist Then
         ' The file: {0} already exist in directory {1} . Do you want to overwrite it
         Select Case MessageBox.Show(String.Format(EgtMsg(50175), sTemplate, sSelBrand), EgtMsg(50144), MessageBoxButton.YesNo, MessageBoxImage.Warning)
            ' decido di sovrescrivere il file esistente
            Case MessageBoxResult.Yes
               If CurrDirPath = OldDirPath Then
                  MsgBoxResult = MessageBoxResult.Yes
               End If
               ' non eseguo nulla perchè il file è sempre se stesso!
               ' Return True
            Case Else
               ' deicido di non sovrescrivere interrompo 
               Return False
         End Select
      End If
      ' se non esiste il file con questo nome
      If Not MsgBoxResult = MessageBoxResult.Yes Then
         ' elimino ilnome dalla lista dei file (alla fine il nome verrà aggiunto ancora)
         For IndexTempList As Integer = 0 To Temp_TemplateList.Count - 1
            If Temp_TemplateList(IndexTempList) = sTemplate Then
               Temp_TemplateList.RemoveAt(IndexTempList)
               Exit For
            End If
         Next
         ' carico le variabili temporanee e aggiorno la grafica (lista dei file e Brand selezionato)
         m_SelBrand = m_HardwareGeneral.HardwareFolderList(IndexModel)
         TemplateList = Temp_TemplateList
         NotifyPropertyChanged("TemplateList")
         NotifyPropertyChanged("SelBrand")
         ' copio il file 
         Try
            File.Copy(OldDirPath, CurrDirPath, True)
            m_SelTemplate = sTemplate
         Catch ex As System.IO.IOException
            ' 50190=Error in copying: {0}
            MessageBox.Show(String.Format(EgtMsg(50190), ex.Message))
            ' interrompo la copia e la creazione 
            Return False
         End Try
         ' aggiungo il nome alla lista
         RefreshTemplateListEgtDOORCreator()
      End If

      'TemplateList.Add(sTemplate)
      For IndexTempList As Integer = 0 To m_TemplateList.Count - 1
         ' aggiorno la grafica con il valore selzionato tra i template
         If m_TemplateList(IndexTempList) = sTemplate Then SelTemplate = m_TemplateList(IndexTempList)
      Next
      ' SetLayerName(sTemplate)
      DoRefresh = True
      Return True
   End Function

   Public Function NewHardware(sSelBrand As String, sTemplate As String, sType As TypeHardware) As Boolean
      DoRefresh = False
      ' ricostruico il percorso del file nuovo
      Dim ModelDir As String = String.Empty
      ModelDir = String.Empty
      If sSelBrand <> RegexFunction.ModelTemplate(m_HardwareGeneral.Path) Then ModelDir = sSelBrand & "\"
      Dim CurrDirPath As String = m_HardwareGeneral.Path & "\" & ModelDir & sTemplate & LUA_EXTENSION
      Dim IndexModel As Integer
      Dim TemSelBrand As String = String.Empty
      ' carico la lista dei file presenti nel direttorio selezionato
      Dim Temp_TemplateList As New ObservableCollection(Of String)
      For IndexModel = 0 To m_HardwareGeneral.HardwareFolderList.Count - 1
         If m_HardwareGeneral.HardwareFolderList(IndexModel).ModelDirGraphic = sSelBrand Then
            TemSelBrand = m_HardwareGeneral.HardwareFolderList(IndexModel).ModelDirGraphic
            Temp_TemplateList = m_HardwareGeneral.HardwareFolderList(IndexModel).ModelFileList
            Exit For
         End If
      Next
      ' controllo se il nome è già presente nel direttorio selezionato
      Dim bNameExist As Boolean = False
      Dim IndexHardwList As Integer
      For IndexHardwList = 0 To Temp_TemplateList.Count - 1
         If Temp_TemplateList(IndexHardwList) = sTemplate Then
            ' se il nome è nella lista allora esco dal ciclo e rendo falsa la variabile bNameExist
            bNameExist = True
            Exit For
         End If
         bNameExist = False
      Next
      ' se il nome esite già nel direttorio selezionato
      If bNameExist Then
         ' The file: {0} already exist in directory {1} . Do you want to overwrite it
         Select Case MessageBox.Show(String.Format(EgtMsg(50175), sTemplate, sSelBrand), EgtMsg(50144), MessageBoxButton.YesNo, MessageBoxImage.Warning)
            ' decido di sovrescrivere il file esistente
            Case MessageBoxResult.Yes
               If File.Exists(CurrDirPath) Then
                  Try
                     ' elimino il file
                     File.Delete(CurrDirPath)
                  Catch ex As FileNotFoundException
                     ' non è un problema
                  Catch ex As Exception
                     ' non è un problema
                  End Try
               End If
            Case Else
               ' deicido di non sovrescrivere interrompo 
               Return False
         End Select
      End If
      ' elimino il nome dalla lista dei file (alla fine il nome verrà aggiunto ancora)
      For IndexTempList As Integer = 0 To Temp_TemplateList.Count - 1
         If Temp_TemplateList(IndexTempList) = sTemplate Then
            Temp_TemplateList.RemoveAt(IndexTempList)
            Exit For
         End If
      Next
      ' carico le variabili temporanee e aggiorno la grafica (lista dei file e Brand selezionato)
      bNewHardware = True
      SelBrand = m_HardwareGeneral.HardwareFolderList(IndexModel)
      TemplateList = Temp_TemplateList
      SelType = sType
      NotifyPropertyChanged("TemplateList")
      NotifyPropertyChanged("SelBrand")
      ' ripulisco la lista da eventuali residui di altri Hardware
      ClearGroupChapters()
      ' rileggo le component dell'hardware da StdTemplate
      ReadChapterTemplate()
      ' salvo il nome del file corrente nel Layer 
      SetLayerName(sTemplate)
      bNewHardware = False
      Dim ErrorMsg As String = String.Empty
      Dim NewFileContent As New ObservableCollection(Of String)
      If Not WriteFile(NewFileContent) Then Return False

      ' scrivo tutto sul file corrente
      Try
         File.WriteAllLines(CurrDirPath, NewFileContent)
      Catch ex As System.IO.IOException
         ' Error in copying: 
         MessageBox.Show(String.Format(EgtMsg(50176), ex.Message))
         Return False
      End Try

      Map.refProjectManagerHardwareVM.IsModified = False
      RefreshTemplateListEgtDOORCreator()
      'TemplateList.Add(sTemplate)
      For IndexTempList As Integer = 0 To m_TemplateList.Count - 1
         ' aggiorno la grafica con il valore selzionato tra i template
         If m_TemplateList(IndexTempList) = sTemplate Then SelTemplate = m_TemplateList(IndexTempList)
      Next
      DoRefresh = True
      Return True
   End Function

   ' nel caso di creazione di nuovo Hardware questa funzione attribuisce il nome del file al parametro Nome (quello usato dal layer)
   Public Function SetLayerName(sTemplateName As String) As Boolean
      For Each Compo In m_GroupChapters
         For Each Param In Compo.CompoParamList
            If Param.DDFName.Contains("Nome") And TypeOf Param Is TextBoxParam Then
               Dim Text As TextBoxParam = DirectCast(Param, TextBoxParam)
               Dim LayerName = String.Empty
               If Not String.IsNullOrWhiteSpace(sTemplateName) Then
                  LayerName = Path.GetFileName(sTemplateName)
                  If Not String.IsNullOrWhiteSpace(LayerName) Then
                     Text.SetValue(Trim(LayerName))
                  Else
                     Text.SetValue(Trim(sTemplateName))
                  End If
               End If
               Return True
            End If
         Next
      Next
      Return False
   End Function

   ' per caricare a video il nome del file nge
   Public Function SetGeometryName(sGeometryName As String) As Boolean
      For Each Compo In m_GroupChapters
         For Each Param In Compo.CompoParamList
            If Param.DDFName.Contains(".CGF") And TypeOf Param Is TextBoxNgeParam Then
               Dim Text As TextBoxNgeParam = DirectCast(Param, TextBoxNgeParam)
               Text.SetValue(Trim(sGeometryName))
               Return True
            End If
         Next
      Next
      Return False
   End Function

   ' per caricare a video il nome del file nge
   Public Function GetGeometryName() As String
      For Each Compo In m_GroupChapters
         For Each Param In Compo.CompoParamList
            If Param.DDFName.Contains(".CGF") And TypeOf Param Is TextBoxNgeParam Then
               Dim Text As TextBoxNgeParam = DirectCast(Param, TextBoxNgeParam)
               If String.IsNullOrEmpty(Text.Value) Then
                  Return ""
               Else
                  Return Text.Value
               End If
            End If
         Next
      Next
      Return ""
   End Function

   ' per caricare a video il nome del file lua
   Public Function SetLuaFileInAggregate(sLuaFile As String, ByVal sDDFParam As String) As Boolean
      If String.IsNullOrWhiteSpace(sDDFParam) Then sDDFParam = ".Name"
      For Each Compo In m_GroupChapters
         For Each Param In Compo.CompoParamList
            If Param.DDFName.Contains(sDDFParam) And TypeOf Param Is TextBoxLuaParam Then
               Dim Text As TextBoxLuaParam = DirectCast(Param, TextBoxLuaParam)
               Text.SetValue(Trim(sLuaFile))
            End If
         Next
      Next
      Return False
   End Function

   Public Function DuplicateGeometryName(OldTemplateName As String) As Boolean
      Dim OldGeometryName As String = String.Empty
      Dim NewGeometryName As String = String.Empty
      If String.IsNullOrWhiteSpace(OldTemplateName) OrElse Not File.Exists(OldTemplateName) Then Return False
      Dim FileContent() As String = File.ReadAllLines(OldTemplateName)
      For Each Line In FileContent
         Dim CurrLine As String = Utility.DeleteLuaComment(Line)
         Dim sLine() As String = CurrLine.Split("="c)
         If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
         If Not Trim(sLine(0)).Contains(".CGF") Then Continue For
         OldGeometryName = Path.GetDirectoryName(OldTemplateName) & "\" & Trim(sLine(1).Replace("'", ""))
         If Not File.Exists(OldGeometryName) Then Return False
         NewGeometryName = CopyGeometryName(OldTemplateName, OldGeometryName)
         Try
            File.Copy(OldGeometryName, NewGeometryName, True)
         Catch ex As System.IO.IOException
            ' Error in copying: 
            MessageBox.Show(String.Format(EgtMsg(50176), ex.Message))
            ' interrompo la copia e la creazione 
            Return False
         End Try
         Exit For
      Next
      For Each Compo In m_GroupChapters
         For Each Param In Compo.CompoParamList
            If Param.DDFName.Contains(".CGF") And TypeOf Param Is TextBoxNgeParam Then
               Dim Text As TextBoxNgeParam = DirectCast(Param, TextBoxNgeParam)
               If Not String.IsNullOrEmpty(Text.Value) Then
                  Text.SetValue(Path.GetFileName(NewGeometryName))
                  Return RefreshTempHardware()
               Else
                  Text.SetValue("")
                  Return RefreshTempHardware()
               End If
            End If

         Next
      Next
      Return False
   End Function

   ' duplica i nomi dei file presenti nel file
   Public Function DuplicateFileLuaInAggreagate(OldTemplateName As String) As Boolean
      Dim OldFileLuaName As String = String.Empty
      Dim NewFileLuaName As String = String.Empty
      If String.IsNullOrWhiteSpace(OldTemplateName) OrElse Not File.Exists(OldTemplateName) Then Return False
      Dim FileContent() As String = File.ReadAllLines(OldTemplateName)
      For Each Line In FileContent
         Dim CurrLine As String = Utility.DeleteLuaComment(Line)
         Dim sLine() As String = CurrLine.Split("="c)
         If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For
         If Not Trim(sLine(0)).Contains(".Name") Then Continue For
         OldFileLuaName = Path.GetDirectoryName(OldTemplateName) & "\" & Trim(sLine(1).Replace("'", ""))
         If Not File.Exists(OldFileLuaName) Then Return False
         NewFileLuaName = CopyGeometryName(OldTemplateName, OldFileLuaName)
         Try
            File.Copy(OldFileLuaName, NewFileLuaName, True)
         Catch ex As System.IO.IOException
            ' Error in copying: 
            MessageBox.Show(String.Format(EgtMsg(50176), ex.Message))
            ' interrompo la copia e la creazione 
            Return False
         End Try

         For Each Compo In m_GroupChapters
            For Each Param In Compo.CompoParamList
               If Param.DDFName.Contains(Trim(sLine(0))) And TypeOf Param Is TextBoxLuaParam Then
                  Dim Text As TextBoxLuaParam = DirectCast(Param, TextBoxLuaParam)
                  If Not String.IsNullOrEmpty(Text.Value) Then
                     Text.SetValue(Path.GetFileName(NewFileLuaName))
                     RefreshTempHardware()
                  Else
                     Text.SetValue("")
                     RefreshTempHardware()
                  End If
               End If

            Next
         Next
      Next
      Return False
   End Function

   Private Function CopyGeometryName(OldTemplateName As String, OldGeometryName As String) As String
      Dim CurrDir As String = Path.GetDirectoryName(Me.CurrPath)
      Dim OldFileName As String = Path.GetFileName(OldGeometryName)
      If OldFileName.Contains(Path.GetFileNameWithoutExtension(OldTemplateName)) Then
         Return CurrDir & "\" & OldFileName.Replace(Path.GetFileNameWithoutExtension(OldTemplateName), Path.GetFileNameWithoutExtension(Me.m_SelTemplate))
      Else
         Return CurrDir & "\" & Me.m_SelTemplate & "_" & OldFileName
      End If
      Return String.Empty
   End Function

   ' crea il file temporaneao e scrive i valori dei parametri della componente per aggiornare la parte grafica
   Public Function RefreshTempHardware() As Boolean
      Dim ErrorMsg As String = String.Empty
      ' Pulisco da componenti precedenti
      Map.refHardwarePageVM.GenericPart.CompoList.Clear()
      If String.IsNullOrWhiteSpace(Map.refHardwarePageVM.CurrHardware.SelTemplate) Then Return False
      Dim NewFileContent As New ObservableCollection(Of String)
      If Not WriteFile(NewFileContent) Then Return False
      ' costruisco il nome del percorso del file corrente
      Dim ModelDir As String = String.Empty
      ' costruisco il percorso del file temporaneo nella cartella corrente:
      Dim CurrDirectoryInModelDir As String = Path.GetDirectoryName(Map.refHardwarePageVM.CurrHardware.SelTemplate)
      CurrDirectoryInModelDir = Trim(CurrDirectoryInModelDir.Replace(m_HardwareGeneral.Path, ""))
      'If m_SelBrand.ModelDir <> RegexFunction.ModelTemplate(m_HardwareGeneral.Path) Then ModelDir = m_SelBrand.ModelDirGraphic & "\"
      If m_SelBrand.ModelDir <> m_HardwareGeneral.Path Then ModelDir = m_SelBrand.ModelDirGraphic & "\"
      If Not String.IsNullOrWhiteSpace(CurrDirectoryInModelDir) Then ModelDir = ModelDir & CurrDirectoryInModelDir & "\"
      Dim sTempFileHardw As String = m_HardwareGeneral.Path & "\" & ModelDir & TEMP_FILE_HARDWARE
      ' salvo il file
      File.WriteAllLines(sTempFileHardw, NewFileContent)
      'LoadSwingFromTemplate()
      ' aggiungo la componente
      Map.refHardwarePageVM.GenericPart.AddNewHardware(m_HardwareGeneral, ModelDir & Path.GetFileNameWithoutExtension(TEMP_FILE_HARDWARE))
      CurrHardwareFilePath = sTempFileHardw
      If bIsFrame Then
         FindSideJamb()
      End If
      Return True
   End Function

   Public Function Save() As Boolean
      Dim ErrorMsg As String = String.Empty
      ' costruisco la Path del template da leggere
      Dim TemplFile = m_HardwareGeneral.Path & "\" & m_SelType.Name & ".templ "
      If Not File.Exists(TemplFile) Then Return False
      Dim FileContent() As String = File.ReadAllLines(TemplFile)
      Dim NewFileContent As New ObservableCollection(Of String)
      If Not WriteFile(NewFileContent) Then Return False
      ' costruisco il nome del percorso del file corrente
      Dim CurrConfig As String = m_HardwareGeneral.Path & "\" & CONFIGINI_FILE_NAME
      Dim CurrItemPath As String = CurrPath()
      ' salvo il file
      File.WriteAllLines(CurrItemPath, NewFileContent)
      'RefreshTemplateListEgtDOORCreator()
      Map.refProjectManagerHardwareVM.IsModified = False
      Map.refSceneManagerVM.RefreshBtn()
      Return True
   End Function

   Private Function WriteFile(ByRef NewFileContent As ObservableCollection(Of String)) As Boolean
      For IndexName As Integer = 0 To m_GroupChapterName.Count - 1
         CascadedChapter(m_GroupChapters, m_GroupChapterName(IndexName))
      Next
      Dim TemplFile = m_HardwareGeneral.Path & "\" & m_SelType.Name & ".templ "
      If Not File.Exists(TemplFile) Then Return False
      Dim FileContent() As String = File.ReadAllLines(TemplFile)
      ' inizio la lettura riga per riga
      For IndexLine As Integer = 0 To FileContent.Count - 1
         NewFileContent.Add(FileContent(IndexLine))
         WriteLuaCommentParamDDF(FileContent, IndexLine, NewFileContent)
         Dim CurrLine As String = Utility.DeleteLuaComment(FileContent(IndexLine))
         Dim sLine() As String = CurrLine.Split("="c)
         If sLine.Count < 2 OrElse sLine.Count > 2 Then Continue For ' significa che non è un parametro
         Dim sValue As String = Trim(sLine(1))
         Dim sTemplValue As String = Trim(sLine(1))
         If Not ConvertValueForLua(sValue) Then
            Continue For
         End If
         FileContent(IndexLine) = FileContent(IndexLine).Replace(sTemplValue, sValue)
         NewFileContent.RemoveAt(NewFileContent.Count - 1)
         If Not sValue = " nil" Then
            NewFileContent.Add(FileContent(IndexLine))
         End If
      Next
      If IsNothing(NewFileContent) Then Return False
      Return True
   End Function

   Private Function WriteLuaCommentParamDDF(sFile() As String, ByRef LineIndex As Integer, ByRef NewFileContent As ObservableCollection(Of String)) As Boolean
      Dim ParamIndex As Integer = 0
      Dim KeyParam As String = String.Empty
      Dim sValue As String = String.Empty
      ' verifico che esiste il titolo da stempare
      If RegexFunction.IsDDFParameterTitle(sFile(LineIndex)) Then
         ParamIndex = 1
         ' conto il numero di parametri ddf 
         Dim IndexParamDDF As Integer = 0
         For Each ItemChapetr In GroupChapters
            If ItemChapetr.TemplateDDFName = "DDF" Then
               IndexParamDDF = ItemChapetr.CompoParamList.Count
               Exit For
            End If
         Next
         ' cerco un numero finito di parametri
         For IndexParam As Integer = 0 To IndexParamDDF - 1
            If LineIndex + ParamIndex > sFile.Count - 1 Then Return False
            ' recuro il nome del parametro 
            KeyParam = Trim(RegexFunction.KeyParamLine(sFile(LineIndex + ParamIndex)))
            While String.IsNullOrEmpty(KeyParam) And LineIndex + ParamIndex < sFile(LineIndex + ParamIndex).Count
               ParamIndex += 1
               KeyParam = Trim(RegexFunction.KeyParamLine(sFile(LineIndex + ParamIndex)))
            End While
            If String.IsNullOrEmpty(KeyParam) Then Continue For
            sValue = RegexFunction.ParamLine(sFile(LineIndex + ParamIndex), KeyParam)
            Dim ReplaceValue = sValue
            ConvertValueForLua(sValue)
            sFile(LineIndex + ParamIndex) = sFile(LineIndex + ParamIndex).Replace(ReplaceValue, sValue)
            If Not sValue = " nil" Then
               NewFileContent.Add(sFile(LineIndex + ParamIndex))
            End If
            LineIndex = LineIndex + ParamIndex
         Next
      End If
      Return True
   End Function

   Public Function RefreshTemplateListEgtDOORCreator() As Boolean
      ReLoading = True
      For IndexHardw As Integer = 0 To Map.refCompoPanelVM.CompoTypeList.Count - 1
         If m_HardwareGeneral.DDFName = Map.refCompoPanelVM.CompoTypeList(IndexHardw).DDFName Then
            ' entro nella cartella della componente selezionata e ricarico le liste dei Brand
            Map.refCompoPanelVM.CompoTypeList(IndexHardw).LoadListTemplate()
            For Each ItemCompo In Map.refCompoPanelHardwareVM.CompoTypeList
               If ItemCompo.DDFName = Map.refCompoPanelVM.CompoTypeList(IndexHardw).DDFName Then
                  ItemCompo.LoadListTemplate()
               End If
            Next
            ' carico l'elnco delle cartelle Frame
            m_HardwareGeneral.FrameFolderList = Map.refCompoPanelVM.CompoTypeList(IndexHardw).FrameFolderList
            ' devo ricaricare tutte le liste!
            m_HardwareGeneral.HardwareFolderList = Map.refCompoPanelVM.CompoTypeList(IndexHardw).HardwareFolderList
            If m_HardwareGeneral.HardwareFolderList.Count = 0 Then
               Dim CurrFolder = New CompoBrandDir(m_HardwareGeneral.Path, Path.GetFileName(m_HardwareGeneral.Path))
               m_HardwareGeneral.HardwareFolderList.Add(CurrFolder)
            End If
            NotifyPropertyChanged("BrandList")
            For Each Item In BrandList
               If m_LastDirectory.ModelDir = Item.ModelDir Then
                  SelBrand = Item
                  NotifyPropertyChanged("BrandList")
                  NotifyPropertyChanged("SelBrand")
                  Exit For
               End If
            Next
            ReLoading = False
            Return True
            Exit For
         End If
      Next
      ReLoading = False
      Return False
   End Function

   ' dato il nome del parametri sostiuisce il valore da stampare
   Public Function ConvertValueForLua(ByRef sValue As String) As Boolean
      Dim bIsActive As Boolean = True
      Dim NameParam = Utility.FindNameParam(sValue)
      If String.IsNullOrEmpty(NameParam) Then Return False

      If NameParam = K_MATCHING_FILE Then
         For IndexGroupChapters As Integer = 0 To m_GroupChapters.Count - 1
            If m_GroupChapters(IndexGroupChapters).TemplateDDFName = MATCHING_FILE_TEMPLATE Then
               sValue = String.Empty
               If DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem = MATCHING_FILE_AUTOMATIC Then
                  sValue = String.Empty
                  Return True
               ElseIf DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem = MATCHING_FILE_NONE Then
                  sValue = MATCHING_FILE_NONE
                  Return True
               End If
               For Each Item In Map.refCompoPanelVM.CompoTypeList
                  If Item.Name = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem Then
                     sValue &= Path.GetFileName(Item.Path)
                     Exit For
                  End If
               Next
               If m_GroupChapters(IndexGroupChapters).CompoParamList.Count > 2 Then
                  sValue &= "\" & DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(1), ComboBoxParam).SelItem
                  sValue &= "\" & DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(2), ComboBoxParam).SelItem
                  Return True
               End If
            End If
         Next
         Return False
      End If

      If NameParam = K_MATCHING_FILE_DOOR Then
         For IndexGroupChapters As Integer = 0 To m_GroupChapters.Count - 1
            If m_GroupChapters(IndexGroupChapters).TemplateDDFName = MATCHING_FILE_TEMPLATE_DOOR Then
               sValue = String.Empty
               If DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem = MATCHING_FILE_AUTOMATIC Then
                  sValue = String.Empty
                  Return True
               ElseIf DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem = MATCHING_FILE_NONE Then
                  sValue = MATCHING_FILE_NONE
                  Return True
               End If
               For Each Item In Map.refCompoPanelVM.CompoTypeList
                  If Item.Name = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(0), ComboBoxParam).SelItem Then
                     sValue &= Path.GetFileName(Item.Path)
                     Exit For
                  End If
               Next
               If m_GroupChapters(IndexGroupChapters).CompoParamList.Count > 2 Then
                  sValue &= "\" & DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(1), ComboBoxParam).SelItem
                  sValue &= "\" & DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(2), ComboBoxParam).SelItem
                  Return True
               End If
            End If
         Next
         Return False
      End If

      For IndexGroupChapters As Integer = 0 To m_GroupChapters.Count - 1
         ' se il presente gruppo non è attivo passo al successivo (di default assegno "nil", in caso di uscita senza gruppo il valore 
         If Not m_GroupChapters(IndexGroupChapters).EnableChapter Then
            sValue = " nil"
            Continue For
         End If
         For IndexChapter As Integer = 0 To m_GroupChapters(IndexGroupChapters).CompoParamList.Count - 1
            If m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter).DDFName = NameParam Then
               ' verifico che il parametro da stampare sia abilitato alla stampa (altriementi NON scrivere nel file)  
               If Not m_GroupChapters(IndexGroupChapters).IsActiveChapter Then sValue = " nil" : Return True

               If TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxDGCParam Then
                  Dim Text As TextBoxDGCParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxDGCParam)
                  sValue = String.Empty
                  Select Case Text.TypeVar
                     Case ConstGen.INCHES
                        If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
                           If Text.ToolTipValue.Contains("Invalid") Then
                              sValue = "0.0000"
                           Else
                              sValue = Text.TypeVar & "( " & Text.Value & ")"
                           End If
                        Else
                           sValue = Text.Value
                           If MmToInches(sValue) Then sValue = Text.TypeVar & "( " & sValue & ")"
                        End If
                     Case ConstGen.MM
                        If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
                           sValue = Text.Value
                           InchesToMm(sValue)
                        Else
                           If Text.ToolTipValue.Contains("Invalid") Then
                              sValue = "0.0000"
                           Else
                              sValue = Text.Value
                           End If
                        End If
                  End Select
                  ' se testo numerico, eseguo opportune conversioni per H,W e T
                  sValue = ConvertFromDGD(Text.TypeVar, sValue)
                  sValue &= " + " & Text.SelConst
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxThicknessParam Then
                  Dim Text As TextBoxThicknessParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxThicknessParam)
                  sValue = String.Empty
                  If Text.SelConst.dValue = 0 Then
                     Select Case Text.TypeVar
                        Case ConstGen.INCHES
                           If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
                              If Text.ToolTipValue.Contains("Invalid") Then
                                 sValue = "0.0000"
                              Else
                                 sValue = Text.TypeVar & "( " & Text.Value & ")"
                              End If
                           Else
                              sValue = Text.Value
                              If MmToInches(sValue) Then sValue = Text.TypeVar & "( " & sValue & ")"
                           End If
                        Case ConstGen.MM
                           If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
                              sValue = Text.Value
                              InchesToMm(sValue)
                           Else
                              If Text.ToolTipValue.Contains("Invalid") Then
                                 sValue = "0.0000"
                              Else
                                 sValue = Text.Value
                              End If
                           End If
                     End Select
                     ' se testo numerico, eseguo opportune conversioni per H,W e T
                     sValue = ConvertFromDGD(Text.TypeVar, sValue)
                     Return True
                  End If
                  sValue = DoubleToString(Text.SelConst.dValue, 1)
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxNgeParam Then
                  Dim Text As TextBoxNgeParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxNgeParam)
                  sValue = String.Empty
                  sValue = "'" & Text.Value & "'"
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxLuaParam Then
                  Dim Text As TextBoxLuaParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxLuaParam)
                  sValue = String.Empty
                  sValue = "'" & Text.Value & "'"
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxOnOffParam Then
                  Dim Text As TextBoxOnOffParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxOnOffParam)
                  sValue = String.Empty
                  ' controllo il tipo di dato che si aspetta 
                  Select Case Text.TypeVar
                     Case ConstGen.INCHES
                        If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
                           If Text.ToolTipValue.Contains("Invalid") Then
                              sValue = "0.0000"
                           Else
                              sValue = Text.TypeVar & "( " & Text.Value & ")"
                           End If
                           'sValue = Text.TypeVar & "( " & Text.ToolTipValue & ")"
                        Else
                           sValue = Text.Value
                           If MmToInches(sValue) Then sValue = Text.TypeVar & "( " & sValue & ")"
                        End If
                     Case ConstGen.MM
                        If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
                           sValue = Text.Value
                           InchesToMm(sValue)
                        Else
                           If Text.ToolTipValue.Contains("Invalid") Then
                              sValue = "0.0000"
                           Else
                              sValue = Text.Value
                           End If
                           'sValue = Text.ToolTipValue
                        End If
                     Case ConstGen.VAL_DOUBLE
                        sValue = Text.Value
                     Case ConstGen.VAL_STRING
                        sValue = "'" & Text.Value & "'"
                  End Select
                  ' se testo numerico, eseguo opportune conversioni per H,W e T
                  sValue = ConvertFromDGD(Text.TypeVar, sValue)
                  ' se parametro spento (Solo per capitolo DDF)
                  If Not Text.IsActive Then
                     If m_GroupChapters(IndexGroupChapters).TemplateDDFName = "DDF" Then
                        sValue &= "; 0"
                     Else
                        ' per inidicare di spegnere il valore deve essere restituito il valore " nill"
                        sValue = " nil"
                     End If
                  End If
                  Return True
               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxParam Then
                  Dim Text As TextBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxParam)
                  sValue = String.Empty
                  ' controllo il tipo di dato che si aspetta 
                  Select Case Text.TypeVar
                     Case ConstGen.INCHES
                        If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
                           If Text.ToolTipValue.Contains("Invalid") Then
                              sValue = "0.0000"
                           Else
                              sValue = Text.TypeVar & "( " & Text.Value & ")"
                           End If
                           'sValue = Text.TypeVar & "( " & Text.ToolTipValue & ")"
                        Else
                           sValue = Text.Value
                           If MmToInches(sValue) Then sValue = Text.TypeVar & "( " & sValue & ")"
                        End If
                     Case ConstGen.MM
                        If OptionModule.m_SelectedMeasureUnit = ConstGen.VAL_INCHES Then
                           sValue = Text.Value
                           InchesToMm(sValue)
                        Else
                           If Text.ToolTipValue.Contains("Invalid") Then
                              sValue = "0.0000"
                           Else
                              sValue = Text.Value
                           End If
                           'sValue = Text.ToolTipValue
                        End If
                     Case ConstGen.VAL_DOUBLE
                        sValue = Text.Value
                     Case ConstGen.VAL_STRING
                        sValue = "'" & Text.Value & "'"
                  End Select
                  ' se testo numerico, eseguo opportune conversioni per H,W e T
                  sValue = ConvertFromDGD(Text.TypeVar, sValue)
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is TextBoxNgeParam Then
                  Dim Text As TextBoxNgeParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), TextBoxNgeParam)
                  sValue = "'" & Text.Value & "'"
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is CheckBoxParam Then
                  Dim Text As CheckBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), CheckBoxParam)
                  sValue = String.Empty
                  If Text.IsChecked Then sValue = " true" Else sValue = " false"
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ActivateParam Then
                  Dim Text As ActivateParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ActivateParam)
                  sValue = String.Empty
                  If Text.IsActivated Then sValue = " true" Else sValue = " false"
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxParamLua Then
                  Dim Text As ComboBoxParamLua = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxParamLua)
                  sValue = String.Empty
                  For Index As Integer = 0 To Text.ItemList.Count - 1
                     If Text.SelItem = Text.ItemList(Index) Then sValue = Text.ItemListDDF(Index) : Return True
                  Next
                  sValue = Text.SelItem
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxOnOffParam Then
                  '-- attenzione a quando abbiamo da stampare delle stringhe! e non dei valori numerici
                  Dim Text As ComboBoxOnOffParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxOnOffParam)
                  sValue = String.Empty
                  For Index As Integer = 0 To Text.ItemList.Count - 1
                     If Text.SelItem = Text.ItemList(Index) Then sValue = Text.ItemListDDF(Index)
                  Next
                  If String.IsNullOrEmpty(sValue) Then
                     sValue = Text.SelItem
                  End If
                  ' se parametro spento
                  If Not Text.IsActive Then
                     If m_GroupChapters(IndexGroupChapters).TemplateDDFName = "DDF" Then
                        sValue &= "; 0"
                     Else
                        ' per inidicare di spegnere il valore deve essere restituito il valore " nill"
                        sValue = " nil"
                     End If
                  End If
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is ComboBoxParam Then
                  '-- attenzione a quando abbiamo da stampare delle stringhe! e non dei valori numerici
                  Dim Text As ComboBoxParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), ComboBoxParam)
                  sValue = String.Empty
                  For Index As Integer = 0 To Text.ItemList.Count - 1
                     If Text.SelItem = Text.ItemList(Index) Then sValue = Text.ItemListDDF(Index) : Return True
                  Next
                  sValue = Text.SelItem
                  Return True

               ElseIf TypeOf m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter) Is GhostParam Then
                  Dim Text As GhostParam = DirectCast(m_GroupChapters(IndexGroupChapters).CompoParamList(IndexChapter), GhostParam)
                  sValue = Text.Value
                  Return True
               End If
            End If
         Next
      Next
      Return True
   End Function

   ' lista delle riposte della funzione SaveControl
   Enum SaveResult As Integer
      nYes
      nNo
      nCancel
   End Enum

   ' restituisce il messaggio della selezione
   Public Function SaveControl() As SaveResult
      If ReLoading Then Return SaveResult.nYes

      If Not Map.refProjectManagerHardwareVM.IsModified Then Return SaveResult.nNo
      ' Do you want to save the current changes?
      Select Case MessageBox.Show(EgtMsg(50177), "", MessageBoxButton.YesNoCancel, MessageBoxImage.Question)
         Case MessageBoxResult.Yes    ' decido di salvare
            Save()
            Return SaveResult.nYes
         Case MessageBoxResult.No     ' decido di non salvare
            Map.refProjectManagerHardwareVM.IsModified = False
            Return SaveResult.nNo
         Case Else                    ' altrimenti non salvo
            Return SaveResult.nCancel
      End Select
   End Function

   Public Function DeleteHardware() As Boolean
      DoRefresh = False
      DeleteGeometry()
      DeleteFileLuaInAggreagate()
      Dim CurrDirPath As String = CurrPath()
      BackupDeletingFile(CurrDirPath)
      For Each ItemFile In m_TemplateList
         If ItemFile = m_SelTemplate Then
            Dim IndexList As Integer = m_TemplateList.IndexOf(m_SelTemplate)
            m_TemplateList.Remove(m_SelTemplate)
            If IndexList > 0 Then
               SelTemplate = m_TemplateList(IndexList - 1)
            ElseIf IndexList = 0 And m_TemplateList.Count > 0 Then
               SelTemplate = m_TemplateList(IndexList)
            Else
               SelTemplate = Nothing
            End If
            Exit For
         End If
      Next
      If File.Exists(CurrDirPath) Then
         Try
            File.Delete(CurrDirPath)
         Catch ex As Exception
         End Try
      End If
      DoRefresh = True
      RefreshTemplateListEgtDOORCreator()
      NotifyPropertyChanged("TemplateList")
      Return True
   End Function

   Private Function DeleteGeometry() As Boolean
      Dim sGeometryName As String
      For Each Compo In m_GroupChapters
         For Each Param In Compo.CompoParamList
            If Param.DDFName.Contains(".CGF") And TypeOf Param Is TextBoxNgeParam Then
               Dim Text As TextBoxNgeParam = DirectCast(Param, TextBoxNgeParam)
               If Not String.IsNullOrWhiteSpace(Text.Value) Then
                  sGeometryName = Path.GetDirectoryName(Me.CurrPath) & "\" & Text.Value
                  BackupDeletingFile(sGeometryName)
                  If File.Exists(sGeometryName) Then
                     Try
                        File.Delete(sGeometryName)
                     Catch ex As Exception
                     End Try
                  End If
               End If
               Return True
            End If
         Next
      Next
      Return False
   End Function

   Private Function DeleteFileLuaInAggreagate() As Boolean
      Dim sFileName As String
      For Each Compo In m_GroupChapters
         For Each Param In Compo.CompoParamList
            If Param.DDFName.Contains(".Name") And TypeOf Param Is TextBoxLuaParam Then
               Dim Text As TextBoxLuaParam = DirectCast(Param, TextBoxLuaParam)
               If Not String.IsNullOrWhiteSpace(Text.Value) Then
                  sFileName = Path.GetDirectoryName(Me.CurrPath) & "\" & Text.Value
                  BackupDeletingFile(sFileName)
                  If File.Exists(sFileName) Then
                     Try
                        File.Delete(sFileName)
                     Catch ex As Exception
                     End Try
                  End If
               End If
            End If
         Next
      Next
      Return False
   End Function

   ' salvo nella cartella di Backup
   Public Function BackupDeletingFile(DeletingFileName As String) As Boolean
      Dim sCurrTime As String = Date.UtcNow.ToString.Replace(" ", "_")
      sCurrTime = sCurrTime.Replace("/", "-")
      sCurrTime = sCurrTime.Replace(":", "-")
      Dim BackupFileName As String = Path.GetFileNameWithoutExtension(DeletingFileName) & " " & sCurrTime
      If Not Directory.Exists(BackupDir) Then
         Directory.CreateDirectory(BackupDir)
      End If
      BackupFileName = BackupDir & "\" & BackupFileName & Path.GetExtension(DeletingFileName)
      ' copio il file 
      Try
         File.Copy(DeletingFileName, BackupFileName, True)
      Catch ex As System.IO.IOException
         ' Error in copying: 
         MessageBox.Show(String.Format(EgtMsg(50176), ex.Message))
         ' interrompo la copia e la creazione 
         Return False
      End Try
      Return True
   End Function

#End Region    ' Salvataggio, Duplica, Nuovo, Aggiorna

   Public Function CurrPath() As String
      Dim ModelDir As String = String.Empty
      'If m_SelBrand.ModelDir <> RegexFunction.ModelTemplate(m_HardwareGeneral.Path) Then ModelDir = m_SelBrand.ModelDirGraphic & "\"
      If m_SelBrand.ModelDirGraphic <> RAD_DIR Then ModelDir = m_SelBrand.ModelDirGraphic & "\"
      Return m_HardwareGeneral.Path & "\" & ModelDir & sLastTemplate & LUA_EXTENSION
   End Function

   Public Sub New()
      ' ogni nuovo hardware che creao devo avere la lista di componenti vuota
      Me.ClearGroupChapters()
   End Sub

#End Region    ' Genaral Function

   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 TypeHardware
   Inherits VMBase

   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_NameINI As String
   Public Property NameINI As String
      Get
         Return m_NameINI
      End Get
      Set(value As String)
         m_NameINI = value
      End Set
   End Property

   Sub New(Name As String, NameINI As String)
      m_Name = Name
      m_NameINI = NameINI
      NotifyPropertyChanged("Name")
      NotifyPropertyChanged("NameINI")
   End Sub

End Class