Emmanuele Sassi
1aab4c7ec8
- aggiunta quotatura su hardware per report. - aggiunti parametri quotature nelle opzioni.
103 lines
3.0 KiB
VB.net
103 lines
3.0 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.Runtime.InteropServices
|
|
Imports System.IO
|
|
Imports EgtUILib
|
|
Imports System.Threading
|
|
Imports System.ComponentModel
|
|
|
|
Public Class StatusBarVM
|
|
Implements INotifyPropertyChanged
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
' Funzioni di callback per output in interfaccia da LUA
|
|
'Private m_ProcEventsCallback As New ProcessEventsCallback(AddressOf ProcessEvents)
|
|
'Private m_OutTextCallback As New OutTextCallback(AddressOf OutText)
|
|
|
|
' GRAPHICAL ELEMENTS
|
|
Private m_StatusOutput As String
|
|
Public Property StatusOutput As String
|
|
Get
|
|
Return m_StatusOutput
|
|
End Get
|
|
Set(value As String)
|
|
m_StatusOutput = value
|
|
NotifyPropertyChanged("StatusOutput")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_UnitMeasure As String = OptionModule.m_SelectedMeasureUnit
|
|
|
|
Public Property UnitMeasure As String
|
|
Get
|
|
Return m_UnitMeasure
|
|
End Get
|
|
Set(value As String)
|
|
If Trim(value) = ConstGen.VAL_INCHES Then value = "in"
|
|
m_UnitMeasure = value
|
|
NotifyPropertyChanged("UnitMeasure")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SnapPointTypeList As New List(Of SPItem)({New SPItem(SP.PT_END, EgtMsg(1105)), New SPItem(SP.PT_SKETCH, EgtMsg(1102)), New SPItem(SP.PT_MID, EgtMsg(1107)), New SPItem(SP.CENTER, EgtMsg(1109)), New SPItem(SP.PT_INTERS, EgtMsg(1115)), New SPItem(SP.CENTROID, EgtMsg(1111))})
|
|
Public ReadOnly Property SnapPointTypeList As List(Of SPItem)
|
|
Get
|
|
Return m_SnapPointTypeList
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SnapPointSelect As SPItem = m_SnapPointTypeList(0)
|
|
Public Property SnapPointSelect As SPItem
|
|
Get
|
|
ActivateSnapPointSelected(m_SnapPointSelect)
|
|
Return m_SnapPointSelect
|
|
End Get
|
|
Set(value As SPItem)
|
|
m_SnapPointSelect = value
|
|
NotifyPropertyChanged("SnapPointSelect")
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
' applica la selezione del punto notevole
|
|
Public Sub ActivateSnapPointSelected(SnapPoint As SPItem)
|
|
Map.refSceneManagerVM.ProjectScene.SetSnapPointType(SnapPoint.SPValue)
|
|
End Sub
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
Map.SetRefStatusBarVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' Constructor
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class SPItem
|
|
Private m_SPValue As SP
|
|
Public ReadOnly Property SPValue As SP
|
|
Get
|
|
Return m_SPValue
|
|
End Get
|
|
End Property
|
|
Private m_SPMessage As String
|
|
Public ReadOnly Property SPMessage As String
|
|
Get
|
|
Return m_SPMessage
|
|
End Get
|
|
End Property
|
|
|
|
Sub New(Value As SP, Message As String)
|
|
m_SPValue = Value
|
|
m_SPMessage = Message
|
|
End Sub
|
|
|
|
End Class |