Nicola Pievani
e4aaac1c46
-> bloccaggio dei progetti in fase di lettura, -> correzione nell'intestazione della pagina DOORCreator (nome progetto corrente), -> correzione della lettura degli swing nell'HardwareManager, -> se si crea per la prima volta una componente questa viene salvata nella radice (a meno che non sia stata definita almeno una cartella)
69 lines
2.3 KiB
VB.net
69 lines
2.3 KiB
VB.net
Imports System.IO
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class AssemblyName
|
|
Inherits VMBase
|
|
|
|
Private m_Name As String
|
|
Public Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
Set(value As String)
|
|
m_Name = value
|
|
m_GraphicName = Path.GetFileNameWithoutExtension(m_Name)
|
|
End Set
|
|
End Property
|
|
|
|
Private m_IsModified As Boolean
|
|
Public Property IsModified As Boolean
|
|
Get
|
|
Return m_IsModified
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsModified = value
|
|
If m_IsModified Then
|
|
If Not m_GraphicName.Contains("*") Then m_GraphicName &= "*"
|
|
' immagine con asterisco
|
|
Map.refProjectManagerVM.IsModifiedImage = "/Resources/TopCommandBar/IsModify.png"
|
|
Else
|
|
m_GraphicName = Path.GetFileNameWithoutExtension(m_Name)
|
|
' immagine senza asterisco
|
|
Map.refProjectManagerVM.IsModifiedImage = "/Resources/TopCommandBar/Save.png"
|
|
End If
|
|
If OptionModule.m_SingleDoor AndAlso Map.refMainWindowVM.SelectedPage <> MainWindowVM.ListPageEnum.nHardwarePage AndAlso
|
|
Not IsNothing(Map.refMainWindowVM.ProjectNameMsg) Then
|
|
Dim sTitle As String = m_Name
|
|
If m_GraphicName.Contains("*") Then sTitle &= "*"
|
|
Map.refMainWindowVM.ProjectNameMsg = sTitle
|
|
ElseIf Not OptionModule.m_SingleDoor AndAlso Map.refMainWindowVM.SelectedPage <> MainWindowVM.ListPageEnum.nHardwarePage AndAlso
|
|
Not IsNothing(Map.refMainWindowVM.ProjectNameMsg) Then
|
|
Dim sTitle As String = Path.GetDirectoryName(m_Name)
|
|
Map.refMainWindowVM.ProjectNameMsg = sTitle
|
|
End If
|
|
NotifyPropertyChanged("GraphicName")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_GraphicName As String
|
|
Public Property GraphicName As String
|
|
Get
|
|
Return m_GraphicName
|
|
End Get
|
|
Set(value As String)
|
|
m_GraphicName = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SelAssembly As New Assembly
|
|
Public Property SelAssembly As Assembly
|
|
Get
|
|
Return m_SelAssembly
|
|
End Get
|
|
Set(value As Assembly)
|
|
m_SelAssembly = value
|
|
Map.refAssemblyPageVM.NotifyPropertyChanged("CurrAssembly")
|
|
End Set
|
|
End Property
|
|
|
|
End Class |