-aggiunto focus quando viene mostrata la textbox per inserire la info

- piccola modifica in simulazione per gestire Flag=12 quasi come 11 (pausa richiesta da sotto).

My Project/AssemblyInfo.vb

@@ -70,6 +70,6 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.7.11.2")>
+<Assembly: AssemblyVersion("2.7.11.3")>
-<Assembly: AssemblyFileVersion("2.7.11.2")>
+<Assembly: AssemblyFileVersion("2.7.11.3")>
 

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml

@@ -23,9 +23,9 @@
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="Auto"/>
             </Grid.ColumnDefinitions>
-            <TextBox x:Name="Txt" Text="{Binding TextBox,UpdateSourceTrigger=PropertyChanged}"  
+            <TextBox x:Name="Txt" Text="{Binding TextBox,UpdateSourceTrigger=PropertyChanged}"                       
-                     PreviewKeyDown="TextBox_PreviewKeyDown" Height="Auto"
+                     PreviewKeyDown="TextBox_PreviewKeyDown" IsVisibleChanged="Txt_IsVisibleChanged"
-                     Visibility="{Binding TextVisibility}" Margin="5,0,5,5" >
+                     Visibility="{Binding TextVisibility}" Height="Auto" Margin="5,0,5,5" >
                <TextBox.InputBindings>
                   <KeyBinding Key="Enter" Command="{Binding DoneCommand}"/>
                   <KeyBinding Key="S" Modifiers="Control" Command="{Binding ShowCommand}"/>

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml.vb

@@ -8,4 +8,10 @@
       End If
    End Sub
 
+   Private Sub Txt_IsVisibleChanged(sender As Object, e As DependencyPropertyChangedEventArgs)
+      If Txt.IsVisible Then
+         Txt.Focus()
+      End If
+   End Sub
+
 End Class

OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb

@@ -468,16 +468,16 @@ Public Class SimulationExpanderVM
    Friend Sub SimulationExpander_Update_CncData( nFlag As Integer)
       If Simulation_IsExpanded Then
          ShowCncData()
-         ' Se fermo per Collisione rilevata da script Lua
+         ' Se fermo per Collisione rilevata da script Lua o per altra richiesta
-         If nFlag = 11 Then
+         If nFlag = 11 Or nFlag = 12 Then
             ' Imposto stato Pausa
             SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
             StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
             ' Aggiornamenti per bottone Play/Pause
             SetShowPlay(True)
             NotifyPropertyChanged("PlayPauseImage")
-            ' Dichiaro di non arrestarsi alla successiva notifica di collisione
+            ' Se fermo per Collisione, dichiaro di non arrestarsi alla successiva notifica di collisione
-            m_bStopOnNextCollision = False
+            If nFlag = 11 Then m_bStopOnNextCollision = False
          End If
       End If
    End Sub