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: ' - - + + 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 @@ -