EgtDOORCReator 1.9j1:

- è possibile aprire la pagina Help direttamente nel Browser del pc.
This commit is contained in:
Nicola Pievani
2018-10-04 13:14:52 +00:00
parent 42d6836080
commit e9477be7b2
4 changed files with 50 additions and 9 deletions
+21 -3
View File
@@ -42,7 +42,14 @@ Friend Module OptionModule
Assembly = 1
End Enum
Friend m_SmartHelp As Boolean = False
Friend m_SmartHelp As HelpPage = HelpPage.WebBrowserVB
Friend Enum HelpPage
LocalHost
WebBrowserVB
WebBrowserPC
End Enum
Friend m_DisableHM As Boolean = False
Friend m_DisableDeleteCommandHM As Boolean = False
@@ -211,7 +218,18 @@ Friend Module OptionModule
EgtOutLog(String.Format(EgtMsg(50180), sMachinDir))
End If
m_SmartHelp = (GetMainPrivateProfileInt(S_GENERAL, K_SMARTHELP, 1) = 0)
Dim nHelpSelct As Integer = 0
Select Case GetMainPrivateProfileInt(S_GENERAL, K_SMARTHELP, 1)
Case 0
m_SmartHelp = HelpPage.WebBrowserVB
Case 1
m_SmartHelp = HelpPage.LocalHost
Case 2
m_SmartHelp = HelpPage.WebBrowserPC
Case Else
m_SmartHelp = HelpPage.WebBrowserVB
End Select
m_DisableHM = (GetMainPrivateProfileInt(S_GENERAL, K_DISABLEHM, 1) = 0)
@@ -632,7 +650,7 @@ Friend Module OptionModule
Else
SwingDDF = Trim(SwingDDF)
SwingDDF = SwingDDF.Substring(0, 2)
End If
End If
Exit For
End If
Next