From 7ba44bbe5265ade5fb9709066b89daf6311c4e62 Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Thu, 19 Nov 2015 08:04:29 +0000
Subject: [PATCH] OmagCut : - Aggiunte tastiere in pagina Db lavorazioni.

---
 MachiningDbPageUC.xaml    |  3 ++
 MachiningDbPageUC.xaml.vb | 65 +++++++++++++++++++++++++++++++++++++++
 2 files changed, 68 insertions(+)

diff --git a/MachiningDbPageUC.xaml b/MachiningDbPageUC.xaml
index 67d2bba..bc6f453 100644
--- a/MachiningDbPageUC.xaml
+++ b/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 -->
diff --git a/MachiningDbPageUC.xaml.vb b/MachiningDbPageUC.xaml.vb
index 32fd713..7579c3a 100644
--- a/MachiningDbPageUC.xaml.vb
+++ b/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