Renzo Lanza
7eb8240749
- MachGroupPanelVM, MachinePanelVM, StatusBarVM spostati in EgtWPFLib5. Ora qua sono presenti le versioni My_ che ereditano quelle della Libreria. - ComboBox della Macchina corrente spostata in MachinePanel (accanto a Db Ut./Lav./SetUp). - modificato OptionPanel in modo da gestire i nuovi DrawOptionPanel e MachiningOptionPanel in base alle modalità DISEGNA e LAVORA. - ogni Expander di MachiningOptionPanel ora ha il suo VM e il suo V. - nuova gestione degli Expander di MachiningOptionPanel tramite funzioni Init e Exit. - barra TOPTRAY ora può estendersi su una seconda riga in base a larghezza finestra. - eliminati molti Application.Msn.Register/NotifyColleagues. Ora le funzioni che chiamavano sono chiamate tramite i riferimenti in Map. - corretta selezione superfici quando si sceglie Nuova Lav. in LAVORA.
101 lines
3.5 KiB
VB.net
101 lines
3.5 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class InstrumentPanelVM
|
|
Inherits ViewModelBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
#Region "ToolTip"
|
|
|
|
Public ReadOnly Property AnalyzeToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 17)
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property GetDistToolTip As String
|
|
Get
|
|
Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' ToolTip
|
|
|
|
Private m_AnalyzeIsChecked As Boolean
|
|
Public Property AnalyzeIsChecked As Boolean
|
|
Get
|
|
Return m_AnalyzeIsChecked
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_AnalyzeIsChecked Then
|
|
m_AnalyzeIsChecked = value
|
|
If value Then
|
|
Map.refProjectVM.GetScene.SetStatusAnalyze()
|
|
Else
|
|
Map.refProjectVM.GetScene.ResetStatusAnalyze()
|
|
Application.Msn.NotifyColleagues(Application.SELECTIDINOBJTREE, GDB_ID.NULL)
|
|
Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, "")
|
|
Analyze.EraseAnalyzeGroup()
|
|
EgtDraw()
|
|
End If
|
|
OnPropertyChanged("AnalyzeIsChecked")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
Private m_AnalyzeIsEnabled As Boolean
|
|
Public Property AnalyzeIsEnabled As Boolean
|
|
Get
|
|
Return m_AnalyzeIsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
If value <> m_AnalyzeIsEnabled Then
|
|
m_AnalyzeIsEnabled = value
|
|
OnPropertyChanged("AnalyzeIsEnabled")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
|
|
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
|
|
Map.refProjectVM.GetScene.SetStatusGetDistance()
|
|
Else
|
|
Map.refProjectVM.GetScene.ResetStatusGetDistance()
|
|
Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, String.Empty)
|
|
End If
|
|
OnPropertyChanged("GetDistIsChecked")
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
Map.SetRefInstrumentPanelVM(Me)
|
|
Application.Msn.Register(Application.MACHININGMODE_ISCHECKED, Sub()
|
|
AnalyzeIsChecked = False
|
|
AnalyzeIsEnabled = False
|
|
End Sub)
|
|
Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
|
|
AnalyzeIsEnabled = True
|
|
End Sub)
|
|
Application.Msn.Register(Application.ANALYZE_ISCHECKED, Sub(bIsChecked As Boolean)
|
|
AnalyzeIsChecked = bIsChecked
|
|
End Sub)
|
|
Application.Msn.Register(Application.GETDISTANCE_ISCHECKED, Sub(bIsChecked As Boolean)
|
|
GetDistIsChecked = bIsChecked
|
|
End Sub)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class |