EgtCAM5 1.8d4 :

- migliorato controllo arresto simulazione per poter chiudere il programma.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -50,6 +50,9 @@ Namespace EgtCAM5
       ' Coefficiente per valore Slider
       Private m_SliderX As Double = 1
 
+      ' Flag di esecuzione in corso
+      Private m_bSimExecuting As Boolean = False
+
       'GRAPHICAL PROPERTIES
 
       Private m_IsExpanded As Boolean
@@ -428,6 +431,7 @@ Namespace EgtCAM5
       End Sub
 
       Private Sub ExecSim()
+         m_bSimExecuting = True
          EgtSimStart(False)
          EgtSimSetStep(SliderValue * m_SliderX)
          Dim nShowDataCounter As Integer = 0
@@ -487,6 +491,7 @@ Namespace EgtCAM5
             ' Costringo ad aggiornare UI
             UpdateUI()
          End While
+         m_bSimExecuting = False
       End Sub
 
       Private Sub ShowCncData()
@@ -570,9 +575,7 @@ Namespace EgtCAM5
 
       Private Function CanCloseApplication() As Boolean
          If m_IsExpanded Then
-            If m_nStatus = SIM_ST.ST_PLAY Or m_nStatus = SIM_ST.ST_STEP Then
-               Return False
-            End If
+            Return Not m_bSimExecuting
          End If
          Return True
       End Function