Public Class ScriptWindowV

#Region "CONSTRUCTOR"

   Sub New()

      ' La chiamata è richiesta dalla finestra di progettazione.
      InitializeComponent()

      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
      Map.SetRefScriptWindowV(Me)
   End Sub

#End Region    ' Constructor

#Region "EVENTS"

   Private Sub EgtMainWindow_PreviewKeyDown(sender As Object, e As KeyEventArgs)
      If e.Key = Key.Escape Then
         Annulla.IsCancel = True
      End If
   End Sub

   Private Sub sNameFile_RichTxBx_TextChanged(sender As Object, e As TextChangedEventArgs)
      'If Not IsNothing(Map.refScriptWindowVM) Then Map.refScriptWindowVM.ChangeTimer()
   End Sub

   Private Sub sNameFile_RichTxBx_SelectionChanged(sender As Object, e As RoutedEventArgs)
      If Not IsNothing(Map.refScriptWindowVM) Then Map.refScriptWindowVM.SetToolbar()
   End Sub

   Private Sub sNameFile_RichTxBx_PreviewKeyDown(sender As Object, e As KeyEventArgs)
      If e.Key = Key.Enter Then
         Map.refScriptWindowVM.InsertText(sNameFile_RichTxBx, vbCrLf)
         e.Handled = True
      ElseIf e.Key = Key.Tab Then
         e.Handled = True
         Map.refScriptWindowVM.Tabulation(sNameFile_RichTxBx)
      End If
   End Sub

   Private Sub sNameFile_RichTxBx_PreviewMouseWheel(sender As Object, e As MouseWheelEventArgs)
      ' Ottieni il numero di righe da scorrere
      Dim linesToScroll As Integer = e.Delta / 5
      ' Scorri il contenuto della RichTextBox
      sNameFile_RichTxBx.ScrollToVerticalOffset(sNameFile_RichTxBx.VerticalOffset - linesToScroll)
   End Sub

#End Region    ' Events

End Class