Emmanuele Sassi
7cde115879
- Disattivato Analizza e tutti i bottoni nella TopCommandBar tranne i salva quando in modalità lavora. - Attivata lettura stato show e curvedir all'avvio del programma. - Aggiunta messagebox che mostra gli errori nel caso l'apertura di un DDF ne abbia generati. - Rimossi panel doors e exec in modalità lavora. - Correzzione errori Db utensili e lavorazioni
97 lines
3.1 KiB
VB.net
97 lines
3.1 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)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class
|
|
|
|
End Namespace |