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:
Nicola Pievani
2017-11-24 17:22:46 +00:00
parent a8ae3ded1e
commit c9f77c33dc
11 changed files with 106 additions and 95 deletions
+11 -4
View File
@@ -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