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.
70 lines
3.0 KiB
VB.net
70 lines
3.0 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class OptionPanelVM
|
|
Inherits ViewModelBase
|
|
|
|
Private m_DrawIsChecked As Boolean = True
|
|
|
|
Private m_MachiningIsChecked As Boolean = False
|
|
|
|
Sub New()
|
|
Map.SetRefOptionPanelVM(Me)
|
|
|
|
Application.Msn.Register(Application.MACHININGMODE_ISCHECKED, Sub()
|
|
m_DrawIsChecked = False
|
|
m_MachiningIsChecked = True
|
|
EgtZoom(ZM.ALL, False)
|
|
|
|
OnPropertyChanged("ModePanel")
|
|
End Sub)
|
|
Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
|
|
m_DrawIsChecked = True
|
|
m_MachiningIsChecked = False
|
|
If Not IsNothing(Map.refSimulationExpanderVM) AndAlso
|
|
Not IsNothing(Map.refEstimationsExpanderVM) Then
|
|
Map.refSimulationExpanderVM.Simulation_IsExpanded = False
|
|
Map.refEstimationsExpanderVM.Estimation_IsExpanded = False
|
|
End If
|
|
|
|
OnPropertyChanged("ModePanel")
|
|
End Sub)
|
|
|
|
DrawOptPanelV = New DrawOptionPanelV
|
|
MachOptPanelV = New MachiningOptionPanelV
|
|
|
|
End Sub
|
|
|
|
Dim DrawOptPanelV As DrawOptionPanelV
|
|
Dim MachOptPanelV As MachiningOptionPanelV
|
|
|
|
Dim DrawOptPanelVM As New DrawOptionPanelVM
|
|
Dim MachOptPanelVM As New MachiningOptionPanelVM
|
|
|
|
Public ReadOnly Property ModePanel As ContentControl
|
|
Get
|
|
|
|
DrawOptPanelV.DataContext = Nothing
|
|
MachOptPanelV.DataContext = Nothing
|
|
|
|
If Not IsNothing(Map.refDrawOptionPanelVM) And Not IsNothing(Map.refMachiningOptionPanelVM) Then
|
|
|
|
If m_DrawIsChecked And Not m_MachiningIsChecked Then
|
|
Map.refMachiningOptionPanelVM.ExitMachiningOptionPanel()
|
|
Map.refDrawOptionPanelVM.InitDrawOptionPanel()
|
|
DrawOptPanelV.DataContext = Map.refDrawOptionPanelVM
|
|
Return DrawOptPanelV
|
|
End If
|
|
If m_MachiningIsChecked And Not m_DrawIsChecked Then
|
|
Map.refDrawOptionPanelVM.ExitDrawOptionPanel()
|
|
Map.refMachiningOptionPanelVM.InitMachiningOptionPanel()
|
|
MachOptPanelV.DataContext = Map.refMachiningOptionPanelVM
|
|
Return MachOptPanelV
|
|
End If
|
|
|
|
End If
|
|
|
|
Return Nothing
|
|
End Get
|
|
End Property
|
|
|
|
End Class |