EgtDoorCreator 1.9e1:

- crea nuovi brand
- selezione file nge

ProjectManager/ProjectManagerHardwareVM.vb

@@ -37,6 +37,7 @@ Public Class ProjectManagerHardwareVM
    End Property
 
    ' Definizione comandi
+   Private m_cmdNewDir As ICommand
    Private m_cmdNew As ICommand
    Private m_cmdSave As ICommand
    Private m_cmdDelete As ICommand
@@ -97,6 +98,12 @@ Public Class ProjectManagerHardwareVM
          Return EgtMsg(50308)
       End Get
    End Property
+   Public ReadOnly Property NewDirToolTip As String
+      Get
+         ' New Directory
+         Return EgtMsg(50419)
+      End Get
+   End Property
 
 #End Region ' ToolTip
 
@@ -112,6 +119,47 @@ Public Class ProjectManagerHardwareVM
 
 #Region "COMMANDS"
 
+#Region "NewDirCommand"
+
+   Public ReadOnly Property NewDirCommand As ICommand
+      Get
+         If m_cmdNewDir Is Nothing Then
+            m_cmdNewDir = New Command(AddressOf NewDirCmd)
+         End If
+         Return m_cmdNewDir
+      End Get
+   End Property
+
+   Public Sub NewDirCmd()
+      If Not IsNothing(Map.refHardwarePageVM) And Not IsNothing(Map.refHardwarePageVM.CurrHardware) Then
+         If Map.refHardwarePageVM.CurrHardware.SaveControl() = Hardware.SaveResult.nCancel Then
+            Return
+         ElseIf Map.refHardwarePageVM.CurrHardware.SaveControl() = Hardware.SaveResult.nYes Then
+            Map.refHardwarePageVM.CurrHardware.Save()
+         End If
+         ' Richiedo il nome del progetto (cioè la directory da creare)
+         Dim SaveFileDialog As New EgtWPFLib5.EgtSaveFileDialog
+         ' New Directory
+         SaveFileDialog.Title = EgtMsg(50419)
+         SaveFileDialog.Directory = Map.refHardwarePageVM.CurrHardware.HardwareGeneral.Path & "\"
+         SaveFileDialog.Extension = "\"
+         If Not SaveFileDialog.EgtShowDialog Then
+            Return
+         End If
+         If Directory.Exists(SaveFileDialog.FileName) Then
+            MessageBox.Show("Directory already exists", EgtMsg(50144), MessageBoxButton.OK, MessageBoxImage.Warning)
+            Return
+         End If
+         Directory.CreateDirectory(SaveFileDialog.FileName)
+         Map.refHardwarePageVM.CurrHardware.BrandList.Add(New CompoBrandDir(SaveFileDialog.FileName, Path.GetFileName(Map.refHardwarePageVM.CurrHardware.HardwareGeneral.Path)))
+         Map.refHardwarePageVM.CurrHardware.SelBrand = Map.refHardwarePageVM.CurrHardware.BrandList(Map.refHardwarePageVM.CurrHardware.BrandList.Count - 1)
+         Map.refHardwarePageVM.CurrHardware.VisibilityType = Visibility.Collapsed
+         Map.refHardwarePageVM.CurrHardware.RefreshTemplateListEgtDOORCreator()
+      End If
+   End Sub
+
+#End Region ' NewDirCommand
+
 #Region "NewCommand"
 
    Public ReadOnly Property NewCommand As ICommand
@@ -345,12 +393,14 @@ Public Class ProjectManagerHardwareVM
       End If
       If Not IsNothing(Map.refHardwarePageVM.CurrHardware) Then
          Dim refNewHardwareV As New NewHardwareV
+         Dim OldHardwareName As String = Map.refHardwarePageVM.CurrHardware.SelTemplate
          Dim refNewhardwareVM As New NewHardwareVM(Map.refHardwarePageVM.CurrHardware.HardwareGeneral, NewHardwareVM.CommandList.nDuplicate)
          refNewHardwareV.DataContext = refNewhardwareVM
          refNewhardwareVM.TypeVisibility = Visibility.Collapsed
          refNewHardwareV.Owner = Application.Current.MainWindow
          refNewHardwareV.ShowDialog()
          refNewHardwareV.Close()
+         Map.refHardwarePageVM.CurrHardware.DuplicateGeometryName(OldHardwareName)
       End If
 
    End Sub