Emmanuele Sassi
6b7ab02325
- Inizio lavoro di restauro per eliminare messenger e realizzare Map. - Correzzione temporanea errore contextmenu dell'albero layer quando viene usato il comando relocate. - Migliorie varie.
68 lines
2.1 KiB
VB.net
68 lines
2.1 KiB
VB.net
Module EgtCAM5Map
|
|
|
|
#Region "Program ViewModel Map"
|
|
|
|
Private m_refMainWindowVM As EgtCAM5.MainWindowViewModel
|
|
Private m_refStatusBarVM As EgtCAM5.StatusBarViewModel
|
|
Private m_refTopCommandBarVM As EgtCAM5.TopCommandBarViewModel
|
|
Private m_refProjectVM As EgtCAM5.ProjectViewModel
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refMainWindowVM As EgtCAM5.MainWindowViewModel
|
|
Get
|
|
Return m_refMainWindowVM
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property refStatusBarVM As EgtCAM5.StatusBarViewModel
|
|
Get
|
|
Return m_refStatusBarVM
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property refTopCommandBarVM As EgtCAM5.TopCommandBarViewModel
|
|
Get
|
|
Return m_refTopCommandBarVM
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property refProjectVM As EgtCAM5.ProjectViewModel
|
|
Get
|
|
Return m_refProjectVM
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Friend Function SetRefStatusBarVM(StatusBarVM As EgtCAM5.StatusBarViewModel) As Boolean
|
|
m_refStatusBarVM = StatusBarVM
|
|
Return Not IsNothing(m_refStatusBarVM)
|
|
End Function
|
|
Friend Function SetRefTopCommandBarVM(TopCommandBarVM As EgtCAM5.TopCommandBarViewModel) As Boolean
|
|
m_refTopCommandBarVM = TopCommandBarVM
|
|
Return Not IsNothing(m_refTopCommandBarVM)
|
|
End Function
|
|
Friend Function SetRefProjectVM(ProjectVM As EgtCAM5.ProjectViewModel) As Boolean
|
|
m_refProjectVM = ProjectVM
|
|
Return Not IsNothing(m_refProjectVM)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
#Region "Init"
|
|
|
|
Friend Function BeginInit(MainWindowVM As EgtCAM5.MainWindowViewModel) As Boolean
|
|
m_refMainWindowVM = MainWindowVM
|
|
Return Not IsNothing(m_refMainWindowVM)
|
|
End Function
|
|
Friend Function EndInit() As Boolean
|
|
' Verifico se tutti i pezzi necessari sono stati caricati
|
|
Return Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refStatusBarVM) AndAlso Not IsNothing(m_refProjectVM) AndAlso Not IsNothing(m_refTopCommandBarVM)
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
#End Region ' Program ViewModel Map
|
|
|
|
End Module
|