- nuova grafica per simulazione

- introdotta possibilita' di muovere coordinate macchina in simulazione
- introduzione nuova EgtTextBox2
- nuova grafica per ControllerInputPanel
- nuovo componente che gestisce visibilita' macchina
- gestita stop e uscita da simulazione su chiusura programma
-

Icarus/SimulationPanel/MySimulation.vb

@@ -26,8 +26,8 @@ Public Class MySimulation
 #Region "CONSTRUCTOR"
 
    Sub New()
-      SetPlayImagePath("/Resources/SimulTab/Play.png")
-      SetPauseImagePath("/Resources/SimulTab/Pause.png")
+      SetPlayImagePath("/Resources/SimulationPanel/Play.png")
+      SetPauseImagePath("/Resources/SimulationPanel/Pause.png")
       SetPauseMsg(EgtMsg(90561)) ' Pausa
       SetStopMsg(EgtMsg(90562))  ' Simulazione interrotta
       SetHomeMsg(EgtMsg(90564))  ' Home
@@ -94,16 +94,16 @@ Public Class MySimulation
    End Sub
 
    Public Overrides Sub OnPostSetSimulationStatus(value As MCH_SIM_ST)
-      'If OmagOFFICE.refMainWindowVM.MainWindowM.nUserLevel >= 10 AndAlso
-      '      (GetStatus() = MCH_SIM_ST.UI_PAUSE OrElse GetStatus() = MCH_SIM_ST.UI_STOP) Then
-      '   For Index = 0 To MachineAxisList.Count - 1
-      '      MachineAxisList(Index).IsReadOnlyAxesValue = False
-      '   Next
-      'Else
-      '   For Index = 0 To MachineAxisList.Count - 1
-      '      MachineAxisList(Index).IsReadOnlyAxesValue = True
-      '   Next
-      'End If
+      If Map.refMainWindowVM.MainWindowM.nUserLevel >= 5 AndAlso
+            (GetStatus() = MCH_SIM_ST.UI_PAUSE OrElse GetStatus() = MCH_SIM_ST.UI_STOP) Then
+         For Index = 0 To MachineAxisList.Count - 1
+            MachineAxisList(Index).IsReadOnlyAxesValue = False
+         Next
+      Else
+         For Index = 0 To MachineAxisList.Count - 1
+            MachineAxisList(Index).IsReadOnlyAxesValue = True
+         Next
+      End If
    End Sub
 
 #End Region    ' METHODS