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
128 lines
4.3 KiB
VB.net
128 lines
4.3 KiB
VB.net
Imports EgtUILib
|
|
|
|
Namespace EgtCAM5
|
|
|
|
Public Class ShowPanelViewModel
|
|
Inherits ViewModelBase
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
' Definizione comandi
|
|
Private m_cmdWireframe As ICommand
|
|
Private m_cmdHiddenLine As ICommand
|
|
Private m_cmdShading As ICommand
|
|
Private m_cmdCurveDir As ICommand
|
|
|
|
#Region "ToolTip"
|
|
|
|
Public ReadOnly Property RenderingWFToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 1)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property RenderingHLToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 2)
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property RenderingSHToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 3)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property CurveDirToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 16)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
Private m_WireframeIsChecked As Boolean
|
|
Public Property WireframeIsChecked As Boolean
|
|
Get
|
|
Return m_WireframeIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_WireframeIsChecked Then
|
|
m_WireframeIsChecked = value
|
|
If value Then
|
|
Application.Msn.NotifyColleagues(Application.WIREFRAME)
|
|
OnPropertyChanged("WireframeIsChecked")
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private m_HiddenLineIsChecked As Boolean
|
|
Public Property HiddenLineIsChecked As Boolean
|
|
Get
|
|
Return m_HiddenLineIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_HiddenLineIsChecked Then
|
|
m_HiddenLineIsChecked = value
|
|
If value Then
|
|
Application.Msn.NotifyColleagues(Application.HIDDENLINE)
|
|
OnPropertyChanged("HiddenLineIsChecked")
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ShadingIsChecked As Boolean
|
|
Public Property ShadingIsChecked As Boolean
|
|
Get
|
|
Return m_ShadingIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_ShadingIsChecked Then
|
|
m_ShadingIsChecked = value
|
|
If value Then
|
|
Application.Msn.NotifyColleagues(Application.SHADING)
|
|
OnPropertyChanged("ShadingIsChecked")
|
|
End If
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private m_CurveDirIsChecked As Boolean
|
|
Public Property CurveDirIsChecked As Boolean
|
|
Get
|
|
Return m_CurveDirIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_CurveDirIsChecked Then
|
|
m_CurveDirIsChecked = value
|
|
EgtSetShowCurveDirection(value)
|
|
OnPropertyChanged("CurveDirIsChecked")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
Application.Msn.Register(Application.SHOWMODESTATE, Sub(nShowModeState As Integer)
|
|
If nShowModeState = SM.WIREFRAME Then
|
|
WireframeIsChecked = True
|
|
ElseIf nShowModeState = SM.HIDDENLINE Then
|
|
HiddenLineIsChecked = True
|
|
Else
|
|
ShadingIsChecked = True
|
|
End If
|
|
|
|
End Sub)
|
|
Application.Msn.Register(Application.SHOWCURVEDIR, Sub(nShowCurveDir As Integer)
|
|
CurveDirIsChecked = (nShowCurveDir <> 0)
|
|
End Sub)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class
|
|
|
|
End Namespace |