diff --git a/MachiningDbPageUC.xaml b/MachiningDbPageUC.xaml
index 611871d..ce7b57e 100644
--- a/MachiningDbPageUC.xaml
+++ b/MachiningDbPageUC.xaml
@@ -302,67 +302,89 @@
+ Style="{DynamicResource OmagCut_NoNameGroupBorder}">
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
-
-
-
-
-
-
-
-
-
+
-
-
+
+
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
+
+
-
-
-
-
-
-
-
-
-
-
+
@@ -546,56 +568,8 @@
Style="{DynamicResource OmagCut_ToolsDBTextBlock}"/>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
@@ -823,8 +797,55 @@
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -853,47 +874,7 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
diff --git a/MachiningDbPageUC.xaml.vb b/MachiningDbPageUC.xaml.vb
index 87a450c..d094a41 100644
--- a/MachiningDbPageUC.xaml.vb
+++ b/MachiningDbPageUC.xaml.vb
@@ -52,9 +52,7 @@ Public Class MachiningDbPageUC
' Imposto testo delle combobox da file dei messaggi
WorkSide = {EgtMsg(MSG_COMBOBOXPARAM + 21), EgtMsg(MSG_COMBOBOXPARAM + 22), EgtMsg(MSG_COMBOBOXPARAM + 23)}
HeadSide = {EgtMsg(MSG_COMBOBOXPARAM + 22), EgtMsg(MSG_COMBOBOXPARAM + 23)}
- 'LeadInType = {EgtMsg(MSG_COMBOBOXPARAM + 24), EgtMsg(MSG_COMBOBOXPARAM + 25), EgtMsg(MSG_COMBOBOXPARAM + 26), EgtMsg(MSG_COMBOBOXPARAM + 27), EgtMsg(MSG_COMBOBOXPARAM + 28)}
ExtLinkType = {EgtMsg(MSG_COMBOBOXPARAM + 24), EgtMsg(MSG_COMBOBOXPARAM + 29), EgtMsg(MSG_COMBOBOXPARAM + 30), EgtMsg(MSG_COMBOBOXPARAM + 31)}
- 'LeadOutType = {EgtMsg(MSG_COMBOBOXPARAM + 32), EgtMsg(MSG_COMBOBOXPARAM + 33), EgtMsg(MSG_COMBOBOXPARAM + 34)}
LeadLinkType = {EgtMsg(MSG_COMBOBOXPARAM + 24), EgtMsg(MSG_COMBOBOXPARAM + 26)}
LeLiFinType = {EgtMsg(MSG_COMBOBOXPARAM + 42), EgtMsg(MSG_COMBOBOXPARAM + 24), EgtMsg(MSG_COMBOBOXPARAM + 26)}
CurveUse = {EgtMsg(MSG_COMBOBOXPARAM + 35), EgtMsg(MSG_COMBOBOXPARAM + 36), EgtMsg(MSG_COMBOBOXPARAM + 37), EgtMsg(MSG_COMBOBOXPARAM + 41)}
@@ -129,7 +127,9 @@ Public Class MachiningDbPageUC
MaxThicknessTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 26)
ForwardAngleTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 107)
- ProbingTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 108)
+ CornerGpBx.Header = EgtMsg(MSG_MACHININGSDBPAGEUC + 120)
+ ProbingGpBx.Header = EgtMsg(MSG_MACHININGSDBPAGEUC + 108)
+ ProbingTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 119)
ProbingMinDistTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 109)
ProbingMaxDistTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 110)
ExtCornTypeTxBl.Text = EgtMsg(MSG_MACHININGSDBPAGEUC + 111)
@@ -671,12 +671,28 @@ Public Class MachiningDbPageUC
StepTypeTxBl.Visibility = Windows.Visibility.Visible
StepTypeCmBx.Visibility = Windows.Visibility.Visible
StepTypeCmBx.ItemsSource = StepType
+ SideBrd.SetValue(Grid.RowProperty, 9)
SideBrd.Visibility = Windows.Visibility.Visible
WorkSideTxBl.Visibility = Windows.Visibility.Visible
WorkSideCmBx.Visibility = Windows.Visibility.Visible
HeadSideTxBl.Visibility = Windows.Visibility.Visible
HeadSideCmBx.Visibility = Windows.Visibility.Visible
TypeBrd.Visibility = Windows.Visibility.Visible
+ ' Definizione della grid TypeGrd con la giusta altezza e numero di righe
+ Dim RowNum As Integer = TypeGrd.RowDefinitions.Count
+ If RowNum > 2 Then
+ For Index = RowNum - 1 To 2 Step -1
+ TypeGrd.RowDefinitions.RemoveAt(Index)
+ Next
+ LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ LeadOutTypeTxBl.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadOutTypeCmBx.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ TypeBrd.SetValue(Grid.RowProperty, 12)
+ TypeBrd.SetValue(Grid.RowSpanProperty, 6)
+ End If
LeadInTypeTxBl.Visibility = Windows.Visibility.Visible
LeadInTypeCmBx.Visibility = Windows.Visibility.Visible
ExtLinkTypeTxBl.Visibility = Windows.Visibility.Visible
@@ -744,7 +760,7 @@ Public Class MachiningDbPageUC
ReturnPosTxBx.Visibility = Windows.Visibility.Hidden
OffsetGpBx.Visibility = Windows.Visibility.Hidden
' Definizione di una riga della tabella con la giusta altezza
- Dim RowNum As Integer = FeedGrd.RowDefinitions.Count
+ RowNum = FeedGrd.RowDefinitions.Count
If RowNum > 4 Then
For Index = RowNum - 1 To 4 Step -1
FeedGrd.RowDefinitions.RemoveAt(Index)
@@ -776,14 +792,14 @@ Public Class MachiningDbPageUC
BackFeedTxBx.Visibility = Windows.Visibility.Visible
ForwardAngleTxBl.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBx.Visibility = Windows.Visibility.Hidden
- ProbingBrd.Visibility = Windows.Visibility.Hidden
+ CornerGpBx.Visibility = Windows.Visibility.Hidden
+ ProbingGpBx.Visibility = Windows.Visibility.Hidden
ProbingTxBl.Visibility = Windows.Visibility.Hidden
ProbingChBx.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBx.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBx.Visibility = Windows.Visibility.Hidden
- CornTypeBrd.Visibility = Windows.Visibility.Hidden
ExtCornTypeTxBl.Visibility = Windows.Visibility.Hidden
ExtCornTypeCmBx.Visibility = Windows.Visibility.Hidden
IntCornTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -801,7 +817,14 @@ Public Class MachiningDbPageUC
LpTurnsTxBx.Visibility = Windows.Visibility.Hidden
HpTurnsTxBl.Visibility = Windows.Visibility.Hidden
HpTurnsTxBx.Visibility = Windows.Visibility.Hidden
- LiLoTangPerpBrd.Visibility = Windows.Visibility.Hidden
+ LiTangTxBl.Visibility = Windows.Visibility.Hidden
+ LiTangTxBx.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBx.Visibility = Windows.Visibility.Hidden
+ LoTangTxBl.Visibility = Windows.Visibility.Hidden
+ LoTangTxBx.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBx.Visibility = Windows.Visibility.Hidden
Case MCH_MY.MILLING 'Parametri Fresatura
SideAngleTxBl.Visibility = Windows.Visibility.Hidden
SideAngleTxBx.Visibility = Windows.Visibility.Hidden
@@ -811,12 +834,28 @@ Public Class MachiningDbPageUC
AcrossChBx.Visibility = Windows.Visibility.Hidden
StepTypeTxBl.Visibility = Windows.Visibility.Hidden
StepTypeCmBx.Visibility = Windows.Visibility.Hidden
+ SideBrd.SetValue(Grid.RowProperty, 9)
SideBrd.Visibility = Windows.Visibility.Visible
WorkSideTxBl.Visibility = Windows.Visibility.Visible
WorkSideCmBx.Visibility = Windows.Visibility.Visible
HeadSideTxBl.Visibility = Windows.Visibility.Hidden
HeadSideCmBx.Visibility = Windows.Visibility.Hidden
TypeBrd.Visibility = Windows.Visibility.Visible
+ ' Definizione della grid TypeGrd con la giusta altezza e numero di righe
+ Dim RowNum As Integer = TypeGrd.RowDefinitions.Count
+ If RowNum > 2 Then
+ For Index = RowNum - 1 To 2 Step -1
+ TypeGrd.RowDefinitions.RemoveAt(Index)
+ Next
+ LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ LeadOutTypeTxBl.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadOutTypeCmBx.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ TypeBrd.SetValue(Grid.RowProperty, 12)
+ TypeBrd.SetValue(Grid.RowSpanProperty, 6)
+ End If
LeadInTypeTxBl.Visibility = Windows.Visibility.Visible
LeadInTypeCmBx.Visibility = Windows.Visibility.Visible
ExtLinkTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -881,7 +920,7 @@ Public Class MachiningDbPageUC
ReturnPosTxBx.Visibility = Windows.Visibility.Hidden
OffsetGpBx.Visibility = Windows.Visibility.Hidden
' Definizione di una riga della tabella con la giusta altezza
- Dim RowNum As Integer = FeedGrd.RowDefinitions.Count
+ RowNum = FeedGrd.RowDefinitions.Count
If RowNum > 4 Then
For Index = RowNum - 1 To 4 Step -1
FeedGrd.RowDefinitions.RemoveAt(Index)
@@ -913,14 +952,14 @@ Public Class MachiningDbPageUC
BackFeedTxBx.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBl.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBx.Visibility = Windows.Visibility.Hidden
- ProbingBrd.Visibility = Windows.Visibility.Hidden
+ CornerGpBx.Visibility = Windows.Visibility.Hidden
+ ProbingGpBx.Visibility = Windows.Visibility.Hidden
ProbingTxBl.Visibility = Windows.Visibility.Hidden
ProbingChBx.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBx.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBx.Visibility = Windows.Visibility.Hidden
- CornTypeBrd.Visibility = Windows.Visibility.Hidden
ExtCornTypeTxBl.Visibility = Windows.Visibility.Hidden
ExtCornTypeCmBx.Visibility = Windows.Visibility.Hidden
IntCornTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -938,7 +977,14 @@ Public Class MachiningDbPageUC
LpTurnsTxBx.Visibility = Windows.Visibility.Hidden
HpTurnsTxBl.Visibility = Windows.Visibility.Hidden
HpTurnsTxBx.Visibility = Windows.Visibility.Hidden
- LiLoTangPerpBrd.Visibility = Windows.Visibility.Hidden
+ LiTangTxBl.Visibility = Windows.Visibility.Hidden
+ LiTangTxBx.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBx.Visibility = Windows.Visibility.Hidden
+ LoTangTxBl.Visibility = Windows.Visibility.Hidden
+ LoTangTxBx.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBx.Visibility = Windows.Visibility.Hidden
Case MCH_MY.DRILLING 'Parametri Foratura
SideAngleTxBl.Visibility = Windows.Visibility.Hidden
SideAngleTxBx.Visibility = Windows.Visibility.Hidden
@@ -1022,14 +1068,14 @@ Public Class MachiningDbPageUC
BackFeedTxBx.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBl.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBx.Visibility = Windows.Visibility.Hidden
- ProbingBrd.Visibility = Windows.Visibility.Hidden
+ CornerGpBx.Visibility = Windows.Visibility.Hidden
+ ProbingGpBx.Visibility = Windows.Visibility.Hidden
ProbingTxBl.Visibility = Windows.Visibility.Hidden
ProbingChBx.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBx.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBx.Visibility = Windows.Visibility.Hidden
- CornTypeBrd.Visibility = Windows.Visibility.Hidden
ExtCornTypeTxBl.Visibility = Windows.Visibility.Hidden
ExtCornTypeCmBx.Visibility = Windows.Visibility.Hidden
IntCornTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -1047,7 +1093,14 @@ Public Class MachiningDbPageUC
LpTurnsTxBx.Visibility = Windows.Visibility.Hidden
HpTurnsTxBl.Visibility = Windows.Visibility.Hidden
HpTurnsTxBx.Visibility = Windows.Visibility.Hidden
- LiLoTangPerpBrd.Visibility = Windows.Visibility.Hidden
+ LiTangTxBl.Visibility = Windows.Visibility.Hidden
+ LiTangTxBx.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBx.Visibility = Windows.Visibility.Hidden
+ LoTangTxBl.Visibility = Windows.Visibility.Hidden
+ LoTangTxBx.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBx.Visibility = Windows.Visibility.Hidden
Case MCH_MY.SAWROUGHING 'Parametri Sgrossatura con lama
SideAngleTxBl.Visibility = Windows.Visibility.Hidden
SideAngleTxBx.Visibility = Windows.Visibility.Hidden
@@ -1058,12 +1111,28 @@ Public Class MachiningDbPageUC
StepTypeTxBl.Visibility = Windows.Visibility.Visible
StepTypeCmBx.Visibility = Windows.Visibility.Visible
StepTypeCmBx.ItemsSource = RouFinStepType
+ SideBrd.SetValue(Grid.RowProperty, 9)
SideBrd.Visibility = Windows.Visibility.Visible
WorkSideTxBl.Visibility = Windows.Visibility.Hidden
WorkSideCmBx.Visibility = Windows.Visibility.Hidden
HeadSideTxBl.Visibility = Windows.Visibility.Visible
HeadSideCmBx.Visibility = Windows.Visibility.Visible
TypeBrd.Visibility = Windows.Visibility.Visible
+ ' Definizione della grid TypeGrd con la giusta altezza e numero di righe
+ Dim RowNum As Integer = TypeGrd.RowDefinitions.Count
+ If RowNum > 2 Then
+ For Index = RowNum - 1 To 2 Step -1
+ TypeGrd.RowDefinitions.RemoveAt(Index)
+ Next
+ LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ LeadOutTypeTxBl.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadOutTypeCmBx.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ TypeBrd.SetValue(Grid.RowProperty, 12)
+ TypeBrd.SetValue(Grid.RowSpanProperty, 6)
+ End If
LeadInTypeTxBl.Visibility = Windows.Visibility.Hidden
LeadInTypeCmBx.Visibility = Windows.Visibility.Hidden
ExtLinkTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -1118,7 +1187,7 @@ Public Class MachiningDbPageUC
LonOffsetTxBl.Visibility = Windows.Visibility.Visible
LonOffsetTxBx.Visibility = Windows.Visibility.Visible
' Definizione di una riga della tabella con la giusta altezza
- Dim RowNum As Integer = FeedGrd.RowDefinitions.Count
+ RowNum = FeedGrd.RowDefinitions.Count
If RowNum > 4 Then
For Index = RowNum - 1 To 4 Step -1
FeedGrd.RowDefinitions.RemoveAt(Index)
@@ -1163,14 +1232,14 @@ Public Class MachiningDbPageUC
End If
ForwardAngleTxBl.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBx.Visibility = Windows.Visibility.Hidden
- ProbingBrd.Visibility = Windows.Visibility.Hidden
+ CornerGpBx.Visibility = Windows.Visibility.Hidden
+ ProbingGpBx.Visibility = Windows.Visibility.Hidden
ProbingTxBl.Visibility = Windows.Visibility.Hidden
ProbingChBx.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBx.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBx.Visibility = Windows.Visibility.Hidden
- CornTypeBrd.Visibility = Windows.Visibility.Hidden
ExtCornTypeTxBl.Visibility = Windows.Visibility.Hidden
ExtCornTypeCmBx.Visibility = Windows.Visibility.Hidden
IntCornTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -1188,7 +1257,14 @@ Public Class MachiningDbPageUC
LpTurnsTxBx.Visibility = Windows.Visibility.Hidden
HpTurnsTxBl.Visibility = Windows.Visibility.Hidden
HpTurnsTxBx.Visibility = Windows.Visibility.Hidden
- LiLoTangPerpBrd.Visibility = Windows.Visibility.Hidden
+ LiTangTxBl.Visibility = Windows.Visibility.Hidden
+ LiTangTxBx.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBx.Visibility = Windows.Visibility.Hidden
+ LoTangTxBl.Visibility = Windows.Visibility.Hidden
+ LoTangTxBx.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBx.Visibility = Windows.Visibility.Hidden
Case MCH_MY.SAWFINISHING 'Parametri Finitura con lama
SideAngleTxBl.Visibility = Windows.Visibility.Hidden
SideAngleTxBx.Visibility = Windows.Visibility.Hidden
@@ -1199,12 +1275,28 @@ Public Class MachiningDbPageUC
StepTypeTxBl.Visibility = Windows.Visibility.Visible
StepTypeCmBx.Visibility = Windows.Visibility.Visible
StepTypeCmBx.ItemsSource = RouFinStepType
+ SideBrd.SetValue(Grid.RowProperty, 9)
SideBrd.Visibility = Windows.Visibility.Visible
WorkSideTxBl.Visibility = Windows.Visibility.Hidden
WorkSideCmBx.Visibility = Windows.Visibility.Hidden
HeadSideTxBl.Visibility = Windows.Visibility.Visible
HeadSideCmBx.Visibility = Windows.Visibility.Visible
TypeBrd.Visibility = Windows.Visibility.Visible
+ ' Definizione della grid TypeGrd con la giusta altezza e numero di righe
+ Dim RowNum As Integer = TypeGrd.RowDefinitions.Count
+ If RowNum > 2 Then
+ For Index = RowNum - 1 To 2 Step -1
+ TypeGrd.RowDefinitions.RemoveAt(Index)
+ Next
+ LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ LeadOutTypeTxBl.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadOutTypeCmBx.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ TypeBrd.SetValue(Grid.RowProperty, 12)
+ TypeBrd.SetValue(Grid.RowSpanProperty, 6)
+ End If
LeadInTypeTxBl.Visibility = Windows.Visibility.Hidden
LeadInTypeCmBx.Visibility = Windows.Visibility.Hidden
ExtLinkTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -1259,7 +1351,7 @@ Public Class MachiningDbPageUC
LonOffsetTxBl.Visibility = Windows.Visibility.Hidden
LonOffsetTxBx.Visibility = Windows.Visibility.Hidden
' Definizione di una riga della tabella con la giusta altezza
- Dim RowNum As Integer = FeedGrd.RowDefinitions.Count
+ RowNum = FeedGrd.RowDefinitions.Count
If RowNum > 4 Then
For Index = RowNum - 1 To 4 Step -1
FeedGrd.RowDefinitions.RemoveAt(Index)
@@ -1301,14 +1393,14 @@ Public Class MachiningDbPageUC
End If
ForwardAngleTxBl.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBx.Visibility = Windows.Visibility.Hidden
- ProbingBrd.Visibility = Windows.Visibility.Hidden
+ CornerGpBx.Visibility = Windows.Visibility.Hidden
+ ProbingGpBx.Visibility = Windows.Visibility.Hidden
ProbingTxBl.Visibility = Windows.Visibility.Hidden
ProbingChBx.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBx.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBx.Visibility = Windows.Visibility.Hidden
- CornTypeBrd.Visibility = Windows.Visibility.Hidden
ExtCornTypeTxBl.Visibility = Windows.Visibility.Hidden
ExtCornTypeCmBx.Visibility = Windows.Visibility.Hidden
IntCornTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -1326,7 +1418,14 @@ Public Class MachiningDbPageUC
LpTurnsTxBx.Visibility = Windows.Visibility.Hidden
HpTurnsTxBl.Visibility = Windows.Visibility.Hidden
HpTurnsTxBx.Visibility = Windows.Visibility.Hidden
- LiLoTangPerpBrd.Visibility = Windows.Visibility.Hidden
+ LiTangTxBl.Visibility = Windows.Visibility.Hidden
+ LiTangTxBx.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBx.Visibility = Windows.Visibility.Hidden
+ LoTangTxBl.Visibility = Windows.Visibility.Hidden
+ LoTangTxBx.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBx.Visibility = Windows.Visibility.Hidden
Case MCH_MY.POCKETING 'Parametri Svuotatura
SideAngleTxBl.Visibility = Windows.Visibility.Hidden
SideAngleTxBx.Visibility = Windows.Visibility.Hidden
@@ -1336,12 +1435,28 @@ Public Class MachiningDbPageUC
AcrossChBx.Visibility = Windows.Visibility.Hidden
StepTypeTxBl.Visibility = Windows.Visibility.Hidden
StepTypeCmBx.Visibility = Windows.Visibility.Hidden
+ SideBrd.SetValue(Grid.RowProperty, 9)
SideBrd.Visibility = Windows.Visibility.Visible
WorkSideTxBl.Visibility = Windows.Visibility.Visible
WorkSideCmBx.Visibility = Windows.Visibility.Visible
HeadSideTxBl.Visibility = Windows.Visibility.Hidden
HeadSideCmBx.Visibility = Windows.Visibility.Hidden
TypeBrd.Visibility = Windows.Visibility.Visible
+ ' Definizione della grid TypeGrd con la giusta altezza e numero di righe
+ Dim RowNum As Integer = TypeGrd.RowDefinitions.Count
+ If RowNum > 2 Then
+ For Index = RowNum - 1 To 2 Step -1
+ TypeGrd.RowDefinitions.RemoveAt(Index)
+ Next
+ LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ LeadOutTypeTxBl.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadOutTypeCmBx.SetValue(Grid.RowProperty, 1)
+ LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ TypeBrd.SetValue(Grid.RowProperty, 12)
+ TypeBrd.SetValue(Grid.RowSpanProperty, 6)
+ End If
LeadInTypeTxBl.Visibility = Windows.Visibility.Visible
LeadInTypeCmBx.Visibility = Windows.Visibility.Visible
ExtLinkTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -1406,7 +1521,7 @@ Public Class MachiningDbPageUC
ReturnPosTxBx.Visibility = Windows.Visibility.Hidden
OffsetGpBx.Visibility = Windows.Visibility.Hidden
' Definizione di una riga della tabella con la giusta altezza
- Dim RowNum As Integer = FeedGrd.RowDefinitions.Count
+ RowNum = FeedGrd.RowDefinitions.Count
If RowNum > 4 Then
For Index = RowNum - 1 To 4 Step -1
FeedGrd.RowDefinitions.RemoveAt(Index)
@@ -1438,14 +1553,14 @@ Public Class MachiningDbPageUC
BackFeedTxBx.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBl.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBx.Visibility = Windows.Visibility.Hidden
- ProbingBrd.Visibility = Windows.Visibility.Hidden
+ CornerGpBx.Visibility = Windows.Visibility.Hidden
+ ProbingGpBx.Visibility = Windows.Visibility.Hidden
ProbingTxBl.Visibility = Windows.Visibility.Hidden
ProbingChBx.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBx.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBx.Visibility = Windows.Visibility.Hidden
- CornTypeBrd.Visibility = Windows.Visibility.Hidden
ExtCornTypeTxBl.Visibility = Windows.Visibility.Hidden
ExtCornTypeCmBx.Visibility = Windows.Visibility.Hidden
IntCornTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -1463,7 +1578,14 @@ Public Class MachiningDbPageUC
LpTurnsTxBx.Visibility = Windows.Visibility.Hidden
HpTurnsTxBl.Visibility = Windows.Visibility.Hidden
HpTurnsTxBx.Visibility = Windows.Visibility.Hidden
- LiLoTangPerpBrd.Visibility = Windows.Visibility.Hidden
+ LiTangTxBl.Visibility = Windows.Visibility.Hidden
+ LiTangTxBx.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LiPerpTxBx.Visibility = Windows.Visibility.Hidden
+ LoTangTxBl.Visibility = Windows.Visibility.Hidden
+ LoTangTxBx.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBl.Visibility = Windows.Visibility.Hidden
+ LoPerpTxBx.Visibility = Windows.Visibility.Hidden
Case MCH_MY.WATERJETTING 'Parametri WaterJetting
DepthTxBl.Visibility = Windows.Visibility.Hidden
DepthTxBx.Visibility = Windows.Visibility.Hidden
@@ -1475,11 +1597,30 @@ Public Class MachiningDbPageUC
AcrossChBx.Visibility = Windows.Visibility.Hidden
StepTypeTxBl.Visibility = Windows.Visibility.Hidden
StepTypeCmBx.Visibility = Windows.Visibility.Hidden
+ SideBrd.SetValue(Grid.RowProperty, 3)
SideBrd.Visibility = Windows.Visibility.Visible
WorkSideTxBl.Visibility = Windows.Visibility.Visible
WorkSideCmBx.Visibility = Windows.Visibility.Visible
HeadSideTxBl.Visibility = Windows.Visibility.Hidden
HeadSideCmBx.Visibility = Windows.Visibility.Hidden
+ ' Definizione della grid TypeGrd con la giusta altezza e numero di righe
+ Dim RowNum As Integer = TypeGrd.RowDefinitions.Count
+ If RowNum < 3 Then
+ For Index = RowNum To 2
+ Dim Row As New RowDefinition
+ Row.Height = New GridLength(1, GridUnitType.Star)
+ ' Row.SetValue(Grid.RowSpanProperty, 3)
+ TypeGrd.RowDefinitions.Add(Row)
+ Next
+ LeadInTypeTxBl.SetValue(Grid.ColumnProperty, 0)
+ LeadInTypeCmBx.SetValue(Grid.ColumnProperty, 1)
+ LeadOutTypeTxBl.SetValue(Grid.RowProperty, 0)
+ LeadOutTypeTxBl.SetValue(Grid.ColumnProperty, 2)
+ LeadOutTypeCmBx.SetValue(Grid.RowProperty, 0)
+ LeadOutTypeCmBx.SetValue(Grid.ColumnProperty, 3)
+ TypeBrd.SetValue(Grid.RowProperty, 15)
+ TypeBrd.SetValue(Grid.RowSpanProperty, 9)
+ End If
TypeBrd.Visibility = Windows.Visibility.Visible
LeadInTypeTxBl.Visibility = Windows.Visibility.Visible
LeadInTypeCmBx.Visibility = Windows.Visibility.Visible
@@ -1547,7 +1688,7 @@ Public Class MachiningDbPageUC
LonOffsetTxBl.Visibility = Windows.Visibility.Hidden
LonOffsetTxBx.Visibility = Windows.Visibility.Hidden
' Definizione di una riga della tabella con la giusta altezza
- Dim RowNum As Integer = FeedGrd.RowDefinitions.Count
+ RowNum = FeedGrd.RowDefinitions.Count
If RowNum > 2 Then
For Index = RowNum - 1 To 2 Step -1
FeedGrd.RowDefinitions.RemoveAt(Index)
@@ -1576,14 +1717,14 @@ Public Class MachiningDbPageUC
EndFeedTxBx.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBl.Visibility = Windows.Visibility.Visible
ForwardAngleTxBx.Visibility = Windows.Visibility.Visible
- ProbingBrd.Visibility = Windows.Visibility.Visible
+ CornerGpBx.Visibility = Windows.Visibility.Visible
+ ProbingGpBx.Visibility = Windows.Visibility.Visible
ProbingTxBl.Visibility = Windows.Visibility.Visible
ProbingChBx.Visibility = Windows.Visibility.Visible
ProbingMinDistTxBl.Visibility = Windows.Visibility.Visible
ProbingMinDistTxBx.Visibility = Windows.Visibility.Visible
ProbingMaxDistTxBl.Visibility = Windows.Visibility.Visible
ProbingMaxDistTxBx.Visibility = Windows.Visibility.Visible
- CornTypeBrd.Visibility = Windows.Visibility.Visible
ExtCornTypeTxBl.Visibility = Windows.Visibility.Visible
ExtCornTypeCmBx.Visibility = Windows.Visibility.Visible
IntCornTypeTxBl.Visibility = Windows.Visibility.Visible
@@ -1601,7 +1742,6 @@ Public Class MachiningDbPageUC
LpTurnsTxBx.Visibility = Windows.Visibility.Visible
HpTurnsTxBl.Visibility = Windows.Visibility.Visible
HpTurnsTxBx.Visibility = Windows.Visibility.Visible
- LiLoTangPerpBrd.Visibility = Windows.Visibility.Visible
LiTangTxBl.Visibility = Windows.Visibility.Visible
LiTangTxBx.Visibility = Windows.Visibility.Visible
LiPerpTxBl.Visibility = Windows.Visibility.Visible
@@ -1660,14 +1800,14 @@ Public Class MachiningDbPageUC
'Parametri WaterJetting
ForwardAngleTxBl.Visibility = Windows.Visibility.Hidden
ForwardAngleTxBx.Visibility = Windows.Visibility.Hidden
- ProbingBrd.Visibility = Windows.Visibility.Hidden
+ CornerGpBx.Visibility = Windows.Visibility.Hidden
+ ProbingGpBx.Visibility = Windows.Visibility.Hidden
ProbingTxBl.Visibility = Windows.Visibility.Hidden
ProbingChBx.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMinDistTxBx.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBl.Visibility = Windows.Visibility.Hidden
ProbingMaxDistTxBx.Visibility = Windows.Visibility.Hidden
- CornTypeBrd.Visibility = Windows.Visibility.Hidden
ExtCornTypeTxBl.Visibility = Windows.Visibility.Hidden
ExtCornTypeCmBx.Visibility = Windows.Visibility.Hidden
IntCornTypeTxBl.Visibility = Windows.Visibility.Hidden
@@ -1685,7 +1825,6 @@ Public Class MachiningDbPageUC
LpTurnsTxBx.Visibility = Windows.Visibility.Hidden
HpTurnsTxBl.Visibility = Windows.Visibility.Hidden
HpTurnsTxBx.Visibility = Windows.Visibility.Hidden
- LiLoTangPerpBrd.Visibility = Windows.Visibility.Hidden
End Sub
Private Sub MachiningTreeView_PreviewMouseUp(sender As Object, e As MouseButtonEventArgs) Handles MachiningTreeView.PreviewMouseUp
@@ -1845,15 +1984,9 @@ Public Class MachiningDbPageUC
Case MCH_MY.MILLING
LeadInTypeCmBx.ItemsSource = New ObservableCollection(Of IdNameStruct)(
{New IdNameStruct(MCH_MIL_LI.NONE, EgtMsg(MSG_COMBOBOXPARAM + 43)),
- New IdNameStruct(MCH_MIL_LI.LINEAR, EgtMsg(MSG_COMBOBOXPARAM + 46)),
- New IdNameStruct(MCH_MIL_LI.TANGENT, EgtMsg(MSG_COMBOBOXPARAM + 47)),
- New IdNameStruct(MCH_MIL_LI.GLIDE, EgtMsg(MSG_COMBOBOXPARAM + 48)),
- New IdNameStruct(MCH_MIL_LI.ZIGZAG, EgtMsg(MSG_COMBOBOXPARAM + 38)),
- New IdNameStruct(MCH_MIL_LI.HELIX, EgtMsg(MSG_COMBOBOXPARAM + 49))})
+ New IdNameStruct(MCH_MIL_LI.GLIDE, EgtMsg(MSG_COMBOBOXPARAM + 48))})
LeadOutTypeCmBx.ItemsSource = New ObservableCollection(Of IdNameStruct)(
{New IdNameStruct(MCH_MIL_LO.NONE, EgtMsg(MSG_COMBOBOXPARAM + 43)),
- New IdNameStruct(MCH_MIL_LO.LINEAR, EgtMsg(MSG_COMBOBOXPARAM + 46)),
- New IdNameStruct(MCH_MIL_LO.TANGENT, EgtMsg(MSG_COMBOBOXPARAM + 47)),
New IdNameStruct(MCH_MIL_LO.GLIDE, EgtMsg(MSG_COMBOBOXPARAM + 48)),
New IdNameStruct(MCH_MIL_LO.AS_LI, EgtMsg(MSG_COMBOBOXPARAM + 50))})
Case MCH_MY.POCKETING
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 9680976..dcd8994 100644
--- a/My Project/AssemblyInfo.vb
+++ b/My Project/AssemblyInfo.vb
@@ -62,5 +62,5 @@ Imports System.Windows
' by using the '*' as shown below:
'
-
-
+
+