EgtCAM5 :

- Migliorie lavorazioni.

ProjectPage/OptionPanel/DrawOptionPanelViewModel.vb

@@ -21,7 +21,6 @@ Namespace EgtCAM5
                OnPropertyChanged("ManageLayerExpander")
                OnPropertyChanged("InfoExpander")
                OnPropertyChanged("InputExpander")
-               OnPropertyChanged("SimulationExpander")
             End If
          End Set
       End Property
@@ -50,7 +49,6 @@ Namespace EgtCAM5
                OnPropertyChanged("ManageLayerExpander")
                OnPropertyChanged("InfoExpander")
                OnPropertyChanged("InputExpander")
-               OnPropertyChanged("SimulationExpander")
             End If
          End Set
       End Property
@@ -77,7 +75,7 @@ Namespace EgtCAM5
          End Get
       End Property
 
-      Private m_OperationPropertyExpander As OperationPropertyExpanderView
+      Private m_MachiningsTreeExpander As MachiningTreeExpanderView
       Private m_InfoExpander As InfoExpanderView
       Public ReadOnly Property InfoExpander As ContentControl
          Get
@@ -87,26 +85,6 @@ Namespace EgtCAM5
                   m_InfoExpander.DataContext = New InfoExpanderViewModel
                End If
                Return m_InfoExpander
-            Else
-               If IsNothing(m_OperationPropertyExpander) Then
-                  m_OperationPropertyExpander = New OperationPropertyExpanderView
-                  m_OperationPropertyExpander.DataContext = New OperationPropertyExpanderViewModel
-               End If
-               Return m_OperationPropertyExpander
-            End If
-         End Get
-      End Property
-
-      Private m_MachiningsTreeExpander As MachiningTreeExpanderView
-      Private m_InputExpander As InputExpanderView
-      Public ReadOnly Property InputExpander As ContentControl
-         Get
-            If m_DrawIsChecked Then
-               If IsNothing(m_InputExpander) Then
-                  m_InputExpander = New InputExpanderView
-                  m_InputExpander.DataContext = New InputExpanderViewModel
-               End If
-               Return m_InputExpander
             Else
                If IsNothing(m_MachiningsTreeExpander) Then
                   m_MachiningsTreeExpander = New MachiningTreeExpanderView
@@ -118,10 +96,15 @@ Namespace EgtCAM5
       End Property
 
       Private m_SimulationExpander As SimulationExpanderView
-      Public ReadOnly Property SimulationExpander As ContentControl
+      Private m_InputExpander As InputExpanderView
+      Public ReadOnly Property InputExpander As ContentControl
          Get
             If m_DrawIsChecked Then
-               Return Nothing
+               If IsNothing(m_InputExpander) Then
+                  m_InputExpander = New InputExpanderView
+                  m_InputExpander.DataContext = New InputExpanderViewModel
+               End If
+               Return m_InputExpander
             Else
                If IsNothing(m_SimulationExpander) Then
                   m_SimulationExpander = New SimulationExpanderView