Egalware/EgtDOORCreator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

EgtDOORcreator 2.1k1 :

Browse Source 
-> aggiorno direttorio porte corrente (modalità progetto);
-> correzione comando "Duplica";
-> aggiunto nuovo profilo sul top della porta (Angle);
-> eliminazione progetti (configurabile);
-> configurare la modalità di funzionamento da OptionPage "SingleDoor"/"Project".
This commit is contained in:
Nicola Pievani
2019-11-13 14:20:58 +00:00
parent be9bccdc6f
commit 75bdbe6b15
20 changed files with 629 additions and 380 deletions
Download Patch File Download Diff File Expand all files Collapse all files
OptionsWindow/OptionModule.vb
+4 -9
View File
@@ -26,6 +26,8 @@ Friend Module OptionModule
Friend m_DisableAddGeometry As Visibility = Visibility.Collapsed
Friend m_DisableArch As Visibility = Visibility.Collapsed
Friend m_DeleteProject As Boolean = False
Friend m_DisableProperties As Visibility
Friend m_MaterialIsVisible As Visibility = Visibility.Visible
Friend m_PropertList As New ObservableCollection(Of PropertyItem)
@@ -257,6 +259,8 @@ Friend Module OptionModule
m_SingleDoor = If(GetMainPrivateProfileInt(S_GENERAL, K_SINGLEDOOR, 0) = 1, True, False)
m_DeleteProject = If(GetMainPrivateProfileInt(S_GENERAL, K_DELETEPROJECT, 0) = 1, True, False)
' leggo il tipo di Bevel selezionato
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, m_bBevelUp)
DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, m_bBevelDown)
@@ -308,15 +312,6 @@ Friend Module OptionModule
If PropertyList.Count > 0 Then LoadPropertiesList(PropertyList, m_PropertListJamb)
End If
Part.m_MaterilaList = m_MaterialList
'-------------------------------------------------------------------------------------------------------------------------------
' carico la lista delle proprietà
'Dim PropertyList As New ObservableCollection(Of String)
'DefaultGetPrivateProfileObservableCollection(ConstIni.S_PROPERTIES_INI, ConstIni.K_PROPRTIESLIST_INI, PropertyList)
'LoadPropertiesList(PropertyList, m_PropertList)
'PropertyList.Clear()
'DefaultGetPrivateProfileObservableCollection(ConstIni.S_PROPERTIES_INI, ConstIni.K_PROPRTIESLISTJAMB_INI, PropertyList)
'If PropertyList.Count > 0 Then LoadPropertiesList(PropertyList, m_PropertListJamb)
'-------------------------------------------------------------------------------------------------------------------------------
' Leggo le dimensioni della porta dal file Default.ini
Dim IsMM As Boolean = False