EgtDOORCreato 2.1c2 :

-> aggiunta della pulsante Dimensioni per modificare le dimensioni dell'anta nell'HardwareManager.

ProjectManager/ProjectManagerHardwareVM.vb

@@ -60,6 +60,7 @@ Public Class ProjectManagerHardwareVM
    Private m_cmdGuide As ICommand
    Private m_cmdDuplica As ICommand
    Private m_cmdDoor As ICommand
+   Private m_cmdDimensionPart As ICommand
 
 #Region "ToolTip"
 
@@ -118,6 +119,12 @@ Public Class ProjectManagerHardwareVM
          Return EgtMsg(50419)
       End Get
    End Property
+   Public ReadOnly Property DimensionToolTip As String
+      Get
+         ' New Directory
+         Return EgtMsg(50418)
+      End Get
+   End Property
 
    Public ReadOnly Property RefreshDirToolTip As String
       Get
@@ -543,6 +550,26 @@ Public Class ProjectManagerHardwareVM
 
 #End Region    ' LastProject
 
+#Region "Dimension Part"
+
+   Public ReadOnly Property DimensionCommand As ICommand
+      Get
+         If m_cmdDimensionPart Is Nothing Then
+            m_cmdDimensionPart = New Command(AddressOf Dimension)
+         End If
+         Return m_cmdDimensionPart
+      End Get
+   End Property
+
+   Public Sub Dimension()
+      Dim ref_HardwarePartVM As New HardwarePartVM()
+      Dim HardwarePartWnd As New HardwarePartV(Application.Current.MainWindow, ref_HardwarePartVM)
+      HardwarePartWnd.ShowDialog()
+      ref_GeometryListConfigVM = Nothing
+   End Sub
+
+#End Region    ' Dimension Part
+
 #End Region    ' Commands
 
    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged