EgtCAM5 :

- corretta gestione dei messaggi dello stato della Simulazione (spostata in Libreria)

OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb

@@ -66,6 +66,9 @@ Public Class SimulationExpanderVM
       SimulationMsg_Const = MSG_SIMULATION
       SetPlayImagePath("/Resources/OptionPanel/MachiningOptionPanel/SimulationExpander/Play.png")
       SetPauseImagePath("/Resources/OptionPanel/MachiningOptionPanel/SimulationExpander/Pause.png")
+      SetPauseMsg(EgtMsg(5311))  ' PAUSA
+      SetStopMsg(EgtMsg(5312))   ' STOP
+      SetHomeMsg(EgtMsg(5314))   ' HOME
    End Sub
 
 #End Region    ' CONSTRUCTOR
@@ -230,7 +233,7 @@ Public Class SimulationExpanderVM
       End If
       ' Aggiorno visualizzazione dati macchina
       ShowCncData()
-      StatusMsg = EgtMsg(MSG_SIMULATION + 14)   ' Home
+      StatusMsg = EgtMsg(MSG_SIMULATION + 14)   ' HOME
    End Sub
 
    Public Overrides Sub ExecSim()
@@ -261,7 +264,7 @@ Public Class SimulationExpanderVM
                If GetStatus() = MCH_SIM_ST.UI_STEP And nMove = MCH_SIM.END_STEP Then
                   ' Imposto stato Pausa
                   SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
-                  StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' Pausa
+                  StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
                   ' Aggiornamenti per bottone Play/Pause
                   SetShowPlay(True)
                   NotifyPropertyChanged("PlayPauseImage")
@@ -270,7 +273,7 @@ Public Class SimulationExpanderVM
             ElseIf nMove = MCH_SIM.COLLISION Then
                ' Imposto stato Pausa
                SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
-               StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' Pausa
+               StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
                ' Aggiornamenti per bottone Play/Pause
                SetShowPlay(True)
                NotifyPropertyChanged("PlayPauseImage")
@@ -286,7 +289,7 @@ Public Class SimulationExpanderVM
                VMill_IsEnabled = True
                Select Case nMove
                   Case MCH_SIM.END_
-                     StatusMsg = EgtMsg(MSG_SIMULATION + 1)   'Simulazione completata
+                     StatusMsg = EgtMsg(MSG_SIMULATION + 1)   ' END
                   Case MCH_SIM.STOP_
                      ' Simulazione fermata dall'utente (non necessita messaggio)
                   Case MCH_SIM.OUTSTROKE