Dario Sassi
63 lines
1.7 KiB
VB.net
63 lines
1.7 KiB
VB.net
Imports System.ComponentModel
|
|
Imports EgtUILib
|
|
|
|
Public Class InstrumentPanelVM
|
|
Implements INotifyPropertyChanged
|
|
'riferimento alla scena
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
#Region "ToolTip"
|
|
|
|
Public ReadOnly Property GetDistToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' ToolTip
|
|
|
|
Private m_GetDistIsChecked As Boolean = True
|
|
Public Property GetDistIsChecked As Boolean
|
|
Get
|
|
GetDistance(m_GetDistIsChecked)
|
|
Return m_GetDistIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_GetDistIsChecked Then
|
|
m_GetDistIsChecked = value
|
|
NotifyPropertyChanged("GetDistIsChecked")
|
|
End If
|
|
|
|
End Set
|
|
End Property
|
|
|
|
' se il bottone è selezionato (true) allora misura, altrimenti no (false)
|
|
Public Sub GetDistance(bGetDistanceIsChecked As Boolean)
|
|
If bGetDistanceIsChecked Then
|
|
Map.refSceneManagerVM.ProjectScene.SetStatusGetDistance()
|
|
Else
|
|
Map.refSceneManagerVM.ProjectScene.ResetStatusGetDistance()
|
|
Map.refSceneManagerVM.ProjectScene.SetStatusNull()
|
|
Dim rfStatusBarVM As StatusBarVM = Map.refStatusBarVM
|
|
rfStatusBarVM.StatusOutput = String.Empty
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
Map.SetRefInstrumentPanelVM(me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class |