- 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/MachineViewPanel/MachineViewPanelVM.vb

@@ -0,0 +1,35 @@
+Imports EgtUILib
+Imports EgtWPFLib5
+
+Public Class MachineViewPanelVM
+   Inherits VMBase
+
+   Private m_nSelMachView As MCH_LOOK
+   Public Property ghSelMachView As Integer
+      Get
+         Return m_nSelMachView - 1
+      End Get
+      Set(value As Integer)
+         m_nSelMachView = value + 1
+         If Not IsNothing(Map.refSimulationPanelVM) Then
+            Dim MySimul As SimulationVM = Map.refSimulationPanelVM.MySimul
+            MySimul.SetMachLook(m_nSelMachView)
+            ' aggiorno lo stato della macchina e la sua visualizzazione
+            EgtSetMachineLook(MySimul.GetMachLook())
+            WriteMainPrivateProfileString(S_SIMUL, K_MACHVIEWMODE, m_nSelMachView)
+         End If
+         EgtDraw()
+      End Set
+   End Property
+   Friend Sub SetSelViewSlider(value As MCH_LOOK)
+      m_nSelMachView = value
+      NotifyPropertyChanged(NameOf(ghSelMachView))
+   End Sub
+
+   Sub New()
+      ' leggo vista macchina da ini e la imposto
+      Dim DefaultMachViewMode As Integer = GetMainPrivateProfileInt(S_SIMUL, K_MACHVIEWMODE, 3)
+      SetSelViewSlider(DefaultMachViewMode)
+   End Sub
+
+End Class