Emmanuele Sassi
4c679fbd48
- Migliorato AboutBox. - Miglioramenti per compatibilità con nuova versione WPFLib5.
50 lines
1.3 KiB
VB.net
50 lines
1.3 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class VeinMatchPanelVM
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Private m_VeinMatchIsChecked As Boolean
|
|
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
|
|
|
|
#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
|