diff --git a/EgtDOORCreator.vbproj b/EgtDOORCreator.vbproj index 5e136eb..67d390d 100644 --- a/EgtDOORCreator.vbproj +++ b/EgtDOORCreator.vbproj @@ -157,6 +157,9 @@ GeomtryListConfigV.xaml + + HardwarePartV.xaml + @@ -165,6 +168,7 @@ HardwareHelpSceneHostV.xaml + LauncherV.xaml @@ -270,6 +274,10 @@ Designer MSBuild:Compile + + Designer + MSBuild:Compile + Designer MSBuild:Compile @@ -568,6 +576,9 @@ + + + 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: ' - - + + 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 @@ - + - - + + \ 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