EgtCAM5 :

- Migliorie varie.

ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/OperationExpanderViewModel.vb

@@ -42,15 +42,31 @@ Namespace EgtCAM5
       ' Ultima lavorazione evidenziata
       Private m_LastMarkedOperationId As Integer = GDB_ID.NULL
 
-      Private m_IsExpanded As Boolean
-      Public Property IsExpanded As Boolean
+      Private m_ListIsExpanded As Boolean
+      Public Property ListIsExpanded As Boolean
          Get
-            Return m_IsExpanded
+            Return m_ListIsExpanded
          End Get
          Set(value As Boolean)
-            If value <> m_IsExpanded Then
-               m_IsExpanded = value
-               OnPropertyChanged("IsExpanded")
+            If value <> m_ListIsExpanded Then
+               m_ListIsExpanded = value
+               If value Then
+                  Application.Msn.NotifyColleagues(Application.SIMULATIONEXPANDER_SET_ISEXPANDED, False)
+               End If
+               OnPropertyChanged("ListIsExpanded")
+            End If
+         End Set
+      End Property
+
+      Private m_ParametersIsExpanded As Boolean
+      Public Property ParametersIsExpanded As Boolean
+         Get
+            Return m_ParametersIsExpanded
+         End Get
+         Set(value As Boolean)
+            If value <> m_ParametersIsExpanded Then
+               m_ParametersIsExpanded = value
+               OnPropertyChanged("ParametersIsExpanded")
             End If
          End Set
       End Property
@@ -349,7 +365,7 @@ Namespace EgtCAM5
       Private m_cmdReloadMachining As ICommand
 
       Sub New()
-         Me.IsExpanded = True
+         Me.ListIsExpanded = True
          Application.Msn.Register(Application.LOADOPERATIONLIST, Sub()
                                                                     LoadOperationList()
                                                                  End Sub)
@@ -359,7 +375,12 @@ Namespace EgtCAM5
          Application.Msn.Register(Application.NEWMACHININGMODEISACTIVE, Sub(bValue As Boolean)
                                                                            NewMachining = bValue
                                                                         End Sub)
-
+         Application.Msn.Register(Application.SIMULATIONEXPANDER_GET_ISEXPANDED, Sub(bValue As Boolean)
+                                                                                    ListIsExpanded = Not bValue
+                                                                                    If bValue Then
+                                                                                       ParametersIsExpanded = False
+                                                                                    End If
+                                                                                 End Sub)
       End Sub
 
 #Region "COMMANDS"