diff --git a/ConstMsg.vb b/ConstMsg.vb index 0483f39..c396e0c 100644 --- a/ConstMsg.vb +++ b/ConstMsg.vb @@ -1,7 +1,7 @@ Module ConstMsg Public Const MSG_MISSINGKEYWD As Integer = 10100 - Public Const MSG_NUMERICkEYBOARD As Integer = 10200 + Public Const MSG_NUMERICKEYBOARD As Integer = 10200 Public Const MSG_GENERAL As Integer = 101000 Public Const MSG_IMPORTPAGEUC As Integer = 101100 Public Const MSG_DRAWPAGEUC As Integer = 101200 diff --git a/DrawPageUC.xaml b/DrawPageUC.xaml index 7e2ce4e..000e135 100644 --- a/DrawPageUC.xaml +++ b/DrawPageUC.xaml @@ -23,7 +23,7 @@ - + @@ -41,7 +41,6 @@ - diff --git a/NumericKeyboardWD.xaml.vb b/NumericKeyboardWD.xaml.vb index d941f68..6d9ee6a 100644 --- a/NumericKeyboardWD.xaml.vb +++ b/NumericKeyboardWD.xaml.vb @@ -10,7 +10,7 @@ Public Class NumericKeyboardWD Dim m_bErrorState As Boolean = False Private Sub NumericKeyboardWD_Initialized(sender As Object, e As EventArgs) - m_sErrorString = EgtMsg(MSG_NUMERICkEYBOARD + 1) + m_sErrorString = EgtMsg(MSG_NUMERICKEYBOARD + 1) End Sub Private Sub NumericKeyboardWD_IsVisibleChanged(sender As Object, e As DependencyPropertyChangedEventArgs) diff --git a/OptionsPageUC.xaml b/OptionsPageUC.xaml index aed9fc4..c73f3d5 100644 --- a/OptionsPageUC.xaml +++ b/OptionsPageUC.xaml @@ -4,27 +4,58 @@ xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" xmlns:d="http://schemas.microsoft.com/expression/blend/2008" mc:Ignorable="d" - d:DesignHeight="704" d:DesignWidth="1024" > + d:DesignHeight="704" d:DesignWidth="1024" Initialized="OptionsPage_Initialized" > - + - + + - + + + + + + + + + + + + + + + + - + @@ -39,6 +70,6 @@ VerticalAlignment="Center" /> - + diff --git a/OptionsPageUC.xaml.vb b/OptionsPageUC.xaml.vb index c3e05da..9f3c348 100644 --- a/OptionsPageUC.xaml.vb +++ b/OptionsPageUC.xaml.vb @@ -1,7 +1,37 @@ -Public Class OptionsPageUC +Imports EgtUILib + +Public Class OptionsPageUC Dim m_MainWindow As MainWindow = Application.Current.MainWindow + Private Sub OptionsPage_Initialized(sender As Object, e As EventArgs) + + 'Imposto i messaggi letti dal file dei messaggi + ExtraRawPartXLbl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 1) 'Generate - Extra grezzo in X + ExtraRawPartYLbl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 2) 'Send - Trasmetti + ExtraGlueLbl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 3) 'Send - Trasmetti + PlankWidthLbl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 4) 'Send - Trasmetti + PlankNumForLayerLbl.Text = EgtMsg(MSG_OPTIONSPAGEUC + 5) 'Send - Trasmetti + + ' Associo TextBox e Label + Dim TempLabel1 As New Label + TempLabel1.Content = ExtraRawPartXLbl.Text + ExtraRawPartXTxBx.Tag = TempLabel1 + Dim TempLabel2 As New Label + TempLabel2.Content = ExtraRawPartYLbl.Text + ExtraRawPartYTxBx.Tag = TempLabel2 + Dim TempLabel3 As New Label + TempLabel3.Content = ExtraGlueLbl.Text + ExtraGlueTxBx.Tag = TempLabel3 + Dim TempLabel4 As New Label + TempLabel4.Content = PlankWidthLbl.Text + PlankWidthTxBx.Tag = TempLabel4 + Dim TempLabel5 As New Label + TempLabel5.Content = PlankNumForLayerLbl.Text + PlankNumForLayerTxBx.Tag = TempLabel5 + + End Sub + Private Sub ExitBtn_Click(sender As Object, e As RoutedEventArgs) Handles ExitBtn.Click 'Istruzioni per chiudere OptionsPageUC e aprire PlacePage UC m_MainWindow.MainWindowGrid.Children.Remove(m_MainWindow.m_OptionsPageUC) diff --git a/PlacePageUC.xaml b/PlacePageUC.xaml index 30c42c1..5ccb3bd 100644 --- a/PlacePageUC.xaml +++ b/PlacePageUC.xaml @@ -38,7 +38,8 @@ - + + diff --git a/PlacePageUC.xaml.vb b/PlacePageUC.xaml.vb index a2d36b1..ba96d24 100644 --- a/PlacePageUC.xaml.vb +++ b/PlacePageUC.xaml.vb @@ -66,11 +66,15 @@ Public Class PlacePageUC StoreWallTxt.Text = EgtMsg(MSG_PLACEPAGEUC + 5) 'Store wall - Parcheggia parete RemoveWallBtn.Content = EgtMsg(MSG_PLACEPAGEUC + 6) 'Remove wall - Elimina parete LayerThicknessLbl.Text = EgtMsg(MSG_PLACEPAGEUC + 7) 'Layer thickness - Spessore strato + PlankNumFirstLayerLbl.Text = EgtMsg(MSG_PLACEPAGEUC + 8) ' - Numero tavola primo piano ' Associo TextBox e Label - Dim TempLabel As New Label - TempLabel.Content = LayerThicknessLbl.Text - LayerThicknessTxBx.Tag = TempLabel + Dim TempLabel1 As New Label + TempLabel1.Content = LayerThicknessLbl.Text + LayerThicknessTxBx.Tag = TempLabel1 + Dim TempLabel2 As New Label + TempLabel2.Content = PlankNumFirstLayerLbl.Text + PlankNumFirstLayerTxBx.Tag = TempLabel2 End Sub