Nicola Pievani
77 lines
1.9 KiB
VB.net
77 lines
1.9 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class PartDoor
|
|
Inherits VMBase
|
|
|
|
Private m_IsTemplate As Boolean = False
|
|
Public Property IsTemplate As Boolean
|
|
Get
|
|
Return m_IsTemplate
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsTemplate = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_Door As Part
|
|
Public Property Door As Part
|
|
Get
|
|
Return m_Door
|
|
End Get
|
|
Set(value As Part)
|
|
m_Door = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ListAssociation As New ObservableCollection(Of Association)
|
|
Public Property ListAssociation As ObservableCollection(Of Association)
|
|
Get
|
|
Return m_ListAssociation
|
|
End Get
|
|
Set(value As ObservableCollection(Of Association))
|
|
m_ListAssociation = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_IsChecked As Boolean
|
|
Public Property IsChecked As Boolean
|
|
Get
|
|
Return m_IsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_IsChecked = value
|
|
m_Door.IsActive = IsChecked
|
|
If m_Door.TypePart.Contains("DO_") Then
|
|
Map.refSceneManagerVM.RefreshBtn()
|
|
End If
|
|
End Set
|
|
End Property
|
|
Public Sub SetIsChecked(bIsChecked As Boolean)
|
|
m_IsChecked = bIsChecked
|
|
m_Door.IsActive = bIsChecked
|
|
NotifyPropertyChanged("IsChecked")
|
|
Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = True
|
|
End Sub
|
|
|
|
Private m_IsVisible As Visibility
|
|
Public Property IsVisible As Visibility
|
|
Get
|
|
Return m_IsVisible
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_IsVisible = value
|
|
End Set
|
|
End Property
|
|
|
|
Public ReadOnly Property Type As String
|
|
Get
|
|
Return Door.TypePart
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|