EgtDOORCreator 2.2d2:
-> gestione associazioni hardware da HardwareManager, -> miglioramento nel caricare assemblato, -> scrittura del tipo di materiale in AboutBox, -> disabilitato TopShape dai frame.
This commit is contained in:
Nicola Pievani
@@ -236,7 +236,7 @@ Friend Module OptionModule
|
||||
IniFile.m_TemplateDir = sTemplateDir
|
||||
Else
|
||||
' mantego l'accesso a quello di default
|
||||
EgtOutLog(String.Format(EgtMsg(50180), sTemplateDir))
|
||||
EgtOutLog(String.Format(EgtMsg(50180), sTemplateDir & " (Directory Template)"))
|
||||
' se il direttorio di default non esiste, lo creo
|
||||
If Not Directory.Exists(IniFile.m_TemplateDir) Then Directory.CreateDirectory(IniFile.m_TemplateDir)
|
||||
End If
|
||||
@@ -246,7 +246,7 @@ Friend Module OptionModule
|
||||
IniFile.m_MachinProject = sMachinDir
|
||||
Else
|
||||
' mantengo l'accesso a quello di default
|
||||
EgtOutLog(String.Format(EgtMsg(50180), sMachinDir))
|
||||
EgtOutLog(String.Format(EgtMsg(50180), sMachinDir & " (Directory Machine)"))
|
||||
End If
|
||||
|
||||
Dim sListLabelDir As String = String.Empty
|
||||
@@ -254,7 +254,7 @@ Friend Module OptionModule
|
||||
IniFile.m_sListLabelDir = sListLabelDir
|
||||
Else
|
||||
' mantengo l'accesso a quello di default
|
||||
EgtOutLog(String.Format(EgtMsg(50180), sListLabelDir))
|
||||
EgtOutLog(String.Format(EgtMsg(50180), sListLabelDir & " (Directory Report)"))
|
||||
End If
|
||||
|
||||
Dim sListLabelFile As String = String.Empty
|
||||
@@ -262,7 +262,7 @@ Friend Module OptionModule
|
||||
IniFile.m_sListLabelCurrent = sListLabelFile
|
||||
Else
|
||||
' mantengo l'accesso a quello di default
|
||||
EgtOutLog(String.Format(EgtMsg(50180), sListLabelFile))
|
||||
EgtOutLog(String.Format(EgtMsg(50180), sListLabelFile & " (File Report)"))
|
||||
End If
|
||||
|
||||
Dim nHelpSelct As Integer = 0
|
||||
@@ -709,31 +709,59 @@ Friend Module OptionModule
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Friend Sub CreateNewPropertiesList(ByRef List As ObservableCollection(Of PropertyItem), ByRef SelectedMaterial As MaterialType)
|
||||
If OptionModule.m_DisableProperties <> Visibility.Visible Then Return
|
||||
If OptionModule.m_MaterialList.Count > 1 Then
|
||||
SelectedMaterial = OptionModule.m_MaterialList(0)
|
||||
List = OptionModule.m_MaterialList(0).PropertiesList
|
||||
return
|
||||
End if
|
||||
' configurazione senza materiali
|
||||
If List.Count > 0 Then List.Clear()
|
||||
For Each Item In OptionModule.m_PropertList
|
||||
List.Add(New PropertyItem(Item.Name, Item.GraphicName, Item.IsChecked))
|
||||
Next
|
||||
End Sub
|
||||
'Friend Sub CreateNewPropertiesList(ByRef List As ObservableCollection(Of PropertyItem), ByRef SelectedMaterial As MaterialType)
|
||||
' If OptionModule.m_DisableProperties <> Visibility.Visible Then Return
|
||||
' If OptionModule.m_MaterialList.Count > 1 Then
|
||||
' SelectedMaterial = OptionModule.m_MaterialList(0)
|
||||
' List = OptionModule.m_MaterialList(0).PropertiesList
|
||||
' Return
|
||||
' End If
|
||||
' ' configurazione senza materiali
|
||||
' If List.Count > 0 Then List.Clear()
|
||||
' For Each Item In OptionModule.m_PropertList
|
||||
' List.Add(New PropertyItem(Item.Name, Item.GraphicName, Item.IsChecked))
|
||||
' Next
|
||||
'End Sub
|
||||
|
||||
Friend Sub CreateNewPropertiesListJamb(ByRef List As ObservableCollection(Of PropertyItem), ByRef SelectedMaterial As MaterialType)
|
||||
'Friend Sub CreateNewPropertiesListJamb(ByRef List As ObservableCollection(Of PropertyItem), ByRef SelectedMaterial As MaterialType)
|
||||
' If OptionModule.m_DisableProperties <> Visibility.Visible Then Return
|
||||
' If OptionModule.m_MaterialList.Count > 1 Then
|
||||
' SelectedMaterial = OptionModule.m_MaterialList(0)
|
||||
' List = OptionModule.m_MaterialList(0).PropertiesList
|
||||
' Return
|
||||
' End If
|
||||
' ' configurazione senza materiali
|
||||
' If List.Count > 0 Then List.Clear()
|
||||
' For Each Item In OptionModule.m_PropertList
|
||||
' List.Add(New PropertyItem(Item.Name, Item.GraphicName, Item.IsChecked))
|
||||
' Next
|
||||
'End Sub
|
||||
|
||||
Friend Sub CreateNewPropertiesList(ByRef LocalPart As Part)
|
||||
If OptionModule.m_DisableProperties <> Visibility.Visible Then Return
|
||||
If OptionModule.m_MaterialList.Count > 1 Then
|
||||
SelectedMaterial = OptionModule.m_MaterialList(0)
|
||||
List = OptionModule.m_MaterialList(0).PropertiesList
|
||||
LocalPart.SetMaterial(OptionModule.m_MaterialList(0))
|
||||
LocalPart.SetPropertiesList(OptionModule.m_MaterialList(0).PropertiesList)
|
||||
Return
|
||||
End If
|
||||
' configurazione senza materiali
|
||||
If List.Count > 0 Then List.Clear()
|
||||
If LocalPart.PropertiesList.Count > 0 Then LocalPart.PropertiesList.Clear()
|
||||
For Each Item In OptionModule.m_PropertList
|
||||
List.Add(New PropertyItem(Item.Name, Item.GraphicName, Item.IsChecked))
|
||||
LocalPart.PropertiesList.Add(New PropertyItem(Item.Name, Item.GraphicName, Item.IsChecked))
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Friend Sub CreateNewPropertiesListJamb(ByRef LocalPart As Part)
|
||||
If OptionModule.m_DisableProperties <> Visibility.Visible Then Return
|
||||
If OptionModule.m_MaterialList.Count > 1 Then
|
||||
LocalPart.SetMaterial(OptionModule.m_MaterialList(0))
|
||||
LocalPart.SetPropertiesList(OptionModule.m_MaterialList(0).PropertiesList)
|
||||
Return
|
||||
End If
|
||||
' configurazione senza materiali
|
||||
If LocalPart.PropertiesList.Count > 0 Then LocalPart.PropertiesList.Clear()
|
||||
For Each Item In OptionModule.m_PropertList
|
||||
LocalPart.PropertiesList.Add(New PropertyItem(Item.Name, Item.GraphicName, Item.IsChecked))
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user