OmagCut :

- Aggiunte tastiere in pagina Db lavorazioni.

MachiningDbPageUC.xaml

@@ -387,6 +387,9 @@
                </ComboBox.ItemTemplate>
             </ComboBox>
 
+            <TextBox Name="MachiningDrawTxBx" Grid.Column="2" FontSize="20" Visibility="Hidden"
+               HorizontalAlignment="Center" VerticalAlignment="Center" TextAlignment="Center" />
+
          </Grid>
 
          <!-- Definizione della Grid inferiore per Button -->

MachiningDbPageUC.xaml.vb

@@ -363,4 +363,69 @@ Public Class MachiningDbPageUC
       Return True
    End Function
 
+   Private Sub NameTxBx_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs) Handles NameTxBx.PreviewMouseDown
+      MachiningDrawTxBx.Text = NameTxBx.Text
+      Dim Keyboard As New Keyboard
+      Keyboard.Owner = m_MainWindow
+      Keyboard.m_CurrTxBx = MachiningDrawTxBx
+      Keyboard.m_CurrTxBl = NameTxBl.Text
+      ' Imposto nome nel Title e valore nella TextBox
+      Keyboard.CurrTextTxBx.Text = Keyboard.m_CurrTxBx.Text
+      Keyboard.CurrNameTxBl.Text = Keyboard.m_CurrTxBl
+      ' Imposto Dimensioni e posizione della tastiera
+      Keyboard.Top = m_MainWindow.Top + (m_MainWindow.Height / 2 - Keyboard.Height / 2)
+      Keyboard.Left = m_MainWindow.Left + (m_MainWindow.Width / 2 - Keyboard.Width / 2)
+      'Keyboard.Height = m_MainWindow.Height / 12 * 5
+      'Keyboard.Width = m_MainWindow.Width / 15 * 5
+      ' Visualizzo
+      Keyboard.ShowDialog()
+      If MachiningDrawTxBx.Text <> m_sMachiningName Then
+         EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
+         Dim TempName As String = MachiningDrawTxBx.Text
+         EgtTdbGetToolNewName(TempName)
+
+         If TempName = MachiningDrawTxBx.Text Then
+            NameTxBx.Text = MachiningDrawTxBx.Text
+         Else
+            MsgBox("Nome già utilizzato")
+         End If
+      Else
+         NameTxBx.Text = m_sMachiningName
+      End If
+      MachiningDrawTxBx.Text = String.Empty
+   End Sub
+
+   Private Sub DepthTxBx_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs) Handles DepthTxBx.PreviewMouseDown
+      MachiningDrawTxBx.Text = DepthTxBx.Text
+      Dim Keyboard As New Keyboard
+      Keyboard.Owner = m_MainWindow
+      Keyboard.m_CurrTxBx = MachiningDrawTxBx
+      Keyboard.m_CurrTxBl = DepthTxBl.Text
+      ' Imposto nome nel Title e valore nella TextBox
+      Keyboard.CurrTextTxBx.Text = Keyboard.m_CurrTxBx.Text
+      Keyboard.CurrNameTxBl.Text = Keyboard.m_CurrTxBl
+      ' Imposto Dimensioni e posizione della tastiera
+      Keyboard.Top = m_MainWindow.Top + (m_MainWindow.Height / 2 - Keyboard.Height / 2)
+      Keyboard.Left = m_MainWindow.Left + (m_MainWindow.Width / 2 - Keyboard.Width / 2)
+      'Keyboard.Height = m_MainWindow.Height / 12 * 5
+      'Keyboard.Width = m_MainWindow.Width / 15 * 5
+      ' Visualizzo
+      Keyboard.ShowDialog()
+      'If MachiningDrawTxBx.Text <> m_sMachiningName Then
+      '   EgtSetCurrentContext(m_MainWindow.m_CurrentProjectPageUC.CurrentProjectScene.GetCtx())
+      '   Dim TempName As String = MachiningDrawTxBx.Text
+      '   EgtTdbGetToolNewName(TempName)
+
+      '   If TempName = MachiningDrawTxBx.Text Then
+      '      NameTxBx.Text = MachiningDrawTxBx.Text
+      '   Else
+      '      MsgBox("Nome già utilizzato")
+      '   End If
+      'Else
+      '   NameTxBx.Text = m_sMachiningName
+      'End If
+      DepthTxBx.Text = MachiningDrawTxBx.Text
+      MachiningDrawTxBx.Text = String.Empty
+   End Sub
+
 End Class