EgtCAM5 :

- protetto virtual milling da bit licenza
- disabilitati salvataggio e simili durante simulazione.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -67,6 +67,7 @@ Namespace EgtCAM5
                   EgtDeselectAll()
                   Application.Msn.NotifyColleagues(Application.REMOVEMARKFROMLASTOPERATION)
                   Application.Msn.NotifyColleagues(Application.GETDISTANCE_ISCHECKED, False)
+                  EgtCAM5Map.refTopCommandBarVM.SaveIsEnabled = False
                   If IniFile.m_bShowOnlyTable Then
                      EgtShowOnlyTable(False)
                      EgtZoom(ZM.ALL, False)
@@ -79,6 +80,7 @@ Namespace EgtCAM5
                      EgtShowOnlyTable(True)
                      EgtZoom(ZM.ALL)
                   End If
+                  EgtCAM5Map.refTopCommandBarVM.SaveIsEnabled = True
                End If
                m_IsExpanded = value
                Application.Msn.NotifyColleagues(Application.SIMULATIONEXPANDER_GET_ISEXPANDED, value)
@@ -557,7 +559,7 @@ Namespace EgtCAM5
          Dim SliderVal As Double = GetPrivateProfileDouble(S_SIMUL, K_SLIDERVAL, 10)
          SliderValue = SliderVal
          ' Gestione check VMill
-         If EgtUILib.GetPrivateProfileInt(S_VMILL, K_VM_ENABLE, 0, m_sCurrMachIniFilePath) <> 0 Then
+         If IsKeyEnabledVirtualMilling() And EgtUILib.GetPrivateProfileInt(S_VMILL, K_VM_ENABLE, 0, m_sCurrMachIniFilePath) <> 0 Then
             VMill_Visibility = Visibility.Visible
             VMill_IsEnabled = True
             Dim bVal As Boolean