EgtDOORCreator 1.8j4 :
- aggiunta dei bottoni per le viste - aggiunta del bottone per leggere gli errori - modifica della lettura della TextBoxOnOff - modifica dell'eliminazione file
This commit is contained in:
@@ -119,6 +119,16 @@ Friend Module OptionModule
|
||||
If Not EgtLoadMessages(sMsgFilePath) Then
|
||||
EgtOutLog(EgtMsg(50127))
|
||||
End If
|
||||
|
||||
'i valori della pagina dell'assemblato
|
||||
Dim Config As String = String.Empty
|
||||
GetPrivateProfileString(S_GENERAL, S_RUNAS, "1", Config)
|
||||
If Config = "0" Then
|
||||
m_ConfigurationSoftware = "Door"
|
||||
Else
|
||||
m_ConfigurationSoftware = "Assembly"
|
||||
End If
|
||||
|
||||
' imposto unità di misura per interfaccia utente
|
||||
m_bIsMmUnit = (GetPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
|
||||
EgtSetUiUnits(m_bIsMmUnit)
|
||||
@@ -267,10 +277,7 @@ Friend Module OptionModule
|
||||
' carico l'ordinamento dei bottoni
|
||||
DefaultGetPrivateProfileList(S_COMPOORDER, K_COMPOORDER_INI, m_CompoPaneOrder)
|
||||
'-----------------------------------------------------------------------------------------------------------------
|
||||
'i valori della pagina dell'assemblato
|
||||
Dim Config As String = String.Empty
|
||||
GetPrivateProfileString(K_CONFIGURATION, S_RUNAS, "Assembly", Config)
|
||||
m_ConfigurationSoftware = Config
|
||||
|
||||
Dim ThicknessJamb As String = String.Empty
|
||||
DefaultGetPrivateProfileString(S_SIZEJAMB, K_THICKNESS, "25", ThicknessJamb)
|
||||
m_ThicknessJamb = ThicknessJamb
|
||||
|
||||
Reference in New Issue
Block a user