EgtDOORCreato 2.1c2 :

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

ProjectManager/ProjectManagerHardwareV.xaml

@@ -33,16 +33,21 @@
             <Image Source="/Resources/TopCommandBar/Door.png" Stretch="Uniform" />
          </ContentControl>
       </Button>
-      <Button Command="{Binding OptionsCommand}" ToolTip="{Binding OptionsToolTip}" Focusable="False">
+        <Button Command="{Binding DimensionCommand}" ToolTip="{Binding DimensionToolTip}" Focusable="False">
+            <ContentControl>
+                <Image Source="/Resources/TopCommandBar/HPart.png" Stretch="Uniform" Width="25" Height="17" RenderTransformOrigin="0.497,0.509" />
+            </ContentControl>
+        </Button>
+        <Button Command="{Binding OptionsCommand}" ToolTip="{Binding OptionsToolTip}" Focusable="False">
          <Image Source="/Resources/TopCommandBar/Options.png" Height="22" />
       </Button>
       <Button Command="{Binding SendFeedbackCommand}" ToolTip="{Binding SendFeedbackToolTip}" Focusable="False">
          <Image Source="/Resources/TopCommandBar/Send.png" Height="22" Margin="3,0,3,0" />
       </Button>
-      <Button Command="{Binding GuideCommand}" ToolTip="{Binding GuideToolTip}" Focusable="False">
-         <ContentControl>
-            <Image Source="/Resources/TopCommandBar/Help.png" Stretch="Uniform" />
-         </ContentControl>
-      </Button>
-   </StackPanel>
+        <Button Command="{Binding GuideCommand}" ToolTip="{Binding GuideToolTip}" Focusable="False">
+            <ContentControl>
+                <Image Source="/Resources/TopCommandBar/Help.png" Stretch="Uniform" />
+            </ContentControl>
+        </Button>
+    </StackPanel>
 </UserControl>

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