Emmanuele Sassi
103 lines
3.6 KiB
VB.net
103 lines
3.6 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_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
|
|
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
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
Application.Msn.Register(Application.MACHININGMODE_ISCHECKED, Sub()
|
|
AnalyzeIsChecked = False
|
|
AnalyzeIsEnabled = False
|
|
End Sub)
|
|
Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
|
|
AnalyzeIsEnabled = True
|
|
End Sub)
|
|
Application.Msn.Register(Application.ANALYZE_ISCHECKED, Sub(bIsChecked As Boolean)
|
|
AnalyzeIsChecked = bIsChecked
|
|
End Sub)
|
|
Application.Msn.Register(Application.GETDISTANCE_ISCHECKED, Sub(bIsChecked As Boolean)
|
|
GetDistIsChecked = bIsChecked
|
|
End Sub)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class
|
|
|
|
End Namespace |