EgtDOORCreator 2.1j1 :

-> ho tolto dalla OptionPage il tab che si riferisce alle dimensioni dell'Hardware e ho ripristinato il bottone nella barra dei comandi della grafica;
-> ho sostituito i bottoni "Hardware" e "Door" con due RadioButton, cambiata anche la posizione;
-> ho aggiornato le icone "SaveAs" e "HardwarePart".

SceneManager/RefreshPanel/RefreshPanelVM.vb

@@ -16,6 +16,17 @@ Public Class RefreshPanelVM
       End Set
    End Property
 
+   Private m_DimensionVisibility As Visibility = Visibility.Collapsed
+   Public Property DimensionVisibility As Visibility
+      Get
+         Return m_DimensionVisibility
+      End Get
+      Set(value As Visibility)
+         m_DimensionVisibility = value
+         NotifyPropertyChanged("DimensionVisibility")
+      End Set
+   End Property
+
    Private m_ButtonVisibility As Visibility = Visibility.Collapsed
    Public Property ButtonVisibility As Visibility
       Get
@@ -104,6 +115,12 @@ Public Class RefreshPanelVM
       End Get
    End Property
 
+      Public ReadOnly Property DimensionToolTip As String
+      Get
+         Return "Dimension"
+      End Get
+   End Property
+
 #End Region
 
 #Region "ToolTip"
@@ -118,6 +135,7 @@ Public Class RefreshPanelVM
 
    Private m_CmdRefresh As ICommand
    Private m_CmdShowError As ICommand
+   Private m_CmdDimension As ICommand
 
    Sub New()
       Map.SetRefRefreshPanelVM(Me)
@@ -157,6 +175,28 @@ Public Class RefreshPanelVM
 
 #End Region    ' ShowError
 
+#Region "DimensionPart"
+
+   Public ReadOnly Property Dimension_Command As ICommand
+      Get
+         If m_CmdDimension Is Nothing Then
+            m_CmdDimension = New Command(AddressOf DimensionBtn)
+         End If
+         Return m_CmdDimension
+      End Get
+   End Property
+
+   Public Sub DimensionBtn()
+      Dim HardwarePartWindow As New HardwarePartWindowV
+      HardwarePartWindow.Height = 280
+      HardwarePartWindow.Width = 550
+      HardwarePartWindow.DataContext = New HardwarePartWindowVM(new HardwarePartVM)
+      HardwarePartWindow.Owner = Application.Current.MainWindow
+      HardwarePartWindow.ShowDialog() 
+   End Sub
+
+#End Region    ' DimensionPart
+
 #End Region    ' COMMAND
 
 End Class