EgtDOORCReator 1.9j1:
- è possibile aprire la pagina Help direttamente nel Browser del pc.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user