Dario Sassi
b6116cac99
- aggiornamenti vari per allineare con OmagCUT (mancano incisioni da sopra, attacco speciale lama per ceramica e selezione multipla lavorazioni in split).
66 lines
1.8 KiB
VB.net
66 lines
1.8 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class VeinMatchPanelVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_VeinMatchIsEnabled As Boolean = False
|
|
Public Property VeinMatchIsEnabled As Boolean
|
|
Get
|
|
Return m_VeinMatchIsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_VeinMatchIsEnabled = value
|
|
NotifyPropertyChanged( "VeinMatchIsEnabled")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_VeinMatchIsChecked As Boolean = False
|
|
Public Property VeinMatchIsChecked As Boolean
|
|
Get
|
|
Return m_VeinMatchIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_VeinMatchIsChecked = value
|
|
Dim VeinMatchingWnd As VeinMatchingWindow = OmagOFFICEMap.refMainWindowVM.VeinMatchingWnd
|
|
' Se non già creata, non devo fare alcunchè
|
|
If IsNothing(VeinMatchingWnd) Then Return
|
|
' Esecuzione
|
|
If m_VeinMatchIsChecked Then
|
|
VeinMatchingWnd.AdjustPosition()
|
|
VeinMatchingWnd.Show()
|
|
Else
|
|
VeinMatchingWnd.Hide()
|
|
End If
|
|
EgtSetCurrentContext(OmagOFFICEMap.refSceneHostVM.MainScene.GetCtx())
|
|
End Set
|
|
End Property
|
|
Public Sub SetVeinMatchIsChecked( bChecked As Boolean)
|
|
VeinMatchIsChecked = bChecked
|
|
NotifyPropertyChanged( "VeinMatchIsChecked")
|
|
End Sub
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property VeinMatchMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_CADCUTPAGEUC + 9)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in OmagOFFICEMap
|
|
OmagOFFICEMap.SetRefVeinMatchPanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class
|