From a3cf7ca6c8116a24ce6eabedd644ff2f798bf6b1 Mon Sep 17 00:00:00 2001
From: Nicola Pievani <nicola.p@egaltech.com>
Date: Tue, 26 Mar 2019 18:54:48 +0000
Subject: [PATCH] EgtDOORCreato 2.1c2 : -> aggiunta della pulsante Dimensioni
 per modificare le dimensioni dell'anta nell'HardwareManager.

---
 EgtDOORCreator.vbproj                       | 11 +++++++++
 My Project/AssemblyInfo.vb                  |  4 +--
 ProjectManager/ProjectManagerHardwareV.xaml | 19 +++++++++------
 ProjectManager/ProjectManagerHardwareVM.vb  | 27 +++++++++++++++++++++
 4 files changed, 52 insertions(+), 9 deletions(-)

diff --git a/EgtDOORCreator.vbproj b/EgtDOORCreator.vbproj
index 5e136eb..67d390d 100644
--- a/EgtDOORCreator.vbproj
+++ b/EgtDOORCreator.vbproj
@@ -157,6 +157,9 @@
     <Compile Include="HardwareGeometry\GeomtryListConfigV.xaml.vb">
       <DependentUpon>GeomtryListConfigV.xaml</DependentUpon>
     </Compile>
+    <Compile Include="HardwarePart\HardwarePartV.xaml.vb">
+      <DependentUpon>HardwarePartV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="HardwareManager\Hardware.vb" />
     <Compile Include="HardwareManager\HardwarePageVM.vb" />
     <Compile Include="HardwareManager\HardwarePageV.xaml.vb">
@@ -165,6 +168,7 @@
     <Compile Include="HardwareManager\HardwareHelpSceneHostV.xaml.vb">
       <DependentUpon>HardwareHelpSceneHostV.xaml</DependentUpon>
     </Compile>
+    <Compile Include="HardwarePart\HardwarePartVM.vb" />
     <Compile Include="Launcher\LauncherModule.vb" />
     <Compile Include="Launcher\LauncherV.xaml.vb">
       <DependentUpon>LauncherV.xaml</DependentUpon>
@@ -270,6 +274,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="HardwarePart\HardwarePartV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="HardwareManager\HardwarePageV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -568,6 +576,9 @@
   <ItemGroup>
     <Resource Include="Resources\TopCommandBar\IsModify.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\TopCommandBar\HPart.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtDOORCreator\EgtDOORCreatorR32.exe
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 1878710..296e06d 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.1.3.1")>
-<Assembly: AssemblyFileVersion("2.1.3.1")>
+<Assembly: AssemblyVersion("2.1.3.2")>
+<Assembly: AssemblyFileVersion("2.1.3.2")>
diff --git a/ProjectManager/ProjectManagerHardwareV.xaml b/ProjectManager/ProjectManagerHardwareV.xaml
index e5eda23..a14c68b 100644
--- a/ProjectManager/ProjectManagerHardwareV.xaml
+++ b/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>
\ No newline at end of file
diff --git a/ProjectManager/ProjectManagerHardwareVM.vb b/ProjectManager/ProjectManagerHardwareVM.vb
index 1473e85..bd7e2cb 100644
--- a/ProjectManager/ProjectManagerHardwareVM.vb
+++ b/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