Demetrio Cassarino
49 lines
1.2 KiB
VB.net
49 lines
1.2 KiB
VB.net
Imports EgtBEAMWALL.Core
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class PartManagerVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_PartManager_IsEnabled As Boolean = True
|
|
Public ReadOnly Property PartManager_IsEnabled As Boolean
|
|
Get
|
|
Return m_PartManager_IsEnabled
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Lock_Visibility As Visibility
|
|
Get
|
|
Return If(Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso
|
|
Map.refProjectVM.BTLStructureVM.nPROJTYPE = BWType.WALL AndAlso
|
|
Map.refMainWindowVM.MainWindowM.GetKeyOption(KEY_OPT.NESTING_AUTO), Visibility.Visible, Visibility.Collapsed)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' salvo riferimento in Map
|
|
Map.SetRefPartManagerVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub SetPartManagerIsEnabled(bIsEnabled As Boolean)
|
|
m_PartManager_IsEnabled = bIsEnabled
|
|
NotifyPropertyChanged(NameOf(PartManager_IsEnabled))
|
|
End Sub
|
|
|
|
Friend Sub LockVisibilityUpdate()
|
|
NotifyPropertyChanged(NameOf(Lock_Visibility))
|
|
End Sub
|
|
|
|
#End Region ' Methods
|
|
|
|
End Class
|