Renzo Lanza
fe58578e65
- eliminati tutti gli Application.Msn.Register/NotifyColleagues e la classe Messenger. Ora tutto ciò che eseguivano è in funzioni/sub Friend chiamate tramite i riferimenti in Map.
100 lines
2.6 KiB
VB.net
100 lines
2.6 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class InstrumentPanelVM
|
|
Inherits ViewModelBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
#Region "ToolTip"
|
|
|
|
Public ReadOnly Property AnalyzeToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 17)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property GetDistToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' ToolTip
|
|
|
|
Private m_AnalyzeIsChecked As Boolean
|
|
Public Property AnalyzeIsChecked As Boolean
|
|
Get
|
|
Return m_AnalyzeIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_AnalyzeIsChecked Then
|
|
m_AnalyzeIsChecked = value
|
|
If value Then
|
|
Map.refProjectVM.GetScene.SetStatusAnalyze()
|
|
Else
|
|
Map.refProjectVM.GetScene.ResetStatusAnalyze()
|
|
Map.refManageLayerExpanderVM.SelectIdInObjTree(GDB_ID.NULL)
|
|
Map.refStatusBarVM.NotifyStatusOutput("")
|
|
Analyze.EraseAnalyzeGroup()
|
|
EgtDraw()
|
|
End If
|
|
OnPropertyChanged("AnalyzeIsChecked")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AnalyzeIsEnabled As Boolean
|
|
Public Property AnalyzeIsEnabled As Boolean
|
|
Get
|
|
Return m_AnalyzeIsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_AnalyzeIsEnabled Then
|
|
m_AnalyzeIsEnabled = value
|
|
OnPropertyChanged("AnalyzeIsEnabled")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
|
|
Private m_GetDistIsChecked As Boolean
|
|
Public Property GetDistIsChecked As Boolean
|
|
Get
|
|
Return m_GetDistIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_GetDistIsChecked Then
|
|
m_GetDistIsChecked = value
|
|
If value Then
|
|
Map.refProjectVM.GetScene.SetStatusGetDistance()
|
|
Else
|
|
Map.refProjectVM.GetScene.ResetStatusGetDistance()
|
|
Map.refStatusBarVM.NotifyStatusOutput(String.Empty)
|
|
End If
|
|
OnPropertyChanged("GetDistIsChecked")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
Map.SetRefInstrumentPanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub Analyze_IsChecked(bIsChecked As Boolean)
|
|
AnalyzeIsChecked = bIsChecked
|
|
End Sub
|
|
|
|
Friend Sub GetDistance_IsChecked(bIsChecked As Boolean)
|
|
GetDistIsChecked = bIsChecked
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class |