Emmanuele Sassi
48 lines
1.1 KiB
VB.net
48 lines
1.1 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class MyInstrumentPanelVM
|
|
Inherits InstrumentPanelVM
|
|
|
|
Private m_InstrumentPanel_IsEnabled As Boolean = True
|
|
Public Property InstrumentPanel_IsEnabled As Boolean
|
|
Get
|
|
Return m_InstrumentPanel_IsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_InstrumentPanel_IsEnabled = value
|
|
End Set
|
|
End Property
|
|
|
|
|
|
#Region "CONSTRUCTORS"
|
|
|
|
Sub New()
|
|
' imposto riferimento in Map
|
|
Map.SetRefInstrumentPanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTORS
|
|
|
|
#Region "METHODS"
|
|
|
|
Public Overrides Function OnPostGetDistIsChecked() As Boolean
|
|
Map.refSceneHostVM.MainScene.SetStatusNull()
|
|
Return True
|
|
End Function
|
|
|
|
Friend Sub SetGetDistance_IsChecked(bIsChecked As Boolean)
|
|
GetDistIsChecked = bIsChecked
|
|
End Sub
|
|
|
|
Friend Sub SetInstrumentPanelIsEnabled(bIsEnabled As Boolean)
|
|
m_InstrumentPanel_IsEnabled = bIsEnabled
|
|
NotifyPropertyChanged(NameOf(InstrumentPanel_IsEnabled))
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|