diff --git a/Application.xaml.vb b/Application.xaml.vb
index 9e3f1a8..9d4aa15 100644
--- a/Application.xaml.vb
+++ b/Application.xaml.vb
@@ -1,4 +1,7 @@
-Class Application
+Imports EgtWPFLib5
+Imports EgtUILib
+
+Class Application
 
    ' Application-level events, such as Startup, Exit, and DispatcherUnhandledException
    ' can be handled in this file.
diff --git a/Assembly/Assembly.vb b/Assembly/Assembly.vb
index 9c6c9e0..568ebb5 100644
--- a/Assembly/Assembly.vb
+++ b/Assembly/Assembly.vb
@@ -916,18 +916,22 @@ Public Class Assembly
 
 #Region "Lettura Assemblato"
 
+   ' messaggi che possono essere restituiti in fase di lettura dell'assemblato
    Public Enum ResultReadingAssembInfo
       MissingAssembInfo
       ErrorInAssembInfo
       CorrectAssembInfo
    End Enum
 
-   Public bOk As ResultReadingAssembInfo = ResultReadingAssembInfo.CorrectAssembInfo
+   ' carico il valore finale restituito dalla lettura dell'assembalto (di default errore)
+   Public bOk As ResultReadingAssembInfo = ResultReadingAssembInfo.ErrorInAssembInfo
 
+   ' vettore di righe del file ddf in lettura
    Private FileContent() As String
+
    Shared Sub ReadDDFAssembly(sPathDDF As String, ByRef ReadAssembly As Assembly)
+      ' durante la lettura del ddf disabilito la costruzione degli hardware sui jamb
       BuiltReffCompo = False
-      ' restituisce un problema nella lettura di un valore della compo
       Dim sErrorInfo As String = String.Empty
       ' controllo se esiste il file DDF
       If Not File.Exists(sPathDDF) Then
@@ -936,11 +940,12 @@ Public Class Assembly
       ReadAssembly.FileContent = File.ReadAllLines(sPathDDF)
       ' se il file esiste ma è vuoto
       If ReadAssembly.FileContent.Count = 0 Then
+         ' 50107: Emplyu file, 50101: Error
          MessageBox.Show(EgtMsg(50107), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
       End If
       '---------------------------------------------------------------------------------------------------------------------------------
-      ' leggo riga per riga 
       Dim IndexLine As Integer = 0
+      ' carico i valori di default dell'assemblato (dalla pagina delle opzioni)
       Map.refAssemblyManagerVM.LoadAssemblyInformation(ReadAssembly)
       ReadAssembly.bOk = ReadAssembly.GetGeneralAssembly(IndexLine, sErrorInfo)
       '---------------------------------------------------------------------------------------------------------------------------------
@@ -973,71 +978,95 @@ Public Class Assembly
       End If
    End Sub
 
+   ' lettura dei parametri generali dell'assemblato
    Private Function GetGeneralAssembly(ByRef IndexLine As Integer, sErrorInfo As String) As ResultReadingAssembInfo
+      ' salta le righe vuote e quelle che non contengono "##",
+      ' restituisce la prima riga successiva valida,
+      ' termina quando incontra la riga "measure" oppure "produce" restituiendo il valore 0
       IndexLine = SkipWhiteSpace(IndexLine)
+      ' se non carico nessuna informazione allora non è un assemblato, esco
+      If IndexLine = 0 Then Return ResultReadingAssembInfo.MissingAssembInfo
+
       ' Size
       If IndexLine < FileContent.Count - 1 Then
          If SearchKey(FileContent(IndexLine), ConstIni.S_SIZE_INI) Then
+            ' leggo le dimemensioni dei Jamb e restituisco la riga successiva
             IndexLine = GetSize(IndexLine + 1)
             If IndexLine = -1 Then
+               ' 50102: Failed reading DDF file. Missing needed parameter {0}.
                sErrorInfo += String.Format(EgtMsg(50102), ConstIni.S_SIZE_INI + vbCrLf)
                Return ResultReadingAssembInfo.ErrorInAssembInfo
             End If
          End If
       End If
-      If IndexLine = 0 Then Return ResultReadingAssembInfo.MissingAssembInfo
+
       IndexLine = SkipWhiteSpace(IndexLine)
+      If IndexLine = 0 Then Return ResultReadingAssembInfo.MissingAssembInfo
       ' Light
       If IndexLine < FileContent.Count - 1 Then
          If SearchKey(FileContent(IndexLine), ConstIni.S_LIGHT) Then
             IndexLine = GetLight(IndexLine + 1)
             If IndexLine = -1 Then
+               ' 50102: Failed reading DDF file. Missing needed parameter {0}.
                sErrorInfo += String.Format(EgtMsg(50102), ConstIni.S_LIGHT + vbCrLf)
                Return ResultReadingAssembInfo.ErrorInAssembInfo
             End If
          End If
       End If
+
       IndexLine = SkipWhiteSpace(IndexLine)
+      If IndexLine = 0 Then Return ResultReadingAssembInfo.MissingAssembInfo
       ' Overlap
       If IndexLine < FileContent.Count - 1 Then
          If SearchKey(FileContent(IndexLine), ConstIni.S_OVERLAP) Then
             IndexLine = GetOverlap(IndexLine + 1)
             If IndexLine = -1 Then
+               ' 50102: Failed reading DDF file. Missing needed parameter {0}.
                sErrorInfo += String.Format(EgtMsg(50102), ConstIni.S_OVERLAP + vbCrLf)
                Return ResultReadingAssembInfo.ErrorInAssembInfo
             End If
          End If
       End If
+
       IndexLine = SkipWhiteSpace(IndexLine)
+      If IndexLine = 0 Then Return ResultReadingAssembInfo.MissingAssembInfo
       ' Exterior
       If IndexLine < FileContent.Count - 1 Then
          If SearchKey(FileContent(IndexLine), ConstIni.K_EXTERIOR) Then
             IndexLine = GetExterior(IndexLine + 1)
             If IndexLine = -1 Then
+               ' 50102: Failed reading DDF file. Missing needed parameter {0}.
                sErrorInfo += String.Format(EgtMsg(50102), ConstIni.K_EXTERIOR + vbCrLf)
                Return ResultReadingAssembInfo.ErrorInAssembInfo
             End If
          End If
       End If
+
       IndexLine = SkipWhiteSpace(IndexLine)
+      If IndexLine = 0 Then Return ResultReadingAssembInfo.MissingAssembInfo
       ' Profiles
       If IndexLine < FileContent.Count - 1 Then
          If SearchKey(FileContent(IndexLine), ConstIni.S_PROFILES) Then
             IndexLine = GetProfiles(IndexLine + 1)
             If IndexLine = -1 Then
+               ' 50102: Failed reading DDF file. Missing needed parameter {0}.
                sErrorInfo += String.Format(EgtMsg(50102), ConstIni.S_PROFILES + vbCrLf)
                Return ResultReadingAssembInfo.ErrorInAssembInfo
             End If
          End If
       End If
+
       IndexLine = SkipWhiteSpace(IndexLine)
+      If IndexLine = 0 Then Return ResultReadingAssembInfo.MissingAssembInfo
       ' Doors
       If IndexLine < FileContent.Count Then
          If SearchKey(FileContent(IndexLine), ConstIni.S_DOORS_ASSEMBY) Then
-            ' in questo modo non passo dalla proprietà ( in breve quello che accadrebbe usando il metodo Set)
+            ' assegno ad una variabile il valore in lettura
             IndexLine = GetValue(IndexLine, ConstIni.S_DOORS_ASSEMBY, m_DoorNumber)
+            ' assegno il numero di ante
             SetDoorNumber(m_DoorNumber)
             If IndexLine = -1 Then
+               ' 50102: Failed reading DDF file. Missing needed parameter {0}.
                sErrorInfo += String.Format(EgtMsg(50102), ConstIni.S_DOORS_ASSEMBY + vbCrLf)
                Return ResultReadingAssembInfo.ErrorInAssembInfo
             End If
@@ -1048,6 +1077,7 @@ Public Class Assembly
             End If
          End If
       End If
+
       Return ResultReadingAssembInfo.CorrectAssembInfo
    End Function
 
@@ -1247,11 +1277,13 @@ Public Class Assembly
          End If
          ' se la  lettura di un oggetto fallisce allora restituisce nothing
          Part.ReadDDFPartDoor(FileContent, Line, Local_Door)
+         ' se l'oggetto appena restituito non esiste allora esco
          If IsNothing(Local_Door) Then Return -1
+         ' se l'getto appena caricato non specifica il tipo di pezzo allora di default è la prima anta
          If String.IsNullOrEmpty(Local_Door.TypePart) Then Local_Door.TypePart = ConstGen.PART_DO_ & "1"
          Dim sDoorPiece As String = Local_Door.TypePart
 
-         ' per eliminare lo swing associato al jamb FL_L --> FL_
+         ' ricavo il tipo di pezzo eliminando la descrizione dello swing da "TypePart"
          If OptionModule.m_ConfigurationSoftware = ConfigType.Assembly Then
             If sDoorPiece.Count > 3 AndAlso sDoorPiece.Contains(ConstGen.PART_FRAME) Then
                sDoorPiece = sDoorPiece.Remove(sDoorPiece.LastIndexOf("_"c) + 1)
@@ -1282,6 +1314,7 @@ Public Class Assembly
             Case ConstGen.PART_DO_ & "1"
                Local_PartDoor.Door = Local_Door
                Local_PartDoor.Door.SwingTypeList = m_SwingTypeListSinlgeDoor
+               CreateNewPropertiesList(Local_Door.PropertiesList, Local_Door.SelectedMaterial)
                Local_PartDoor.SetIsChecked(Local_Door.IsActive)
                ListPartDoor.Add(Local_PartDoor)
             Case ConstGen.PART_DO_ & "2"
@@ -1292,6 +1325,7 @@ Public Class Assembly
                Else
                   Local_PartDoor.Door.SwingTypeList = m_SwingTypeListSinlgeDoor
                End If
+               CreateNewPropertiesList(Local_Door.PropertiesList, Local_Door.SelectedMaterial)
                Local_PartDoor.SetIsChecked(Local_Door.IsActive)
                ListPartDoor.Add(Local_PartDoor)
 
@@ -1318,6 +1352,7 @@ Public Class Assembly
             Case ConstGen.PART_FRAME_LEFT
                Local_PartDoor.Door = Local_Door
                Local_Door.SwingTypeList = m_SwingTypeList
+               CreateNewPropertiesList(Local_Door.PropertiesList, Local_Door.SelectedMaterial)
                ListPartDoor.Add(Local_PartDoor)
                'm_LeftJamb = Local_Door
             Case ConstGen.PART_FRAME_RIGHT
@@ -1328,11 +1363,13 @@ Public Class Assembly
             Case ConstGen.PART_FRAME_TOP
                Local_PartDoor.Door = Local_Door
                Local_Door.SwingTypeList = m_SwingTypeList
+               CreateNewPropertiesList(Local_Door.PropertiesList, Local_Door.SelectedMaterial)
                ListPartDoor.Add(Local_PartDoor)
                'm_TopJamb = Local_Door
             Case ConstGen.PART_FRAME_BOTTOM
                Local_PartDoor.Door = Local_Door
                Local_Door.SwingTypeList = m_SwingTypeList
+               CreateNewPropertiesList(Local_Door.PropertiesList, Local_Door.SelectedMaterial)
                ListPartDoor.Add(Local_PartDoor)
                'm_BottomJamb = Local_Door
                If Not m_Exterior Then Local_PartDoor.Door.IsActive = False
@@ -1482,9 +1519,10 @@ Public Class Assembly
             End If
             ' verifico se è un assemblato
             If ListPartDoor.Count < 4 And ListPartDoorOfDoor.Count > 0 Then
-               ' 50516=The ddf does not contains jambs!
+               ' 50516=The current ddf contains {0} jambs.
                ErrorMessages = EgtMsg(50516)
-               Dim sVal As String = Utility.DoubleToString(ListPartDoor.Count, 0)
+               Dim sVal As String = Utility.DoubleToString(ListPartDoor.Count - ListPartDoorOfDoor.Count, 0)
+               ' 50144=Warning
                MessageBox.Show(String.Format(ErrorMessages, sVal), EgtMsg(50144), MessageBoxButton.OK, MessageBoxImage.Warning)
                Return True
             End If
@@ -1886,6 +1924,7 @@ Public Class Assembly
       TopRabbetJamb()
       HingeRabbetJamb()
       BottomRabbetJamb()
+      MaterialJamb()
    End Sub
 
    ' riceve il nome del parametro modificato ed associa la funzione per il ridimensionamento
@@ -1901,6 +1940,7 @@ Public Class Assembly
             Map.refAssemblyManagerVM.CreateJamb(Me, False)
             Map.refAssemblyManagerVM.LoadOM_M_ET(Me)
             Map.refAssemblyManagerVM.CreateAssociation(Me)
+            SetPartDoorCurrAssembly()
             SetNewDimensionAssembly()
             ' UpDateAllCompo()
             Map.refSceneManagerVM.RefreshBtn()
@@ -1964,9 +2004,12 @@ Public Class Assembly
                CreateCompoOnJamb(m_Door1.CompoList(IndexCompo))
             Next
          Case 2
-
+            Dim IndexCompo As Integer = 0
+            Dim EndIndex As Integer = m_Door2.CompoList.Count
+            For IndexCompo = 0 To EndIndex - 1
+               CreateCompoOnJamb(m_Door2.CompoList(IndexCompo))
+            Next
          Case Else
-
       End Select
    End Sub
 
@@ -2013,7 +2056,15 @@ Public Class Assembly
             CurrCompo.CompoParamList(IndexParam).DDFName = CurrCompo.refJambCompo.CompoParamList(IndexParam).DDFName Then
             ' ho controllato che i nome ddf del parametro sul jamb è lo stesso che sta sull'anta
             ' l'unica operazione che eseguo è di abilitare la combobox
-            DirectCast(CurrCompo.refJambCompo.CompoParamList(IndexParam), ComboBoxParam).IsReadOnly = False
+            Dim CBoxRefPar As ComboBoxParam = DirectCast(CurrCompo.refJambCompo.CompoParamList(IndexParam), ComboBoxParam)
+            CBoxRefPar.IsReadOnly = False
+            Dim CBoxPar As ComboBoxParam = DirectCast(CurrCompo.CompoParamList(IndexParam), ComboBoxParam)
+            For Each ItemCombo In CBoxRefPar.ItemList
+               If ItemCombo = CBoxPar.SelItem Then
+                  CBoxRefPar.SetSelItem(ItemCombo)
+                  Exit For
+               End If
+            Next
          ElseIf TypeOf CurrCompo.refJambCompo.CompoParamList(IndexParam) Is TextBoxOnOffParam AndAlso
             CurrCompo.CompoParamList(IndexParam).DDFName = CurrCompo.refJambCompo.CompoParamList(IndexParam).DDFName Then
             ' ho controllato che i nome ddf del parametro sul jamb è lo stesso che sta sull'anta
@@ -2425,6 +2476,25 @@ Public Class Assembly
       End Select
    End Sub
 
+   Public Sub MaterialJamb()
+      If Not IsNothing(m_JambB) Then
+         m_JambB.SetMaterial(OptionModule.m_CurrMaterial)
+         CreateNewPropertiesListJamb(m_JambB.PropertiesList, m_JambB.SelectedMaterial)
+      End If
+      If Not IsNothing(m_JambT) Then
+         m_JambT.SetMaterial(OptionModule.m_CurrMaterial)
+         CreateNewPropertiesListJamb(m_JambT.PropertiesList, m_JambT.SelectedMaterial)
+      End If
+      If Not IsNothing(m_JambR) Then
+         m_JambR.SetMaterial(OptionModule.m_CurrMaterial)
+         CreateNewPropertiesListJamb(m_JambR.PropertiesList, m_JambR.SelectedMaterial)
+      End If
+      If Not IsNothing(m_JambR) Then
+         m_JambL.SetMaterial(OptionModule.m_CurrMaterial)
+         CreateNewPropertiesListJamb(m_JambL.PropertiesList, m_JambL.SelectedMaterial)
+      End If
+   End Sub
+
    ' assegna gli swing ai jamb 
    Public Sub SwingJamb()
       ' se la prima anta non esiste allora interrompo 
diff --git a/AssemblyManager/AssemblyManagerV.xaml b/AssemblyManager/AssemblyManagerV.xaml
index 0f61dc7..2ad84b8 100644
--- a/AssemblyManager/AssemblyManagerV.xaml
+++ b/AssemblyManager/AssemblyManagerV.xaml
@@ -11,7 +11,7 @@
       <EgtDOORCreator:ProjectVisibilityConverter x:Key="ProjectVisibilityConverter"/>
    </UserControl.Resources>
    <!--Visibility="{Binding CurrProject.Name, Converter={StaticResource ProjectVisibilityConverter}, UpdateSourceTrigger=PropertyChanged}"-->
-   <Grid 
+   <Grid IsEnabled="{Binding EnableAssebmlyManager}"
       Visibility="{Binding VisibilityDoorList}">
       <Grid.RowDefinitions>
          <RowDefinition Height="18*"/>
diff --git a/AssemblyManager/AssemblyManagerVM.vb b/AssemblyManager/AssemblyManagerVM.vb
index 0565e7a..92af68e 100644
--- a/AssemblyManager/AssemblyManagerVM.vb
+++ b/AssemblyManager/AssemblyManagerVM.vb
@@ -29,6 +29,16 @@ Public Class AssemblyManagerVM
       End Set
    End Property
 
+   Public ReadOnly Property EnableAssebmlyManager As Boolean
+      Get
+         If Not IsNothing(Map.refInstrumentPanelVM) Then
+            Return Map.refInstrumentPanelVM.EnablePage
+         Else
+            Return True
+         End If
+      End Get
+   End Property
+
 #Region "MESSAGES"
 
    Public ReadOnly Property AddNewDoorToolTip As String
@@ -1135,7 +1145,6 @@ Public Class AssemblyManagerVM
             LeftJamb.IsChecked = False
             LeftJamb.Door.IsActive = False
          End If
-         CreateNewPropertiesListJamb(LeftJamb.Door.PropertiesList)
          ' aggiungo alla lista dei PartDoor
          CurrAssembly.ListPartDoor.Add(LeftJamb)
       End If
@@ -1158,7 +1167,6 @@ Public Class AssemblyManagerVM
             RightJamb.IsChecked = False
             RightJamb.Door.IsActive = False
          End If
-         CreateNewPropertiesListJamb(RightJamb.Door.PropertiesList)
          ' aggiungo alla lista dei PartDoor
          CurrAssembly.ListPartDoor.Add(RightJamb)
       End If
@@ -1181,7 +1189,6 @@ Public Class AssemblyManagerVM
             TopJamb.IsChecked = False
             TopJamb.Door.IsActive = False
          End If
-         CreateNewPropertiesListJamb(TopJamb.Door.PropertiesList)
          CurrAssembly.ListPartDoor.Add(TopJamb)
       End If
 
@@ -1197,7 +1204,6 @@ Public Class AssemblyManagerVM
          BottomJamb.Door.IsActive = OptionModule.m_BottomJambChk
          ' definisce la disposizione (da selezionare in una sola anta)
          BottomJamb.Door.SetDispositionItem(OptionModule.m_Disposition)
-         CreateNewPropertiesListJamb(BottomJamb.Door.PropertiesList)
          If bNewAssembly Then
             BottomJamb.IsChecked = True
             BottomJamb.IsChecked = OptionModule.m_TopJambChk
@@ -1219,7 +1225,8 @@ Public Class AssemblyManagerVM
       ' OverMaterial -> LoadOM_M_ET
       ' Machining -> LoadOM_M_ET
       ' EdgeType -> LoadOM_M_ET
-
+      ' Material -> dalla porta
+      ' Properties -> dalla porta
    End Sub
 
    ' carica i valori di Overmaterial, Machining e EdgeType settati di Default
@@ -1266,10 +1273,10 @@ Public Class AssemblyManagerVM
             ' non viene caricato lo swing, che è carciato al termine del ciclo for
             LoadDefaultSingleDoor(Local_PartDoor.Door, CStr(nDoorNumber))
             Local_PartDoor.IsChecked = True
-            CreateNewPropertiesList(Local_PartDoor.Door.PropertiesList, Local_PartDoor.Door.SelectedMaterial)
+            'CreateNewPropertiesList(Local_PartDoor.Door.PropertiesList, Local_PartDoor.Door.SelectedMaterial)
             CurrAssembly.ListPartDoor.Add(Local_PartDoor)
          Else
-            CurrAssembly.ListPartDoor.Add(ReserchPartDoor(Type))
+            'CurrAssembly.ListPartDoor.Add(ReserchPartDoor(Type))
          End If
       Next
 
@@ -1335,6 +1342,8 @@ Public Class AssemblyManagerVM
       ref_Part.TopOverMaterial = OptionModule.m_TopOverMaterial
       ref_Part.BottomOverMaterial = OptionModule.m_BottomOverMaterial
       ref_Part.SetDispositionItem(OptionModule.m_Disposition)
+      ref_Part.SetMaterial(OptionModule.m_CurrMaterial)
+
    End Sub
 
    ' carica la lista degli swing a seconda del numero di porte selezionato
diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb
index a758414..0b9d096 100644
--- a/Constants/ConstIni.vb
+++ b/Constants/ConstIni.vb
@@ -35,6 +35,8 @@ Module ConstIni
    Public Const K_DISABLEARCH As String = "DisableArch"
    Public Const K_SINGLEDOOR As String = "SingleDoor"
    Public Const K_DELETEPROJECT As String = "DeleteProject"
+   Public Const K_DOORDIMENSION As String = "DoorDimensions"
+   Public Const K_HARDWAREDIMENSION As String = "HardwareDimensions"
 
    Public Const S_LANGUAGES As String = "Languages"
    Public Const K_LANGUAGE As String = "Language"
diff --git a/DdfFile.vb b/DdfFile.vb
index cdf8aac..681592d 100644
--- a/DdfFile.vb
+++ b/DdfFile.vb
@@ -1430,15 +1430,18 @@ Friend Module DdfFile
          FirstPart = True
       End If
 
-      If CurrAssembly.ListPartDoor.Count > 1 Then
-         For IndexPartDoor As Integer = 0 To CurrAssembly.ListPartDoor.Count - 2
+      If CurrAssembly.ListPartDoor.Count > 0 Then
+         For IndexPartDoor As Integer = 0 To CurrAssembly.ListPartDoor.Count - 1
             WriteDDFPart(CurrAssembly.ListPartDoor(IndexPartDoor).Door, sPath, bIsDDF, FirstPart)
-            File.AppendAllLines(sPath, SplitPart, Text.Encoding.UTF8)
+            If IndexPartDoor = CurrAssembly.ListPartDoor.Count - 1 Then
+               File.AppendAllLines(sPath, EndAssebly, Text.Encoding.UTF8)
+            Else
+               File.AppendAllLines(sPath, SplitPart, Text.Encoding.UTF8)
+            End If
+
          Next
       End If
-      WriteDDFPart(CurrAssembly.ListPartDoor(CurrAssembly.ListPartDoor.Count - 1).Door, sPath, bIsDDF, FirstPart)
-      File.AppendAllLines(sPath, EndAssebly, Text.Encoding.UTF8)
- 
+
       Return True
    End Function
 
@@ -1515,6 +1518,7 @@ Friend Module DdfFile
       End If
       ' i parametri associatia alla condizione di Exterior sono stampati solo se Exterior è true
       If CurrAssembly.Exterior Then
+         GeneralAssembly.Add(ConstCompo.DDF_METADATA)
          GeneralAssembly.Add(ConstCompo.DDF_METADATA & "Exterior :")
          If StringToDouble(CurrAssembly.OverlapTop, dVal) Then
             GeneralAssembly.Add(ConstCompo.DDF_METADATA & "top : " & DoubleToString(dVal, 5))
diff --git a/DoorParameters/Compo.vb b/DoorParameters/Compo.vb
index bed7fd1..d267385 100644
--- a/DoorParameters/Compo.vb
+++ b/DoorParameters/Compo.vb
@@ -493,7 +493,9 @@ Public Class Compo
          Dim CurrItem As String = ModelDir & m_SelFile
          ' passo il nome
          TemplateSelItem = CurrItem
+         Assembly.BuiltReffCompo = True
          Map.refAssemblyPageVM.CurrAssembly.SetDimension("CreateRefCompo", Me)
+         Assembly.BuiltReffCompo = False
          NotifyPropertyChanged("SelFile")
       End Set
    End Property
diff --git a/DoorParameters/Part.vb b/DoorParameters/Part.vb
index 28377ff..9016700 100644
--- a/DoorParameters/Part.vb
+++ b/DoorParameters/Part.vb
@@ -221,14 +221,23 @@ Public Class Part
 
    Public Sub SetMaterial(ItemMaterial As MaterialType)
       For Each Item In m_MaterilaList
-         If ItemMaterial.NameDDF = Item.NameDDF then
+         If ItemMaterial.NameDDF = Item.NameDDF Then
             m_SelectedMaterial = Item
             OptionModule.m_CurrMaterial = m_SelectedMaterial
-            NotifyPropertyChanged("SelectedMaterial")
-            Exit for
+            ' ogni volta che cambio la selezione del materiale azzero tutte le selezioni delle proprietà
+            If Not IsNothing(m_SelectedMaterial.PropertiesList) Then
+               For Each ItemProperty In m_SelectedMaterial.PropertiesList
+                  ItemProperty.IsChecked = False
+               Next
+               m_PropertiesList = m_SelectedMaterial.PropertiesList
+               m_SelectedProperty = m_PropertiesList(0)
+               PropertiesIsVisible = Visibility.Visible
+            Else
+               PropertiesIsVisible = Visibility.Collapsed
+            End If
+            Exit For
          End If
       Next
-      
    End Sub
 
    Public ReadOnly Property MaterialIsVisible As Visibility
@@ -1438,17 +1447,18 @@ Public Class Part
 
    ' Genero una nuova porta da usare nella lettura di un DDF
    Shared Sub ReadDDFPartDoor(ArrayFile() As String, ByRef LineIndex As Integer, ByRef ReadDoor As Part)
+      ' Inizializzazioni
       Dim bPressure As Boolean = False
       Dim bProperties As Boolean = False
       ' tutti i parametri fino a profiles devono essere caricati
       Dim ReadDoorCompleted As Boolean = False
-      ' passo alla pagina vuota in attesa del caricamneto della prossima
-      '   Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nNothingSelected
-      ' Inizializzazioni
+      'Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nNothingSelected
       ReadDoor.FileContent = ArrayFile
       ReadDoor.m_TypePart = ConstGen.PART_DO_ & "1"
+
       ' Se il file DDF è vuoto
       If ReadDoor.FileContent.Count = 0 Then
+         ' 50107 = Empty file.
          MessageBox.Show(EgtMsg(50107), EgtMsg(50101), MessageBoxButton.OK, MessageBoxImage.Error)
       End If
       ' Leggo riga per riga 
@@ -1460,7 +1470,7 @@ Public Class Part
             LineIndex += 1
             Continue While
          End If
-         ' Controllo fine pezzo o fine file
+         ' Controllo fine pezzo "---" o fine file "..."
          If (Search3Hyphens(sLine) OrElse Search3Dots(sLine)) Then Exit While
          ' Modifica su vecchi file con "pressure:" indentato, per continuare a leggerli
          If sLine.IndexOf(S_WEIGHT & ":") > 0 Then sLine = sLine.TrimStart()
@@ -1475,7 +1485,7 @@ Public Class Part
                LineIndex = ReadDoor.GetCode(LineIndex)
                ' Se manca il codice, errore
                If LineIndex = -1 Then
-                  ' carico il messaggio di errore
+                  ' 50102=Failed reading DDF file. Missing needed parameter {0}.
                   sErrorInfo &= String.Format(EgtMsg(50102), S_CODE) & vbCrLf
                   ' assegno una porta vuota ed esco dal ciclo
                   ReadDoor = Nothing
@@ -1486,7 +1496,7 @@ Public Class Part
                LineIndex = ReadDoor.GetOrder(ReadDoor.NextIndex(LineIndex))
                ' Se mancano i dati dell'ordine, errore
                If LineIndex = -1 Then
-                  ' carico il messaggio di errore
+                  ' 50102=Failed reading DDF file. Missing needed parameter {0}.
                   sErrorInfo &= String.Format(EgtMsg(50102), S_ORDER) & vbCrLf
                   ' assegno una porta vuota ed esco dal ciclo
                   ReadDoor = Nothing
@@ -1501,7 +1511,7 @@ Public Class Part
                LineIndex = ReadDoor.GetPosition(ReadDoor.NextIndex(LineIndex))
                ' Se mancano i dati di posizione, errore
                If LineIndex = -1 Then
-                  ' carico il messaggio di errore
+                  ' 50102=Failed reading DDF file. Missing needed parameter {0}.
                   sErrorInfo &= String.Format(EgtMsg(50102), S_POSITION) & vbCrLf
                   ' assegno una porta vuota ed esco dal ciclo
                   ReadDoor = Nothing
@@ -1512,7 +1522,7 @@ Public Class Part
                LineIndex = ReadDoor.GetSize(ReadDoor.NextIndex(LineIndex))
                ' Se mancano i dati di size, errore
                If LineIndex = -1 Then
-                  ' carico il messaggio di errore
+                  ' 50102=Failed reading DDF file. Missing needed parameter {0}.
                   sErrorInfo &= String.Format(EgtMsg(50102), S_SIZE) & vbCrLf
                   ' assegno una porta vuota ed esco dal ciclo
                   ReadDoor = Nothing
@@ -1525,6 +1535,7 @@ Public Class Part
             Case S_SWING
                LineIndex = ReadDoor.GetSwing(LineIndex)
                If LineIndex = -1 Then
+                  ' 50102=Failed reading DDF file. Missing needed parameter {0}.
                   sErrorInfo &= String.Format(EgtMsg(50102), S_SWING) & vbCrLf
                   ' assegno una porta vuota ed esco dal ciclo
                   ReadDoor = Nothing
@@ -1532,14 +1543,14 @@ Public Class Part
                End If
             Case S_SECURE   ' creo l'oggetto OptionPage nella Mappa
                LineIndex = ReadDoor.GetSecure(LineIndex)
-				Case S_MATERIAL
-					LineIndex = ReadDoor.GetMaterial(LineIndex)
-               If LineIndex = -1 then
+            Case S_MATERIAL
+               LineIndex = ReadDoor.GetMaterial(LineIndex)
+               If LineIndex = -1 Then
                   '50532=Missing list of material at file "../Compo/Default.ini". 
                   sErrorInfo &= EgtMsg(50532) & vbCrLf
                   ReadDoor = Nothing
-                  Exit While                
-               ElseIf LineIndex = -2 then
+                  Exit While
+               ElseIf LineIndex = -2 Then
                   '50531=The current material {0} does not exist in list of material. Look at file "../Compo/Default.ini".
                   sErrorInfo &= String.Format(EgtMsg(50531), ReadDoor.sNameDDFMaterial) & vbCrLf
                   ReadDoor = Nothing
@@ -1548,20 +1559,20 @@ Public Class Part
             Case ConstCompo.S_PROPERTIES
                bProperties = True
                LineIndex = ReadDoor.GetProperties(LineIndex)
-               If LineIndex = -1 then
+               If LineIndex = -1 Then
                   '50533=Impossible to load more than one property at time.
-                  sErrorInfo &= EgtMsg(50533) & vbCrLf 
+                  sErrorInfo &= EgtMsg(50533) & vbCrLf
                   ReadDoor = Nothing
                   Exit While
-               ElseIf LineIndex = -2 then                 
-                  If Not IsNothing(ReadDoor.m_SelectedMaterial) then
-                  ' 50530=Property {0} does not exist in list of {1}. Look at file "../Compo/Default.ini" 
+               ElseIf LineIndex = -2 Then
+                  If Not IsNothing(ReadDoor.m_SelectedMaterial) Then
+                     ' 50530=Property {0} does not exist in list of {1}. Look at file "../Compo/Default.ini" 
                      sErrorInfo &= String.Format(EgtMsg(50530), ReadDoor.sNameDDFProperty, ReadDoor.m_SelectedMaterial.Name) & vbCrLf
                   Else
-                  ' 50534=Property {0} does not exist in the list. Look at file "../Compo/Default.ini".
+                     ' 50534=Property {0} does not exist in the list. Look at file "../Compo/Default.ini".
                      sErrorInfo &= String.Format(EgtMsg(50534), ReadDoor.sNameDDFProperty) & vbCrLf
                   End If
-                 
+
                   ReadDoor = Nothing
                   Exit While
                End If
@@ -1569,6 +1580,7 @@ Public Class Part
                Dim LocalMsg As String = String.Empty
                LineIndex = ReadDoor.GetProfiles(ReadDoor.NextIndex(LineIndex), ReadDoor.TypePart, LocalMsg)
                If LineIndex = -1 Then
+                  ' 50102=Failed reading DDF file. Missing needed parameter {0}.
                   sErrorInfo &= String.Format(EgtMsg(50102), ConstCompo.S_PROFILES) & vbCrLf
                   If Not String.IsNullOrEmpty(LocalMsg) Then
                      sErrorInfo &= LocalMsg
@@ -1584,6 +1596,7 @@ Public Class Part
             Case Else 'COMPONENTS
                ' Se sezione senza nome o altro errore              
                If String.IsNullOrWhiteSpace(sSection) Then
+                  ' 50130=Error in reading: line {0}.
                   sErrorInfo &= String.Format(EgtMsg(50130), LineIndex) & vbCrLf
                   ' assegno una porta vuota ed esco dal ciclo
                   ReadDoor = Nothing
@@ -1609,6 +1622,7 @@ Public Class Part
 
       ' controllo che i parametri della porta siano stati caricati correttamente
       If Not ReadDoorCompleted Then
+         ' 50156=Error in reading ddf: door is not completed or ddf has been slpitted by '---' bad.
          If String.IsNullOrEmpty(sErrorInfo) Then sErrorInfo = EgtMsg(50156)
          ReadDoor = Nothing
       End If
@@ -1616,7 +1630,7 @@ Public Class Part
       If Not IsNothing(ReadDoor) And ReadDoorCompleted Then
          ' se la porta esiste allora mostro i suoi parametri
          Map.refPartPageVM.CurrPart = ReadDoor
-         
+
          ' se non passo dalla funzione che raccoglie queste informazioni 
          If Not bProperties AndAlso ReadDoor.PropertiesIsVisible = Visibility.Visible Then
             For Each Item In ReadDoor.PropertiesList
@@ -1625,7 +1639,7 @@ Public Class Part
          End If
 
          ' se esiste un solo materiale nell'elenco dei materiali, ma non è inserito nella porta allora lo carico di default
-         If IsNothing(ReadDoor.m_SelectedMaterial) and OptionModule.m_MaterialList.Count > 0 then
+         If IsNothing(ReadDoor.m_SelectedMaterial) And OptionModule.m_MaterialList.Count > 0 Then
             ReadDoor.SelectedMaterial = OptionModule.m_MaterialList(0)
          End If
 
@@ -1635,14 +1649,14 @@ Public Class Part
             MessageBox.Show(EgtMsg(50194), EgtMsg(50118), MessageBoxButton.OK, MessageBoxImage.Information)
             FirstReadingEdge = True
          End If
-         
+
          ' Messaggio di errore per il Top Arch
          If ReadDoor.bDeleteTopShape Then
             ' 50197: Impossible to create a Top Arch because of configuration! Curr door will be modify.
             MessageBox.Show(EgtMsg(50197), EgtMsg(50144), MessageBoxButton.OK, MessageBoxImage.Asterisk)
             FirstReadingEdge = True
          End If
-         
+
          ' Messaggio di errore per incongruenza bevel
          If ReadDoor.bModifyBevel Then
             If Not IsNothing(ReadDoor.LockEdgeType) AndAlso
@@ -1655,11 +1669,12 @@ Public Class Part
                MessageBox.Show(EgtMsg(50169), EgtMsg(50115), MessageBoxButton.OK, MessageBoxImage.Asterisk, MessageBoxResult.No)
             End If
          End If
-         
+
          ' Messaggio di errore per il Weight, quando non passa dalla funzione GetWeight (perchè il ddf non ha il peso)
          If Not bPressure Then
             If m_IsCheckedWeight = Visibility.Visible Then
                ' ACCESO e NON presenet nel ddf
+               ' 50149=Caution: Weight is setted in OptionPage. Do you want to remove?
                If MessageBox.Show(EgtMsg(50149), EgtMsg(50110), MessageBoxButton.YesNo, MessageBoxImage.Question, MessageBoxResult.Yes) = MessageBoxResult.Yes Then
                   ' decido di spegnere
                   OptionsVM.SetIsCheckedWeight(False)
@@ -1790,7 +1805,7 @@ Public Class Part
          If sType.Contains("DO_") Then
             OptionModule.CreateNewPropertiesList(m_PropertiesList, m_SelectedMaterial)
          Else
-            OptionModule.CreateNewPropertiesListJamb(m_PropertiesList)
+            OptionModule.CreateNewPropertiesListJamb(m_PropertiesList, m_SelectedMaterial)
          End If
       End If
       ' passo alla riga successiva
diff --git a/DoorParameters/PartPageV.xaml b/DoorParameters/PartPageV.xaml
index f5ed263..29ede22 100644
--- a/DoorParameters/PartPageV.xaml
+++ b/DoorParameters/PartPageV.xaml
@@ -12,7 +12,7 @@
       <EgtDOORCreator:TrueToFalse x:Key="TrueToFalse"/>
    </UserControl.Resources>
 
-   <Grid>
+    <Grid IsEnabled="{Binding EnablePageDoor}">
       <Grid.ColumnDefinitions>
          <ColumnDefinition Width="1*"/>
          <ColumnDefinition Width="5*"/>
@@ -511,7 +511,8 @@
          </GroupBox>
 
          <!--.....................................Elenco degli item...............................................-->
-         <ListBox Name="DoorParamsItemsControl" Grid.Row="2" ItemsSource="{Binding CurrPart.CompoList}" SelectedItem="{Binding CurrPart.SelCompo}">
+            <ListBox Name="DoorParamsItemsControl" Grid.Row="2" IsEnabled="{Binding EnablePageDoor}"
+                  ItemsSource="{Binding CurrPart.CompoList}" SelectedItem="{Binding CurrPart.SelCompo}">
             <ListBox.Style>
                <Style TargetType="ListBox">
                   <Setter Property="ItemsPanel">
diff --git a/DoorParameters/PartPageVM.vb b/DoorParameters/PartPageVM.vb
index 7fa6f32..ac8af84 100644
--- a/DoorParameters/PartPageVM.vb
+++ b/DoorParameters/PartPageVM.vb
@@ -56,6 +56,8 @@ Public Class PartPageVM
       End Get
    End Property
 
+#Region "CONSTUCTOR"
+
    Sub New()
       Map.SetRefDoorParametersVM(Me)
       If IsNothing(Map.refCompoPanelVM) Then Map.SetRefCompoPanelVM(New CompoPanelVM("PartPage"))
@@ -63,6 +65,14 @@ Public Class PartPageVM
       m_CompoPanelPart.DataContext = Map.refCompoPanelVM
    End Sub
 
+   Sub PrepareEvent()
+      If Not IsNothing(Map.refInstrumentPanelVM) Then
+         AddHandler Map.refInstrumentPanelVM.EnableCurrentPage, AddressOf Me.SetStatusPage
+      End If
+   End Sub
+
+#End Region
+
 #Region "Messages"
 
    'General'
@@ -241,6 +251,21 @@ Public Class PartPageVM
       End Set
    End Property
 
+   Sub SetStatusPage()
+      NotifyPropertyChanged("EnablePageDoor")
+   End Sub
+   Public ReadOnly Property EnablePageDoor As Boolean
+      Get
+         Map.refProjectManagerVM.NotifyPropertyChanged("EnableProjectManager")
+         Map.refAssemblyManagerVM.NotifyPropertyChanged("EnableAssebmlyManager")
+         If Not IsNothing(Map.refInstrumentPanelVM) Then
+            Return Map.refInstrumentPanelVM.EnablePage
+         Else
+            Return True
+         End If
+      End Get
+   End Property
+
    Private m_IsReadOnly As Boolean
    Public Property IsRaedOnly As Boolean
       Get
diff --git a/EgtDOORCreator.vbproj b/EgtDOORCreator.vbproj
index 6fc255d..dc337b0 100644
--- a/EgtDOORCreator.vbproj
+++ b/EgtDOORCreator.vbproj
@@ -446,6 +446,7 @@
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
     <AppDesigner Include="My Project\" />
+    <Resource Include="Resources\InstrumentPanel\LinearDimension.png" />
     <Content Include="Resources\TopCommandBar\SaveAsTemplate1.png" />
   </ItemGroup>
   <ItemGroup>
diff --git a/EgtDOORCreatorDictionary.xaml b/EgtDOORCreatorDictionary.xaml
index 0c9b2c1..1b9d443 100644
--- a/EgtDOORCreatorDictionary.xaml
+++ b/EgtDOORCreatorDictionary.xaml
@@ -334,6 +334,24 @@
       <Setter Property="Height" Value="22"/>
    </Style>
 
+    <Style x:Key="DimensioParameter" TargetType="{x:Type TextBox}">
+       <Setter Property="VerticalAlignment" Value="Stretch"/>
+       <Setter Property="VerticalContentAlignment" Value="Center"/>
+        <Style.Triggers>
+            <Trigger Property="Focusable" Value=" True"/>
+            <Trigger Property="Validation.HasError" Value="True">
+                <Setter Property="FocusManager.FocusedElement" Value="{Binding Source={RelativeSource Self}}"/>
+            </Trigger>
+        </Style.Triggers>
+        <Style.Resources>
+            <Style TargetType="{x:Type Border}">
+                <Setter Property="CornerRadius" Value="3" />
+                <Setter Property="BorderBrush" Value="{StaticResource EgaltechLightGray}"/>
+                <Setter Property="BorderThickness" Value="1"/>
+            </Style>
+        </Style.Resources>
+    </Style>
+    
    <!-- TextBox -->
 
    <Style TargetType="{x:Type EgtWPFLib5:EgtTextBox}" BasedOn="{StaticResource {x:Type EgtWPFLib5:EgtTextBox}}">
diff --git a/HardwareManager/HardwarePageV.xaml b/HardwareManager/HardwarePageV.xaml
index bbbe6ea..697266d 100644
--- a/HardwareManager/HardwarePageV.xaml
+++ b/HardwareManager/HardwarePageV.xaml
@@ -12,7 +12,7 @@
       <local:TemplateListConverter x:Key="TemplateListConverter"/>
    </UserControl.Resources>
 
-   <Grid>
+   <Grid IsEnabled="{Binding EnablePageHardware}">
       <Grid.ColumnDefinitions>
          <!-- Colonna dedicata alla lista dei bottoni -->
          <ColumnDefinition Width="1*"/>
diff --git a/HardwareManager/HardwarePageVM.vb b/HardwareManager/HardwarePageVM.vb
index ce1b519..d0e22eb 100644
--- a/HardwareManager/HardwarePageVM.vb
+++ b/HardwareManager/HardwarePageVM.vb
@@ -76,6 +76,21 @@ Public Class HardwarePageVM
       End Set
    End Property
 
+   Private m_EnablePageHardware As Boolean
+   Sub SetStatusPage()
+      NotifyPropertyChanged("EnablePageHardware")
+   End Sub
+   Public ReadOnly Property EnablePageHardware As Boolean
+      Get
+         Map.refProjectManagerHardwareVM.NotifyPropertyChanged("EnableProjectManagerHardware")
+         If Not IsNothing(Map.refInstrumentPanelVM) Then
+            Return Map.refInstrumentPanelVM.EnablePage
+         Else
+            Return True
+         End If
+      End Get
+   End Property
+
 #Region "MESSAGES"
 
    Public ReadOnly Property GeneralMsg As String
@@ -323,6 +338,12 @@ Public Class HardwarePageVM
       m_CompoPanelPart.DataContext = Map.refCompoPanelHardwareVM
    End Sub
 
+   Sub PrepareEvent()
+      If Not IsNothing(Map.refInstrumentPanelVM) Then
+         AddHandler Map.refInstrumentPanelVM.EnableCurrentPage, AddressOf Me.SetStatusPage
+      End If
+   End Sub
+
    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
 
    Public Sub NotifyPropertyChanged(propName As String)
diff --git a/MainWindow/MainWindowVM.vb b/MainWindow/MainWindowVM.vb
index 6c51602..f7a9302 100644
--- a/MainWindow/MainWindowVM.vb
+++ b/MainWindow/MainWindowVM.vb
@@ -67,6 +67,7 @@ Public Class MainWindowVM
       Set(value As ListPageEnum)
          m_SelectedPage = value
          NotifyPropertyChanged("PageControl")
+         Map.refInstrumentPanelVM.NotifyPropertyChanged("DimensionVisibility")
       End Set
    End Property
 
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index e554d71..55c04f3 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -72,5 +72,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.2.3.4")> 
-<Assembly: AssemblyFileVersion("2.2.3.4")> 
+<Assembly: AssemblyVersion("2.2.4.1")> 
+<Assembly: AssemblyFileVersion("2.2.4.1")> 
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index c61a386..296e1a8 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -155,6 +155,9 @@ Friend Module OptionModule
    Friend m_Font As String
    Friend m_TextHeight As Double
 
+   Friend m_DimensionHardware As Visibility
+   Friend m_DimensionDoor As Visibility
+
    ' iniziliazzo il la lettura dei messaggi
    Friend Sub ReadMessages()
       ' Leggo elenco lingue disponibili da file ini
@@ -293,6 +296,10 @@ Friend Module OptionModule
 
       m_EnableBrowse = If(GetMainPrivateProfileInt(S_REPORT, K_TEMPLATEBROWSER, 0) = 1, True, False)
 
+      m_DimensionDoor = If(GetMainPrivateProfileInt(S_REPORT, K_DOORDIMENSION, 0) = 1, Visibility.Visible, Visibility.Collapsed)
+
+      m_DimensionHardware = If(GetMainPrivateProfileInt(S_REPORT, K_HARDWAREDIMENSION, 0) = 1, Visibility.Visible, Visibility.Collapsed)
+
       ' leggo il tipo di Bevel selezionato
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, m_bBevelUp)
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, m_bBevelDown)
@@ -320,7 +327,7 @@ Friend Module OptionModule
       ' carico i nomi dei materiali (NomeDDF/NomeGrafica) e le liste di materiali associate
       Dim MaterialList As New ObservableCollection(Of String)
       DefaultGetPrivateProfileObservableCollection("Material", "MaterialList", MaterialList)
-		LoadMaterialList (MaterialList)
+      LoadMaterialList(MaterialList)
       ' se eiste un solo materiale allora non mostro a vodeo
       If MaterialList.Count < 2 then
           m_MaterialIsVisible = Visibility.Collapsed
@@ -344,7 +351,7 @@ Friend Module OptionModule
          If PropertyList.Count > 0 Then LoadPropertiesList(PropertyList, m_PropertListJamb)
       End If
       Part.m_MaterilaList = m_MaterialList
-
+      m_CurrMaterial = m_MaterialList(0)
       ' Leggo le dimensioni della porta dal file Default.ini
       Dim IsMM As Boolean = False
       DefaultGetMmUnits(ConstCompo.S_GENERALINI, ConstCompo.K_MMUNITSINI, IsMM)
@@ -716,16 +723,16 @@ Friend Module OptionModule
       Next
    End Sub
 
-   Friend Sub CreateNewPropertiesListJamb(ByRef List As ObservableCollection(Of PropertyItem))
+   Friend Sub CreateNewPropertiesListJamb(ByRef List As ObservableCollection(Of PropertyItem), ByRef SelectedMaterial As MaterialType)
       If OptionModule.m_DisableProperties <> Visibility.Visible Then Return
-      Dim LocalList As ObservableCollection(Of PropertyItem)
-      If OptionModule.m_PropertListJamb.Count > 0 Then
-         LocalList = OptionModule.m_PropertListJamb
-      Else
-         LocalList = OptionModule.m_PropertList
+      If OptionModule.m_MaterialList.Count > 1 Then
+         SelectedMaterial = OptionModule.m_MaterialList(0)
+         List = OptionModule.m_MaterialList(0).PropertiesList
+         Return
       End If
+      ' configurazione senza materiali
       If List.Count > 0 Then List.Clear()
-      For Each Item In LocalList
+      For Each Item In OptionModule.m_PropertList
          List.Add(New PropertyItem(Item.Name, Item.GraphicName, Item.IsChecked))
       Next
    End Sub
diff --git a/ProjectManager/ProjectManagerHardwareV.xaml b/ProjectManager/ProjectManagerHardwareV.xaml
index 80e3771..25b3c04 100644
--- a/ProjectManager/ProjectManagerHardwareV.xaml
+++ b/ProjectManager/ProjectManagerHardwareV.xaml
@@ -1,7 +1,7 @@
 <UserControl x:Class="ProjectManagerHardwareV"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
-   <StackPanel Orientation="Horizontal">
+   <StackPanel Orientation="Horizontal" IsEnabled="{Binding EnableProjectManagerHardware}">
 
       <!--Barra superiore dei comandi-->
       <!--nuovo brand-->
diff --git a/ProjectManager/ProjectManagerHardwareVM.vb b/ProjectManager/ProjectManagerHardwareVM.vb
index 9acb1d9..4189351 100644
--- a/ProjectManager/ProjectManagerHardwareVM.vb
+++ b/ProjectManager/ProjectManagerHardwareVM.vb
@@ -49,6 +49,16 @@ Public Class ProjectManagerHardwareVM
       End Get
    End Property
 
+   Public ReadOnly Property EnableProjectManagerHardware As Boolean
+      Get
+         If Not IsNothing(Map.refInstrumentPanelVM) Then
+            Return Map.refInstrumentPanelVM.EnablePage
+         Else
+            Return True
+         End If
+      End Get
+   End Property
+
    ' Definizione comandi
    Private m_cmdNewDir As ICommand
    Private m_cmdRefreshDir As ICommand
@@ -540,7 +550,6 @@ Public Class ProjectManagerHardwareVM
          Map.refMainWindowVM.ProjectNameMsg = ""
       End If
       Map.refRefreshPanelVM.DimensionVisibility = Visibility.Collapsed
-      Map.refInstrumentPanelVM.PrintHardwareVisibility = Visibility.Collapsed
       ' elimino i riferimenti all'hardware corrente
       Map.refHardwarePageVM.CurrHardware = Nothing
       ' spengo il focus su tutti i bottoni
@@ -554,6 +563,8 @@ Public Class ProjectManagerHardwareVM
       Map.refProjectManagerVM.DoorIsChecked = true
       Map.refProjectManagerVM.OpenLastProject()
       Map.refSceneManagerVM.RefreshBtn()
+      Map.refInstrumentPanelVM.DimensionVisibility = OptionModule.m_DimensionDoor
+      Map.refInstrumentPanelVM.SaveImgHardware = OptionModule.m_DimensionDoor
       CompoMatch.ResetSTU()
    End Sub
 
diff --git a/ProjectManager/ProjectManagerV.xaml b/ProjectManager/ProjectManagerV.xaml
index d256494..0f92bbd 100644
--- a/ProjectManager/ProjectManagerV.xaml
+++ b/ProjectManager/ProjectManagerV.xaml
@@ -2,7 +2,7 @@
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
    
-   <StackPanel Orientation="Horizontal">
+   <StackPanel Orientation="Horizontal" IsEnabled="{Binding EnableProjectManager}">
 
       <!--Barra superiore dei comandi-->
       <Button Command="{Binding NewCommand}" ToolTip="{Binding NewToolTip}" Focusable="False">
diff --git a/ProjectManager/ProjectManagerVM.vb b/ProjectManager/ProjectManagerVM.vb
index c772d85..9da0c80 100644
--- a/ProjectManager/ProjectManagerVM.vb
+++ b/ProjectManager/ProjectManagerVM.vb
@@ -11,6 +11,10 @@ Imports Ionic.zip
 Public Class ProjectManagerVM
    Implements INotifyPropertyChanged
 
+#Region "FIELDS & PROPERTIES"
+
+   Friend m_CurrProject As Project
+
    Friend m_MruFiles As New MruList
    Public ReadOnly Property MruFileNames As ObservableCollection(Of String)
       Get
@@ -72,9 +76,15 @@ Public Class ProjectManagerVM
       End Set
    End Property
 
-#Region "FIELDS & PROPERTIES"
-
-   Friend m_CurrProject As Project
+   Public ReadOnly Property EnableProjectManager As Boolean
+      Get
+         If Not IsNothing(Map.refInstrumentPanelVM) Then
+            Return Map.refInstrumentPanelVM.EnablePage
+         Else
+            Return True
+         End If
+      End Get
+   End Property
 
    ' Definizione comandi
    Private m_cmdNew As ICommand
@@ -1414,7 +1424,8 @@ Public Class ProjectManagerVM
       Map.refHardwareHelpSceneHostV.CleanHelpProject()
       Map.refRefreshPanelVM.ButtonVisibility = Visibility.Collapsed
       Map.refRefreshPanelVM.DimensionVisibility = Visibility.Visible
-      Map.refInstrumentPanelVM.PrintHardwareVisibility = Visibility.Visible
+      Map.refInstrumentPanelVM.DimensionVisibility = OptionModule.m_DimensionHardware
+      Map.refInstrumentPanelVM.SaveImgHardware = OptionModule.m_DimensionHardware
       Map.refProjectManagerHardwareVM.HardwareIsChecked = True
    End Sub
 
diff --git a/SceneManager/DimensioningPanel/DimensioningPanelV.xaml b/SceneManager/DimensioningPanel/DimensioningPanelV.xaml
index c3f9f5f..75b97ad 100644
--- a/SceneManager/DimensioningPanel/DimensioningPanelV.xaml
+++ b/SceneManager/DimensioningPanel/DimensioningPanelV.xaml
@@ -7,6 +7,7 @@
    Visibility="{Binding DimensioningPanel_Visibility}">
 
    <ToggleButton x:Name="HardwareBtn"
+                 IsEnabled="{Binding EnableDimensionPanel}"
                  Style="{StaticResource GridViewPanelToggleButton}"
                  ToolTip="{Binding DimensionToolTip}">
       <StackPanel Orientation="Horizontal">
diff --git a/SceneManager/DimensioningPanel/DimensioningPanelVM.vb b/SceneManager/DimensioningPanel/DimensioningPanelVM.vb
index 68cf5de..cb0b29d 100644
--- a/SceneManager/DimensioningPanel/DimensioningPanelVM.vb
+++ b/SceneManager/DimensioningPanel/DimensioningPanelVM.vb
@@ -30,6 +30,16 @@ Public Class DimensioningPanelVM
       End Get
    End Property
 
+   Public ReadOnly Property EnableDimensionPanel As Boolean
+      Get
+         If Not IsNothing(Map.refInstrumentPanelVM) Then
+            Return Map.refInstrumentPanelVM.EnablePage
+         Else
+            Return True
+         End If
+      End Get
+   End Property
+
    Friend Sub SetDimensioningPanel_Visibility(IsVisible As Boolean)
       If IsVisible Then
          m_DimensioningPanel_Visibility = Visibility.Visible
diff --git a/SceneManager/InstrumentPanel/InstrumentPanelV.xaml b/SceneManager/InstrumentPanel/InstrumentPanelV.xaml
index f055a77..b620d4d 100644
--- a/SceneManager/InstrumentPanel/InstrumentPanelV.xaml
+++ b/SceneManager/InstrumentPanel/InstrumentPanelV.xaml
@@ -1,22 +1,33 @@
 <UserControl x:Class="InstrumentPanelV"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+   xmlns:EgtDOORCreator="clr-namespace:EgtDOORCreator">
 
-   <StackPanel Background="Transparent" Orientation="Horizontal">
-      <ToggleButton ToolTip="{Binding GetDistToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding GetDistIsChecked}">
+    <StackPanel Background="Transparent" Orientation="Horizontal" >
+        <ToggleButton ToolTip="{Binding GetDistToolTip}" IsEnabled ="{Binding EnableCmdDist}"
+                    Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding GetDistIsChecked}">
          <Image Source="/Resources/InstrumentPanel/GetDist.png" Stretch="Uniform"  Width="25" />
       </ToggleButton>
       <Button ToolTip="{Binding LinearDimensionToolTip}"
              ToolTipService.ShowOnDisabled="True"
-             Command="{Binding LinearDimensionCommand}" IsEnabled="{Binding bLayerOk}"
-             Visibility="{Binding PrintHardwareVisibility}">
+             Command="{Binding LinearDimensionCommand}" IsEnabled="{Binding EnableCmdDimension}"
+             Visibility="{Binding DimensionVisibility}">
             <Image Source="/Resources/InstrumentPanel/LinearDimension.png" Stretch="Uniform"  Width="25"/>
       </Button>
+        <TextBox Style="{StaticResource DimensioParameter}"
+                 Visibility="{Binding TextDimensionVisibility}" Margin="5" 
+                 Width="100" Height="25" 
+                 Text="{Binding TextDimension, UpdateSourceTrigger=PropertyChanged}">
+            <TextBox.InputBindings>
+                <KeyBinding Key="Enter" Command="{Binding OkTextDimension}"/>
+            </TextBox.InputBindings>
+        </TextBox>
+
         <Button Command="{Binding PrintHardwareCommand}" ToolTip="{Binding PrintHardwareToolTip}" Focusable="False"
-                Visibility="{Binding PrintHardwareVisibility}">
-          <ContentControl>
-                <Image Source="/Resources/TopCommandBar/SaveAs.png" Stretch="Uniform"  Width="25"/>
-          </ContentControl>
+              IsEnabled ="{Binding EnableCmdSaveImg}" Visibility="{Binding SaveImgHardware}">
+         <ContentControl>
+               <Image Source="/Resources/TopCommandBar/SaveAs.png" Stretch="Uniform"  Width="25"/>
+         </ContentControl>
       </Button>
     </StackPanel>
 
diff --git a/SceneManager/InstrumentPanel/InstrumentPanelVM.vb b/SceneManager/InstrumentPanel/InstrumentPanelVM.vb
index b2896ae..e49e7d1 100644
--- a/SceneManager/InstrumentPanel/InstrumentPanelVM.vb
+++ b/SceneManager/InstrumentPanel/InstrumentPanelVM.vb
@@ -7,7 +7,7 @@ Public Class InstrumentPanelVM
 
    Implements INotifyPropertyChanged
 
-#Region "FIELDS & PROPERTIES"
+   Public Event EnableCurrentPage()
 
 #Region "ToolTip"
 
@@ -25,6 +25,8 @@ Public Class InstrumentPanelVM
 
 #End Region       ' ToolTip
 
+#Region "FIELDS & PROPERTIES"
+
    Private m_GetDistIsChecked As Boolean = True
    Public Property GetDistIsChecked As Boolean
       Get
@@ -46,43 +48,111 @@ Public Class InstrumentPanelVM
          Map.refSceneManagerVM.ProjectScene.SetStatusGetDistance()
       Else
          Map.refSceneManagerVM.ProjectScene.ResetStatusGetDistance()
-         'Map.refSceneManagerVM.ProjectScene.SetStatusNull()
+         If m_DimensionVisibility = Visibility.Collapsed Then
+            Map.refSceneManagerVM.ProjectScene.SetStatusNull()
+         End If
          Dim rfStatusBarVM As StatusBarVM = Map.refStatusBarVM
          rfStatusBarVM.StatusOutput = String.Empty
       End If
    End Sub
 
-   Private m_PrintHardwareVisibility As Visibility = Visibility.Collapsed
-   Public Property PrintHardwareVisibility As Visibility
+   ' visualizzo il bottone delle quote
+   Private m_DimensionVisibility As Visibility
+   Public Property DimensionVisibility As Visibility
       Get
-         Return m_PrintHardwareVisibility
+         If Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nHardwarePage Then
+            m_DimensionVisibility = OptionModule.m_DimensionHardware
+         ElseIf Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nDDFPage Then
+            m_DimensionVisibility = OptionModule.m_DimensionDoor
+         End If
+         If m_DimensionVisibility = Visibility.Collapsed Then
+            'Map.refSceneManagerVM.ProjectScene.SetStatusNull()
+         End If
+         NotifyPropertyChanged("SaveImgHardware")
+         Return m_DimensionVisibility
       End Get
       Set(value As Visibility)
-         m_PrintHardwareVisibility = value
-         NotifyPropertyChanged("PrintHardwareVisibility")
+         m_DimensionVisibility = value
+         NotifyPropertyChanged("DimensionVisibility")
       End Set
    End Property
 
-#Region "Button state"
-
-   Private m_bLayerOk As Boolean = True
-   Public Property bLayerOk As Boolean
+   ' visualizzo il bottone per creare la stampa dell'immagine
+   Private m_SaveImgHardware As Visibility = Visibility.Collapsed
+   Public Property SaveImgHardware As Visibility
       Get
-         Return m_bLayerOk
+         Return m_DimensionVisibility
       End Get
-      Set(value As Boolean)
-         m_bLayerOk = value
-         NotifyPropertyChanged("bLayerOk")
+      Set(value As Visibility)
+         m_SaveImgHardware = value
+         NotifyPropertyChanged("SaveImgHardware")
       End Set
    End Property
 
-#End Region    ' Button state
+   Private m_TextDimensionVisibility As Visibility = Visibility.Collapsed
+   Public Property TextDimensionVisibility As Visibility
+      Get
+         Return m_TextDimensionVisibility
+      End Get
+      Set(value As Visibility)
+         m_TextDimensionVisibility = value
+         NotifyPropertyChanged("TextDimensionVisibility")
+      End Set
+   End Property
+
+   Private m_TextDimension As String = "<>"
+   Public Property TextDimension As String
+      Get
+         Return m_TextDimension
+      End Get
+      Set(value As String)
+         m_TextDimension = value
+         NotifyPropertyChanged("TextDimension")
+      End Set
+   End Property
+
+   Private m_EnablePage As Boolean = True
+   Public ReadOnly Property EnablePage As Boolean
+      Get
+         Return m_EnablePage
+      End Get
+   End Property
+   Public Sub SetEnablePage(bEnablePage As Boolean)
+      m_EnablePage = bEnablePage
+      NotifyPropertyChanged("EnableCmdSaveImg")
+      NotifyPropertyChanged("EnableCmdDimension")
+      NotifyPropertyChanged("EnableCmdDist")
+      Map.refRefreshPanelVM.NotifyPropertyChanged("EnableRefreschPanel")
+      Map.refDimensioningPanelVM.NotifyPropertyChanged("EnableDimensionPanel")
+      RaiseEvent EnableCurrentPage()
+   End Sub
+
+   Public ReadOnly Property EnableCmdDist As Boolean
+      Get
+         Return m_EnablePage
+      End Get
+   End Property
+
+   Public ReadOnly Property EnableCmdSaveImg As Boolean
+      Get
+         Return m_EnablePage
+      End Get
+   End Property
+
+   Public ReadOnly Property EnableCmdDimension As Boolean
+      Get
+         Return m_EnablePage
+      End Get
+   End Property
+
+#End Region    ' FIELDS & PROPERTIES
 
    ' Definizione comandi
    Private m_cmdLinDim As ICommand
    Private m_cmdPrintHardware As ICommand
+   Private m_cmdOkTextDimension As ICommand
 
-#End Region    ' FIELDS & PROPERTIES
+#Region "COMMAND"
 
 #Region "LinearDimensionCommand"
 
@@ -96,7 +166,6 @@ Public Class InstrumentPanelVM
    End Property
 
    Private m_DimensioningLayer As Integer
-
    Public Sub LinearDimension(ByVal param As Object)
       GetDistIsChecked = False
       Dim x As Integer = EgtSetCurrPartLayer(EgtGetFirstPart(), m_DimensioningLayer)
@@ -105,6 +174,8 @@ Public Class InstrumentPanelVM
          m_DimensioningLayer = EgtGetCurrLayer()
          'EgtSetColor(m_DimensioningLayer, "BLACK")
       End If
+      ' blocco la pagina corrente
+      SetEnablePage(False)
       Map.refSceneManagerVM.ProjectScene.SetStatusSelPoint()
       If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
          Map.refSceneManagerVM.GetController.ExecuteCommand(Controller.CMD.LINEARDIMENSION)
@@ -132,13 +203,45 @@ Public Class InstrumentPanelVM
          MessageBox.Show(EgtMsg(50186), EgtMsg(50144), MessageBoxButton.OK, MessageBoxImage.Warning)
          Return
       End If
-      If IsNothing(Map.refHardwarePageVM.CurrHardware) OrElse IsNothing(Map.refHardwarePageVM.CurrHardware.SelTemplate) Then Return
-      Dim sCurrDir As String = Path.GetDirectoryName(Map.refHardwarePageVM.CurrHardware.CurrPath())
-      Dim sImageFile As String = sCurrDir & "\" & Path.GetFileNameWithoutExtension(Map.refHardwarePageVM.CurrHardware.CurrPath) & ".png"
-      ExportPngFromNge(sImageFile)
+      If Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nHardwarePage Then
+         If IsNothing(Map.refHardwarePageVM.CurrHardware) OrElse IsNothing(Map.refHardwarePageVM.CurrHardware.SelTemplate) Then Return
+         Dim sCurrDir As String = Path.GetDirectoryName(Map.refHardwarePageVM.CurrHardware.CurrPath())
+         Dim sImageFile As String = sCurrDir & "\" & Path.GetFileNameWithoutExtension(Map.refHardwarePageVM.CurrHardware.CurrPath) & ".png"
+         ExportPngFromNge(sImageFile)
+      ElseIf Map.refMainWindowVM.SelectedPage = MainWindowVM.ListPageEnum.nDDFPage Then
+         If IsNothing(Map.refAssemblyManagerVM.CurrProject) OrElse IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) OrElse IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.Name) Then Return
+         Dim sImageFile As String = IniFile.m_sTempDir & "\Image.png"
+         ExportPngFromNge(sImageFile)
+      Else
+         Return
+      End If
+
    End Sub
 
-#End Region
+#End Region    ' PrintHardwareCommand
+
+#Region "OkText"
+
+   Public ReadOnly Property OkTextDimension As ICommand
+      Get
+         If m_cmdOkTextDimension Is Nothing Then
+            m_cmdOkTextDimension = New Command(AddressOf OkText)
+         End If
+         Return m_cmdOkTextDimension
+      End Get
+   End Property
+
+   Public Sub OkText()
+      TextDimensionVisibility = Visibility.Collapsed
+      Map.refSceneManagerVM.GetController.Done(TextDimension)
+      SetEnablePage(True)
+   End Sub
+
+#End Region    ' OkText
+
+#End Region    ' Command
+
+#Region "METHODS"
 
    Public Function ExportPngFromNge(ByRef SPathImage As String) As Boolean
       ' Creo l'immagine da allegare
@@ -160,10 +263,14 @@ Public Class InstrumentPanelVM
       Return True
    End Function
 
+#End Region    ' Methods
+
 #Region "CONSTRUCTOR"
 
    Sub New()
       Map.SetRefInstrumentPanelVM(Me)
+      Map.refPartPageVM.PrepareEvent()
+      Map.refHardwarePageVM.PrepareEvent()
       IniFile.m_ProjectSceneContext = Map.refSceneManagerVM.ProjectScene.GetCtx
    End Sub
 
diff --git a/SceneManager/RefreshPanel/RefreshPanelV.xaml b/SceneManager/RefreshPanel/RefreshPanelV.xaml
index 293a14c..1672d9f 100644
--- a/SceneManager/RefreshPanel/RefreshPanelV.xaml
+++ b/SceneManager/RefreshPanel/RefreshPanelV.xaml
@@ -2,7 +2,7 @@
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
 
-   <StackPanel Background="Transparent" Orientation="Horizontal">
+   <StackPanel Background="Transparent" Orientation="Horizontal" IsEnabled="{Binding EnableRefreschPanel}">
       <Button  ToolTip="{Binding RefreshToolTip}" Width="Auto" 
               Command="{Binding Refresh_Command}">
          <Image Source="/Resources/Refresh/Refresh.png" Stretch="Uniform" Height="22"/>
diff --git a/SceneManager/RefreshPanel/RefreshPanelVM.vb b/SceneManager/RefreshPanel/RefreshPanelVM.vb
index 85655cf..9761aec 100644
--- a/SceneManager/RefreshPanel/RefreshPanelVM.vb
+++ b/SceneManager/RefreshPanel/RefreshPanelVM.vb
@@ -83,6 +83,16 @@ Public Class RefreshPanelVM
       End Set
    End Property
 
+   Public ReadOnly Property EnableRefreschPanel As Boolean
+      Get
+         If Not IsNothing(Map.refInstrumentPanelVM) Then
+            Return Map.refInstrumentPanelVM.EnablePage
+         Else
+            Return True
+         End If
+      End Get
+   End Property
+
 #Region "Messages"
 
    Public ReadOnly Property RefreshMsg As String
diff --git a/SceneManager/SceneManagerVM.vb b/SceneManager/SceneManagerVM.vb
index 20542b3..779e139 100644
--- a/SceneManager/SceneManagerVM.vb
+++ b/SceneManager/SceneManagerVM.vb
@@ -235,6 +235,7 @@ Public Class SceneManagerVM
       m_Controller.SetScene(m_ProjectScene)
       Dim nShowMode As Integer = GetMainPrivateProfileInt(S_SCENE, K_SHOWMODE, SM.SHADING)
       Dim nShowCurveDir As Integer = GetMainPrivateProfileInt(S_SCENE, K_CURVEDIR, 0)
+      AddHandler Map.refInstrumentPanelVM.EnableCurrentPage, AddressOf Map.refPartPageVM.SetStatusPage
    End Sub
 
    'questo metodo restituisce l'errore letto nel file CurrDoor.txt
@@ -464,7 +465,8 @@ Public Class SceneManagerVM
 
    Private Sub OnSetInputBoxText(ByVal sText As String) Handles m_Controller.SetInputBoxText
       If sText = "<>" Then
-         m_Controller.Done(sText)
+         Map.refInstrumentPanelVM.TextDimensionVisibility = Visibility.Visible
+         'm_Controller.Done(sText)
          'm_ProjectScene.SetStatusNull()
       End If
    End Sub
@@ -474,8 +476,14 @@ Public Class SceneManagerVM
       If e.Key = Key.Escape Then
          ' reset Azione corrente
          m_Controller.ResetStatus()
+         ' nacondo il campo di inserimento del testo
+         Map.refInstrumentPanelVM.TextDimensionVisibility = Visibility.Collapsed
          ' reset Distanza
          Map.refInstrumentPanelVM.GetDistIsChecked = False
+         If Map.refInstrumentPanelVM.DimensionVisibility = Visibility.Collapsed Then
+            Map.refSceneManagerVM.ProjectScene.SetStatusNull()
+         End If
+         Map.refInstrumentPanelVM.SetEnablePage(True)
       End If
    End Sub
 
diff --git a/StatusBar/StatusBarV.xaml b/StatusBar/StatusBarV.xaml
index ecd1a54..9755327 100644
--- a/StatusBar/StatusBarV.xaml
+++ b/StatusBar/StatusBarV.xaml
@@ -35,10 +35,9 @@
       </StatusBarItem>
       
       <StatusBarItem Grid.Column="2">
-         <ComboBox ItemsSource="{Binding SnapPointTypeList}" 
+            <ComboBox ItemsSource="{Binding SnapPointTypeList}" 
                    SelectedItem="{Binding SnapPointSelect}"
                    DisplayMemberPath="SPMessage" Width="130"/>
-         <!--<Button Content="{Binding SnapPointTypeText}" Background="{Binding SnapPointTypeBackground}" Width="80"/>-->
-      </StatusBarItem>
+        </StatusBarItem>
    </StatusBar>
 </UserControl>