EgtCAM5 :

- in simulazione aggiunta gestione collisione.
2019-04-06 08:12:26 +00:00
parent 6b183c3c77
commit f8e08fc583
1 changed files with 11 additions and 1 deletions
@@ -743,7 +743,17 @@ Public Class SimulationExpanderVM
                  m_bShowPlay = True
                  OnPropertyChanged("PlayPauseImage")
               End If
-            ' Se movimento non riuscito
+            ' Se movimento con collisione
+            Else If nMove = MCH_SIM.COLLISION
+               ' Imposto stato Pausa
+               SimulationStatus = MCH_SIM_ST.UI_PAUSE
+               StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' Pausa
+               ' Aggiornamenti per bottone Play/Pause
+               m_bShowPlay = True
+               OnPropertyChanged("PlayPauseImage")
+               ' Messaggio
+               MessageBox.Show(EgtMsg(MSG_SIMULATION + 19), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+            ' Altrimenti movimento non riuscito
            Else
               SimulationStatus = MCH_SIM_ST.UI_STOP
               ' Aggiornamenti per bottone Play/Pause