Emmanuele Sassi
69 lines
2.0 KiB
VB.net
69 lines
2.0 KiB
VB.net
Imports EgtUILib
|
|
|
|
Namespace EgtCAM5
|
|
|
|
Public Class InstrumentPanelViewModel
|
|
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
|
|
GetDistIsChecked = False
|
|
If value Then
|
|
Application.Msn.NotifyColleagues(Application.SETSTATUSANALYZE)
|
|
Else
|
|
Application.Msn.NotifyColleagues(Application.RESETSTATUSANALYZE)
|
|
End If
|
|
OnPropertyChanged("GetDistIsChecked")
|
|
OnPropertyChanged("AnalyzeIsChecked")
|
|
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
|
|
AnalyzeIsChecked = False
|
|
If value Then
|
|
Application.Msn.NotifyColleagues(Application.SETSTATUSGETDISTANCE)
|
|
Else
|
|
Application.Msn.NotifyColleagues(Application.RESETSTATUSGETDISTANCE)
|
|
End If
|
|
OnPropertyChanged("GetDistIsChecked")
|
|
OnPropertyChanged("AnalyzeIsChecked")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
End Class
|
|
|
|
End Namespace |