Emmanuele Sassi
42 lines
1.4 KiB
VB.net
42 lines
1.4 KiB
VB.net
Namespace EgtCAM5
|
|
|
|
Public Class DrawOptionPanelViewModel
|
|
Inherits ViewModelBase
|
|
|
|
' GRAPHICAL ELEMENTS
|
|
Private m_ManageLayerExpander As ManageLayerExpanderView
|
|
Public ReadOnly Property ManageLayerExpander As ManageLayerExpanderView
|
|
Get
|
|
If IsNothing(m_ManageLayerExpander) Then
|
|
m_ManageLayerExpander = New ManageLayerExpanderView
|
|
m_ManageLayerExpander.DataContext = New ManageLayerExpanderViewModel
|
|
End If
|
|
Return m_ManageLayerExpander
|
|
End Get
|
|
End Property
|
|
|
|
Private m_InputExpander As InputExpanderView
|
|
Public ReadOnly Property InputExpander As InputExpanderView
|
|
Get
|
|
If IsNothing(m_InputExpander) Then
|
|
m_InputExpander = New InputExpanderView
|
|
m_InputExpander.DataContext = New InputExpanderViewModel
|
|
End If
|
|
Return m_InputExpander
|
|
End Get
|
|
End Property
|
|
|
|
Private m_InfoExpander As InfoExpanderView
|
|
Public ReadOnly Property InfoExpander As InfoExpanderView
|
|
Get
|
|
If IsNothing(m_InfoExpander) Then
|
|
m_InfoExpander = New InfoExpanderView
|
|
m_InfoExpander.DataContext = New InfoExpanderViewModel
|
|
End If
|
|
Return m_InfoExpander
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|
|
|
|
End Namespace |