From b5b9e459ebdb69455a954129fbb66ad670ed77c8 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Mon, 8 Jul 2019 07:20:31 +0000
Subject: [PATCH] EgtCAM5 2.1g2 . - correzioni nella gestione della lista
 lavorazioni (tolta virtualizzazione).

---
 My Project/AssemblyInfo.vb                    |   4 +-
 .../OperationExpander/OperationExpanderV.xaml |   7 +-
 .../OperationExpanderV.xaml.vb                |  12 +-
 .../OperationExpander/OperationExpanderVM.vb  | 228 ++++++++----------
 .../OperationListBoxItem.vb                   |  15 +-
 .../SimulationExpanderViewModel.vb            |   3 -
 6 files changed, 120 insertions(+), 149 deletions(-)

diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 694acdf..34c276d 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -70,5 +70,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.1.7.1")>
-<Assembly: AssemblyFileVersion("2.1.7.1")>
+<Assembly: AssemblyVersion("2.1.7.2")>
+<Assembly: AssemblyFileVersion("2.1.7.2")>
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderV.xaml b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderV.xaml
index 3d84da6..144fc3e 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderV.xaml
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderV.xaml
@@ -21,7 +21,7 @@
                <Button Content="{Binding NewPositioningBtnContent}" Command="{Binding NewPositioningCommand}"  Height="30"/>
                <Button Content="{Binding CancelOperationBtnContent}" Command="{Binding CancelOperationCommand}"  Height="30"/>
             </UniformGrid>
-            <ListBox IsSynchronizedWithCurrentItem="True" ItemsSource="{Binding OperationList}"
+            <ListBox IsSynchronizedWithCurrentItem="False" ItemsSource="{Binding OperationList}"
                      Height="200" x:Name="OperationList" IsEnabled="{Binding IsEnabledOperationList}" SelectionMode="Extended">
                <ListBox.Resources>
                   <DataTemplate DataType="{x:Type EgtCAM5:MachiningOpListBoxItem}">
@@ -70,6 +70,11 @@
                      </Border>
                   </DataTemplate>
                </ListBox.Resources>
+               <ListBox.ItemsPanel>
+                  <ItemsPanelTemplate>
+                     <StackPanel Orientation="Vertical"/>
+                  </ItemsPanelTemplate>
+               </ListBox.ItemsPanel>
                <Interactivity:Interaction.Triggers>
                   <Interactivity:EventTrigger EventName="MouseDoubleClick">
                      <Interactivity:InvokeCommandAction Command="{Binding OperationListDoubleClickCommand}"/>
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderV.xaml.vb
index d9c62fd..5e67ba4 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderV.xaml.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderV.xaml.vb
@@ -45,13 +45,19 @@ Public Class OperationExpanderV
             MachiningOpListBoxItem.m_CloseModifyLostFocus = True
             MachiningOpListBoxItem.m_Spy = False
          End If
-         Keyboard.Focus(sender)
+         Keyboard.Focus(TextBox)
       End If
    End Sub
 
    Private Sub MachiningOpListBoxItem_IsVisibleChanged(sender As Object, e As DependencyPropertyChangedEventArgs)
-      If e.NewValue Then
-         Keyboard.Focus(sender)
+      Dim bNewVal As Boolean = false
+      Try
+         bNewVal = CType( e.NewValue, Boolean)
+      Catch
+      End Try
+      If bNewVal Then
+         Dim inElem As IInputElement  = TryCast( sender, IInputElement)
+         If Not IsNothing( inElem) Then Keyboard.Focus(inElem)
       End If
    End Sub
 
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderVM.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderVM.vb
index c1072a5..24562a0 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderVM.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderVM.vb
@@ -110,7 +110,7 @@ Public Class OperationExpanderVM
          If value <> m_ParametersIsExpanded Then
             m_ParametersIsExpanded = value
             ' Cerco l'operazione selezionata all'interno di OperationList
-            Dim selOperation As OperationListBoxItem
+            Dim selOperation As OperationListBoxItem = Nothing
             For Each Operation In OperationList
                If (Operation.IsSelected) Then
                   selOperation = Operation
@@ -327,55 +327,43 @@ Public Class OperationExpanderVM
 
    Public ReadOnly Property DuplicateCmd_IsEnabled As Boolean
       Get
-         Dim dummyOperation As OperationListBoxItem
-         Dim Count As Integer = 0
+         Dim SelType As Integer = MCH_OY.NONE
          For Each Operation In OperationList
-            If (Operation.IsSelected) Then
-               dummyOperation = Operation
-               Count = Count + 1
+            If Operation.IsSelected Then
+               If SelType <> MCH_OY.NONE Then Return False
+               SelType = Operation.Type
+               If SelType = MCH_OY.DISP Then Return False
             End If
          Next
-         If Count = 1 Then
-            Return Not dummyOperation.Type = MCH_OY.DISP
-         Else
-            Return False
-         End If
+         Return SelType <> MCH_OY.NONE
       End Get
    End Property
 
    Public ReadOnly Property MachToDb_IsEnabled As Boolean
       Get
-         Dim dummyOperation As OperationListBoxItem
-         Dim Count As Integer = 0
+         Dim SelType As Integer = MCH_OY.NONE
          For Each Operation In OperationList
-            If (Operation.IsSelected) Then
-               dummyOperation = Operation
-               Count = Count + 1
+            If Operation.IsSelected Then
+               If SelType <> MCH_OY.NONE Then Return False
+               SelType = Operation.Type
+               If SelType = MCH_OY.DISP Then Return False
             End If
          Next
-         If Count = 1 Then
-            Return Not dummyOperation.Type = MCH_OY.DISP
-         Else
-            Return False
-         End If
+         Return SelType <> MCH_OY.NONE
       End Get
    End Property
 
    Public ReadOnly Property Rename_IsEnabled As Boolean
       Get
-         Dim dummyOperation As OperationListBoxItem
-         Dim Count As Integer = 0
+         Dim SelType As Integer = MCH_OY.NONE
          For Each Operation In OperationList
-            If (Operation.IsSelected) Then
-               dummyOperation = Operation
-               Count = Count + 1
+            If Operation.IsSelected Then
+               If SelType <> MCH_OY.NONE Then Return False
+               SelType = Operation.Type
+               If SelType = MCH_OY.DISP Then Return False
             End If
          Next
-         If Count = 1 Then
-            Return Not dummyOperation.Type = MCH_OY.DISP
-         Else
-            Return False
-         End If
+         Return SelType <> MCH_OY.NONE
       End Get
    End Property
 
@@ -394,10 +382,11 @@ Public Class OperationExpanderVM
    Public ReadOnly Property OperationParameters As ContentControl
       Get
          ' Cerco l'operazione selezionata all'interno di OperationList
-         Dim selOperation As OperationListBoxItem
+         Dim selOperation As OperationListBoxItem = Nothing
          For Each Operation In OperationList
-            If (Operation.IsSelected) Then
+            If Operation.IsSelected Then
                selOperation = Operation
+               Exit For
             End If
          Next
          If selOperation.m_Type = MCH_OY.DISP Then
@@ -511,13 +500,6 @@ Public Class OperationExpanderVM
       Me.ListIsExpanded = True
       OperationListBoxItem.m_RefOperationExpanderVM = Me
       SimulationExpanderVM.m_RefOperationExpanderVM = Me
-      ' Cerco l'operazione selezionata all'interno di OperationList
-      Dim selOperation As OperationListBoxItem
-      For Each Operation In OperationList
-         If (Operation.IsSelected) Then
-            selOperation = Operation
-         End If
-      Next
       Application.Msn.Register(Application.LOADOPERATIONLIST, Sub(nSelectedOperation As Integer)
                                                                  LoadOperationList()
                                                                  SelectOperation(nSelectedOperation)
@@ -538,39 +520,37 @@ Public Class OperationExpanderVM
                                                                            End Sub)
 
       Application.Msn.Register(Application.SIMULATIONEXPANDER_GET_ISEXPANDED, Sub(bValue As Boolean)
-                                                                                 If m_CurrExpandedExpander = MachiningOptionPanelExpander.SIMULATION Then
-                                                                                    ListIsExpanded = True
-                                                                                 End If
                                                                                  If bValue Then
                                                                                     If m_NewMachining Then EndNewMachining(GDB_ID.NULL)
                                                                                     ListIsExpanded = False
                                                                                     ParametersIsExpanded = False
                                                                                     m_CurrExpandedExpander = MachiningOptionPanelExpander.SIMULATION
                                                                                  Else
-                                                                                    ' Deseleziono e riseleziono la lavorazione corrente per fargli riselezionare la geometria
-                                                                                    ' di lavorazione che è stata deselezionata dalla simulazione
-                                                                                    Dim CurrSelectedOperation As OperationListBoxItem
-                                                                                    CurrSelectedOperation = selOperation
-                                                                                    selOperation = Nothing
-                                                                                    selOperation = CurrSelectedOperation
+                                                                                    ListIsExpanded = True
+                                                                                    ' Deseleziono e riseleziono le operazioni correnti per ripristinare il mark
+                                                                                    For Each Operation In OperationList
+                                                                                       If Operation.IsSelected Then
+                                                                                          Operation.IsSelected = False
+                                                                                          Operation.IsSelected = True
+                                                                                       End If
+                                                                                    Next
                                                                                  End If
                                                                               End Sub)
       Application.Msn.Register(Application.ESTIMATIONEXPANDER_GET_ISEXPANDED, Sub(bValue As Boolean)
-                                                                                 If m_CurrExpandedExpander = MachiningOptionPanelExpander.ESTIMATIONS Then
-                                                                                    ListIsExpanded = True
-                                                                                 End If
                                                                                  If bValue Then
                                                                                     If m_NewMachining Then EndNewMachining(GDB_ID.NULL)
                                                                                     ListIsExpanded = False
                                                                                     ParametersIsExpanded = False
                                                                                     m_CurrExpandedExpander = MachiningOptionPanelExpander.ESTIMATIONS
                                                                                  Else
-                                                                                    ' Deseleziono e riseleziono la lavorazione corrente per fargli riselezionare la geometria
-                                                                                    ' di lavorazione che è stata deselezionata dalla simulazione
-                                                                                    Dim CurrSelectedOperation As OperationListBoxItem
-                                                                                    CurrSelectedOperation = selOperation
-                                                                                    selOperation = Nothing
-                                                                                    selOperation = CurrSelectedOperation
+                                                                                    ListIsExpanded = True
+                                                                                    ' Deseleziono e riseleziono le operazioni correnti per ripristinare il mark
+                                                                                    For Each Operation In OperationList
+                                                                                       If Operation.IsSelected Then
+                                                                                          Operation.IsSelected = False
+                                                                                          Operation.IsSelected = True
+                                                                                       End If
+                                                                                    Next
                                                                                  End If
                                                                               End Sub)
       Application.Msn.Register(Application.DRAWMODE_ISCHECKED, Sub()
@@ -580,6 +560,12 @@ Public Class OperationExpanderVM
                                                                   If Not IsNothing(m_MachiningParameterExpander) Then
                                                                      DirectCast(m_MachiningParameterExpander.DataContext, MachiningParameterExpanderVM).ViewTool = False
                                                                   End If
+                                                                  ' Deseleziono le operazioni correnti per eliminare il mark
+                                                                  For Each Operation In OperationList
+                                                                     If Operation.IsSelected Then
+                                                                        Operation.IsSelected = False
+                                                                     End If
+                                                                  Next
                                                                End Sub)
       Application.Msn.Register(Application.CANCELOPERATIONCOMMAND, Sub()
                                                                       CancelOperation(String.Empty)
@@ -743,9 +729,9 @@ Public Class OperationExpanderVM
    ''' </summary>
    Public Sub OperationListDoubleClick()
       ' Cerco l'operazione selezionata all'interno di OperationList
-      Dim selOperation As OperationListBoxItem
+      Dim selOperation As OperationListBoxItem = Nothing
       For Each Operation In OperationList
-         If (Operation.IsSelected) Then
+         If Operation.IsSelected Then
             selOperation = Operation
          End If
       Next
@@ -980,9 +966,9 @@ Public Class OperationExpanderVM
    ''' </summary>
    Public Sub DuplicateMach()
       ' Cerco l'operazione selezionata all'interno di OperationList
-      Dim selOperation As OperationListBoxItem
+      Dim selOperation As OperationListBoxItem = Nothing
       For Each Operation In OperationList
-         If (Operation.IsSelected) Then
+         If Operation.IsSelected Then
             selOperation = Operation
          End If
       Next
@@ -1021,14 +1007,16 @@ Public Class OperationExpanderVM
    ''' </summary>
    Public Sub MachToDb()
       ' Cerco l'operazione selezionata all'interno di OperationList
-      Dim selOperation As OperationListBoxItem
+      Dim selOperation As OperationListBoxItem = Nothing
       For Each Operation In OperationList
-         If (Operation.IsSelected) Then
+         If Operation.IsSelected Then
             selOperation = Operation
+            Exit For
          End If
       Next
       'verifico che l'operazione selezionata sia una lavorazione
-      If IsNothing(selOperation) Or selOperation.m_Type = MCH_OY.NONE Or
+      If IsNothing(selOperation) OrElse
+         selOperation.m_Type = MCH_OY.NONE OrElse
          selOperation.m_Type = MCH_OY.DISP Then Return
       ' apro la finetra che chiede il nome e verifica che non sia già utilizzato (Nome lavorazione nel Db)
       Dim NameDialogVM As New EgtWPFLib5.NameDialogVM With {
@@ -1171,14 +1159,16 @@ Public Class OperationExpanderVM
    ''' </summary>
    Public Sub Rename()
       ' Cerco l'operazione selezionata all'interno di OperationList
-      Dim selOperation As OperationListBoxItem
+      Dim selOperation As OperationListBoxItem = Nothing
       For Each Operation In OperationList
-         If (Operation.IsSelected) Then
+         If Operation.IsSelected Then
             selOperation = Operation
+            Exit For
          End If
       Next
-      'verifico che l'operazione selezionata sia una lavorazione
-      If IsNothing(selOperation) Or selOperation.m_Type = MCH_OY.NONE Or
+      ' verifico che l'operazione selezionata sia una lavorazione
+      If IsNothing(selOperation) OrElse
+         selOperation.m_Type = MCH_OY.NONE OrElse
          selOperation.m_Type = MCH_OY.DISP Then Return
       ' lancio modalità rinomina
       If Not TypeOf selOperation Is MachiningOpListBoxItem Then Return
@@ -1279,88 +1269,60 @@ Public Class OperationExpanderVM
 
    ' Abilita/Disabilita il bottone MoveUp in base agli elementi selezionati
    Private Function MoveUp_SelectionOperation() As Boolean
+      ' Inserisco in una lista le operazioni selezionate
       Dim indexes As New List(Of Integer)()
       For index As Integer = 0 To OperationList.Count - 1
-         If (OperationList.Item(index).IsSelected) Then
-            ' Aggiungo l'indice ad una lista per verificarne successivamente la consecuitività con altri indici
+         If OperationList.Item(index).IsSelected Then
             indexes.Add(index)
          End If
       Next
-      Dim flag = False
-      Dim len As Integer = indexes.Count
-      ' Caso in cui più ci sono più indici selezionati
-      If len > 1 Then
-         For index As Integer = 1 To len - 1
-            ' Verfico se gli indici degli elementi selezionati siano consecutivi
-            If (indexes(index) - indexes(index - 1) = 1) Then
-               flag = True
-            Else
-               Return False
-               Exit For
-            End If
-         Next
-      End If
+      ' Se non ci sono operazioni selezionate, non va bene
+      If indexes.Count = 0 Then Return False
 
-      ' Verifico se prima del primo indice selezionato ci sia ancora qualcosa
-      If Not (indexes(0) = 0) Then
-         ' Verifico se appena prima del primo indice selezionato ci sia una Disposizione o esso stesso lo sia
-         ' Questa è anche l'unica condizione affrontata in caso di singolo elemento selezionato
-         For index As Integer = 0 To len - 1
-            If (EgtGetOperationType(OperationList.Item(indexes(0) - 1).Id).Equals(MCH_OY.DISP) Or
-         EgtGetOperationType(OperationList.Item(indexes(index)).Id).Equals(MCH_OY.DISP)) Then
-               Return False
-            Else
-               flag = True
-            End If
-         Next
-      Else
-         Return False
-      End If
+      ' Se le operazioni non sono consecutive, non va bene
+      For index As Integer = 1 To indexes.Count - 1
+         If indexes(index) - indexes(index - 1) <> 1 Then Return False
+      Next
 
-      Return flag
+      ' Se tra le operazioni c'è una disposizione, non va bene
+      For index As Integer = 1 To indexes.Count - 1
+         If EgtGetOperationType(OperationList.Item(indexes(index)).Id) = MCH_OY.DISP Then Return False
+      Next
+
+      ' Se prima della prima selezionata c'è una disposizione, non va bene
+      If indexes(0) = 0 OrElse EgtGetOperationType(OperationList.Item(indexes(0) - 1).Id) = MCH_OY.DISP Then Return False
+
+      Return True
    End Function
 
    ' Abilita/Disabilita il bottone MoveDown in base agli elementi selezionati
    Private Function MoveDown_SelectionOperation() As Boolean
+      ' Inserisco in una lista le operazioni selezionate
       Dim indexes As New List(Of Integer)()
       For index As Integer = 0 To OperationList.Count - 1
-         If (OperationList.Item(index).IsSelected) Then
-            ' Aggiungo l'indice ad una lista per verificarne successivamente la consecuitività con altri indici
+         If OperationList.Item(index).IsSelected Then
             indexes.Add(index)
          End If
       Next
-      Dim flag = False
-      Dim len As Integer = indexes.Count
-      ' Caso in cui più ci sono più indici selezionati
-      If len > 1 Then
-         For index As Integer = 1 To len - 1
-            ' Verfico se gli indici degli elementi selezionati siano consecutivi
-            If (indexes(index) - indexes(index - 1) = 1) Then
-               flag = True
-            Else
-               Return False
-               Exit For
-            End If
-         Next
-      End If
+      ' Se non ci sono operazioni selezionate, non va bene
+      If indexes.Count = 0 Then Return False
 
-      ' Verifico se dopo l'ultimo indice selezionato ci sia ancora qualcosa
-      If Not (indexes(len - 1) = OperationList.Count - 1) Then
-         ' Verifico se appena dopo l'ultimo indice selezionato ci sia una Disposizione
-         ' Questa è anche l'unica condizione affrontata in caso di singolo elemento selezionato
-         For index As Integer = 0 To len - 1
-            If (EgtGetOperationType(OperationList.Item(indexes(len - 1) + 1).Id).Equals(MCH_OY.DISP) Or
-         EgtGetOperationType(OperationList.Item(indexes(index)).Id).Equals(MCH_OY.DISP)) Then
-               Return False
-            Else
-               flag = True
-            End If
-         Next
-      Else
-         Return False
-      End If
+      ' Se le operazioni non sono consecutive, non va bene
+      For index As Integer = 1 To indexes.Count - 1
+         If indexes(index) - indexes(index - 1) <> 1 Then Return False
+      Next
 
-      Return flag
+      ' Se tra le operazioni c'è una disposizione, non va bene
+      For index As Integer = 1 To indexes.Count - 1
+         If EgtGetOperationType(OperationList.Item(indexes(index)).Id) = MCH_OY.DISP Then Return False
+      Next
+
+      ' Se dopo l'ultima selezionata c'è una disposizione, non va bene
+      Dim nLast As Integer = indexes.Count - 1
+      If indexes(nLast) = OperationList.Count - 1 OrElse
+         EgtGetOperationType(OperationList.Item(indexes(nLast) + 1).Id) = MCH_OY.DISP Then Return False
+
+      Return True
    End Function
 
 #End Region    ' Methods
diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/OperationListBoxItem.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/OperationListBoxItem.vb
index a68e8cf..1db74e9 100644
--- a/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/OperationListBoxItem.vb
+++ b/OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/OperationListBoxItem.vb
@@ -41,14 +41,14 @@ Public Class OperationListBoxItem
             Dim indexes As List(Of OperationListBoxItem) = New List(Of OperationListBoxItem)
             Dim Count As Integer = 0
             For Each OperationListBoxItem In m_RefOperationExpanderVM.OperationList
-               If (OperationListBoxItem.IsSelected) Then
+               If OperationListBoxItem.IsSelected And OperationListBoxItem.Id <> m_Id Then
                   Count = Count + 1
                   indexes.Add(OperationListBoxItem)
                End If
             Next
 
             If indexes.Count > 0 Then
-               If (Not EgtGetOperationPhase(Id) = EgtGetOperationPhase(indexes(0).Id)) Then
+               If EgtGetOperationPhase(Id) <> EgtGetOperationPhase(indexes(0).Id) Then
                   Return
                End If
             End If
@@ -56,8 +56,8 @@ Public Class OperationListBoxItem
             m_IsSelected = value
             ' Verifico se c'è l'operazione precedente 
             If Not value Or
-            indexes.Any(Function(i) i.Type = MCH_OY.DISP) Or
-            (Not indexes.Any(Function(i) i.Type = MCH_OY.DISP) And Type.Equals(MCH_OY.DISP) And Count > 0) Then
+               indexes.Any(Function(i) i.Type = MCH_OY.DISP) Or
+               (Not indexes.Any(Function(i) i.Type = MCH_OY.DISP) And Type = MCH_OY.DISP And Count > 0) Then
 
                m_IsSelected = False
 
@@ -71,19 +71,20 @@ Public Class OperationListBoxItem
 
                m_RefOperationExpanderVM.OnPropertyChanged("MoveUp_IsEnabled")
                m_RefOperationExpanderVM.OnPropertyChanged("MoveDown_IsEnabled")
+               NotifyPropertyChanged("IsSelected")
                ' Aggiorno visualizzazione
                EgtDraw()
                Return
             End If
             ' Imposto la fase di lavorazione corrente
             EgtSetCurrPhase(EgtGetOperationPhase(Id))
-            ' Verifico se l'operazione è una disposizione
+            ' Se l'operazione è una disposizione
             If EgtGetOperationType(Id) = MCH_OY.DISP Then
                ' Abilito la selezione delle Fixture
                Application.Msn.NotifyColleagues(Application.SETSCENESELTYPE, SceneSelTypeOpt.FIXTURE)
                ' Abilito la selezione di tutti i tipi di geometria
                Application.Msn.NotifyColleagues(Application.SETSCENESELMODE, SceneSelModeOpt.ALL)
-               ' L'operazione è una lavorazione
+            ' Altrimenti è una lavorazione
             Else
                ' Imposto come corrente la lavorazione selezionata
                EgtSetCurrMachining(Id)
@@ -115,10 +116,10 @@ Public Class OperationListBoxItem
             EgtDraw()
          End If
          'OnPropertyChanged("ToolExpanderHeader")
-         'm_RefOperationExpanderVM.OnPropertyChanged("SelectedOperation")
          m_RefOperationExpanderVM.OnPropertyChanged("DuplicateCmd_IsEnabled")
          m_RefOperationExpanderVM.OnPropertyChanged("MachToDb_IsEnabled")
          m_RefOperationExpanderVM.OnPropertyChanged("Rename_IsEnabled")
+         NotifyPropertyChanged("IsSelected")
       End Set
    End Property
 
diff --git a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb
index c066103..bca9608 100644
--- a/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb
+++ b/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb
@@ -51,9 +51,6 @@ Public Class SimulationExpanderVM
       End Get
       Set(value As Boolean)
          If value <> m_IsExpanded Then
-            'm_RefOperationExpanderVM.ListIsExpanded = False
-            'm_RefOperationExpanderVM.m_CurrExpandedExpander = OperationExpanderVM.MachiningOptionPanelExpander.ESTIMATIONS
-            'm_RefOperationExpanderVM.OnPropertyChanged("ListIsExpanded")
             If value Then
 
                If m_RefOperationExpanderVM.m_CurrExpandedExpander = OperationExpanderVM.MachiningOptionPanelExpander.OPERATIONLIST Then