Renzo Lanza
fe58578e65
- eliminati tutti gli Application.Msn.Register/NotifyColleagues e la classe Messenger. Ora tutto ciò che eseguivano è in funzioni/sub Friend chiamate tramite i riferimenti in Map.
69 lines
2.1 KiB
VB.net
69 lines
2.1 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)
|
|
|
|
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
|
|
|
|
Friend Sub DrawMode_IsChecked()
|
|
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
|
|
|
|
Friend Sub MachiningMode_IsChecked()
|
|
m_DrawIsChecked = False
|
|
m_MachiningIsChecked = True
|
|
EgtZoom(ZM.ALL, False)
|
|
OnPropertyChanged("ModePanel")
|
|
End Sub
|
|
|
|
End Class |