Dario Sassi
ee00c7750b
- dopo misura si reimposta misurazione speciale OFFICE - aggiunta terminazione contesto all'uscita dialogo pezzi parametrici e import Dxf - aggiunte maggiori info in AboutBox.
48 lines
1.1 KiB
VB.net
48 lines
1.1 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class InstrumentPanelVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
#Region "ToolTip"
|
|
|
|
Public ReadOnly Property GetDistToolTip As String
|
|
Get
|
|
Return "Disposition"
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' ToolTip
|
|
|
|
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
|
|
If value Then
|
|
OmagOFFICEMap.refSceneHostV.GetDistanceON()
|
|
Else
|
|
OmagOFFICEMap.refSceneHostV.GetDistanceOFF()
|
|
OmagOFFICEMap.refSceneHostV.OmagOFFICEScene.SetStatusNull()
|
|
OmagOFFICEMap.refStatusBarVM.ClearOutputMessage()
|
|
End If
|
|
NotifyPropertyChanged("GetDistIsChecked")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class |