EgtDOORCreator 1.9a2 :
- aggiunta nel file Config.ini del flag SmartHelp per abilitare la richiesta di lettura degli script legati alla pagina Help.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user