Nicola Pievani
95 lines
3.3 KiB
VB.net
95 lines
3.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
|
|
If m_IsModified Then
|
|
MakeTitle()
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private m_OrigTemplate As String = String.Empty
|
|
Public Property OrigTemplate As String
|
|
Get
|
|
Return m_OrigTemplate
|
|
End Get
|
|
Set(value As String)
|
|
m_OrigTemplate = value
|
|
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
|
|
MakeTitle()
|
|
NotifyPropertyChanged("GraphicName")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_GraphicName As String = String.Empty
|
|
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
|
|
|
|
Private Sub MakeTitle()
|
|
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
|
|
End Sub
|
|
|
|
End Class |