From 01d1d6fdbabac6b1dbd777401052a43235029daf Mon Sep 17 00:00:00 2001
From: Nicola Pievani <nicola.p@egaltech.com>
Date: Tue, 20 Mar 2018 15:18:45 +0000
Subject: [PATCH] =?UTF-8?q?EgtDOORCreator=201.9c5=20:=20-=20il=20bottone?=
 =?UTF-8?q?=20Delete=20nella=20pagina=20HardwareManager=20=C3=A8=20configu?=
 =?UTF-8?q?rabile=20da=20file=20Config.ini=20"DisableDeleteCommandHM=3D0".?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Constants/ConstIni.vb                       |  1 +
 My Project/AssemblyInfo.vb                  |  4 ++--
 OptionsWindow/OptionModule.vb               |  9 +++++++++
 ProjectManager/ProjectManagerHardwareV.xaml |  3 ++-
 ProjectManager/ProjectManagerHardwareVM.vb  | 10 ++++++++++
 5 files changed, 24 insertions(+), 3 deletions(-)

diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb
index e8371a1..5b99512 100644
--- a/Constants/ConstIni.vb
+++ b/Constants/ConstIni.vb
@@ -29,6 +29,7 @@ Module ConstIni
    Public Const K_DISPOSITION As String = "Disposition"
    Public Const K_SMARTHELP As String = "SmartHelp"
    Public Const K_DISABLEHM As String = "DisableHM"
+   Public Const K_DISABLEDELETECOMMANDHM As String = "DisableDeleteCommandH"
 
    Public Const S_LANGUAGES As String = "Languages"
    Public Const K_LANGUAGE As String = "Language"
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index db36870..2116b9f 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("1.9.3.4")> 
-<Assembly: AssemblyFileVersion("1.9.3.4")> 
+<Assembly: AssemblyVersion("1.9.3.5")> 
+<Assembly: AssemblyFileVersion("1.9.3.5")> 
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index 2179026..b929b3a 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -35,6 +35,7 @@ Friend Module OptionModule
 
    Friend m_SmartHelp As Boolean = False
    Friend m_DisableHM As Boolean = False
+   Friend m_DisableDeleteCommandHM As Boolean = False
 
    Friend m_Width As String
    Friend m_Height As String
@@ -208,6 +209,14 @@ Friend Module OptionModule
          m_DisableHM = False
       End If
 
+      Dim nDisableDeleteCommandHM As Integer = 1
+      nDisableDeleteCommandHM = GetMainPrivateProfileInt(S_GENERAL, K_DISABLEDELETECOMMANDHM, 1)
+      If nDisableDeleteCommandHM = 0 Then
+         m_DisableDeleteCommandHM = True
+      Else
+         m_DisableDeleteCommandHM = False
+      End If
+
       ' leggo il tipo di Bevel selezionato
       Dim BevelUp As Visibility
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, BevelUp)
diff --git a/ProjectManager/ProjectManagerHardwareV.xaml b/ProjectManager/ProjectManagerHardwareV.xaml
index 9af56ab..69e708d 100644
--- a/ProjectManager/ProjectManagerHardwareV.xaml
+++ b/ProjectManager/ProjectManagerHardwareV.xaml
@@ -16,7 +16,8 @@
          </ContentControl>
       </Button>
       
-      <Button Command="{Binding DeleteCommand}" ToolTip="{Binding DeleteToolTip}" Focusable="False">
+      <Button Command="{Binding DeleteCommand}" ToolTip="{Binding DeleteToolTip}" Focusable="False"
+              Visibility="{Binding DisableDeleteCommandHM}">
          <ContentControl>
             <Image Source="/Resources/TopCommandBar/Delete.png" Stretch="Uniform" />
          </ContentControl>
diff --git a/ProjectManager/ProjectManagerHardwareVM.vb b/ProjectManager/ProjectManagerHardwareVM.vb
index f9b2f82..76f877c 100644
--- a/ProjectManager/ProjectManagerHardwareVM.vb
+++ b/ProjectManager/ProjectManagerHardwareVM.vb
@@ -26,6 +26,16 @@ Public Class ProjectManagerHardwareVM
       End Set
    End Property
 
+   Public ReadOnly Property DisableDeleteCommandHM As Visibility
+      Get
+         If OptionModule.m_DisableDeleteCommandHM Then
+            Return Visibility.Visible
+         Else
+            Return Visibility.Collapsed
+         End If
+      End Get
+   End Property
+
    ' Definizione comandi
    Private m_cmdNew As ICommand
    Private m_cmdSave As ICommand