diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb index aa6ff13..c38c5a6 100644 --- a/Constants/ConstIni.vb +++ b/Constants/ConstIni.vb @@ -27,6 +27,7 @@ Module ConstIni Public Const K_SUPPORT As String = "Support" Public Const K_RUNAS As String = "RunAs" Public Const K_DISPOSITION As String = "Disposition" + Public Const K_SMARTHELP As String = "SmartHelp" Public Const S_LANGUAGES As String = "Languages" Public Const K_LANGUAGE As String = "Language" diff --git a/Guide/GuideV.xaml.vb b/Guide/GuideV.xaml.vb index 4803a0b..c464b0d 100644 --- a/Guide/GuideV.xaml.vb +++ b/Guide/GuideV.xaml.vb @@ -13,7 +13,9 @@ ' Per evitare richieste di approvare esecuzione javascript : ' - impostare possibilità di eseguire script in locale da Windows ' - si cambia il riferimento al disco C: nel modo seguente - Dim sHelpDir As String = IniFile.m_sHelpDir.Replace("C:", "file://127.0.0.1/c$") + + Dim sHelpDir As String = String.Empty + If OptionModule.m_SmartHelp Then sHelpDir = IniFile.m_sHelpDir Else sHelpDir = IniFile.m_sHelpDir.Replace("C:", "file://127.0.0.1/c$") DoorBrowser.Navigate(New Uri(sHelpDir & "\" & m_Language & "\" & GuideVM.m_AddressGuide & ".html")) End Sub diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb index 5a37148..0449fdd 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 fd461a0..66836cc 100644 --- a/OptionsWindow/OptionModule.vb +++ b/OptionsWindow/OptionModule.vb @@ -33,6 +33,8 @@ Friend Module OptionModule Assembly = 1 End Enum + Friend m_SmartHelp As Boolean = False + Friend m_Width As String Friend m_Height As String Friend m_Thickness As String @@ -189,6 +191,14 @@ Friend Module OptionModule End If End If + Dim nSmartHelp As Integer = 1 + nSmartHelp = GetMainPrivateProfileInt(S_GENERAL, K_SMARTHELP, 1) + If nSmartHelp = 0 Then + m_SmartHelp = True + Else + m_SmartHelp = False + End If + ' leggo il tipo di Bevel selezionato Dim BevelUp As Visibility DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, BevelUp) @@ -199,12 +209,12 @@ Friend Module OptionModule 'disposizione in macchina delle porte (variabile globale) Select Case GetMainPrivateProfileInt(S_GENERAL, K_DISPOSITION, 0) - Case 0 - m_Disposition.Name = "BySwing" - Case 1 - m_Disposition.Name = "BD" - Case 2 - m_Disposition.Name = "BU" + Case 0 + m_Disposition.Name = "BySwing" + Case 1 + m_Disposition.Name = "BD" + Case 2 + m_Disposition.Name = "BU" End Select ' questa variabile deve essere usata solo in locale per settare la visibilità della optionpage dei bevel m_sDisposition = m_Disposition.Name