Emmanuele Sassi
92 lines
2.3 KiB
VB.net
92 lines
2.3 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class FeatureManagerVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_FeatureManager_IsEnabled As Boolean = True
|
|
Public Property FeatureManager_IsEnabled As Boolean
|
|
Get
|
|
Return m_FeatureManager_IsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_FeatureManager_IsEnabled = value
|
|
End Set
|
|
End Property
|
|
|
|
Public ReadOnly Property Edit_IsEnabled As Boolean
|
|
Get
|
|
Return m_FeatureManager_IsEnabled AndAlso Not IsNothing(Map.refProjectVM.BTLStructureVM) AndAlso
|
|
Map.refProjectVM.BTLStructureVM.SelBTLParts.Count > 0 AndAlso
|
|
Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLParts(0)) AndAlso
|
|
Not IsNothing(Map.refProjectVM.BTLStructureVM.SelBTLParts(0).SelBTLFeatureVM) AndAlso
|
|
Map.refProjectVM.BTLStructureVM.SelBTLParts(0).SelBTLFeatureVM.BTLFeatureM.IsFreeContour() AndAlso
|
|
Map.refProjectVM.BTLStructureVM.SelBTLParts(0).SelBTLFeatureVM.bDO
|
|
End Get
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property Face_Msg As String
|
|
Get
|
|
Return EgtMsg(61824)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Group_Msg As String
|
|
Get
|
|
Return EgtMsg(61825)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Edit_Msg As String
|
|
Get
|
|
Return EgtMsg(61826)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Save_Msg As String
|
|
Get
|
|
Return EgtMsg(61827)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property Cancel_Msg As String
|
|
Get
|
|
Return EgtMsg(61828)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTORS"
|
|
|
|
Sub New()
|
|
' imposto riferimento in Map
|
|
Map.SetRefFeatureManagerVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub SetFeatureManagerIsEnabled(bIsEnabled As Boolean)
|
|
m_FeatureManager_IsEnabled = bIsEnabled
|
|
NotifyPropertyChanged(NameOf(FeatureManager_IsEnabled))
|
|
NotifyPropertyChanged(NameOf(Edit_IsEnabled))
|
|
End Sub
|
|
|
|
Friend Sub SetEditIsEnabled()
|
|
' aggiorno stato abilitazione del bottone modifica free contour
|
|
NotifyPropertyChanged(NameOf(Edit_IsEnabled))
|
|
End Sub
|
|
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|