diff --git a/DirectCutPageUC.xaml b/DirectCutPageUC.xaml
index cdbd4f5..bb53b2f 100644
--- a/DirectCutPageUC.xaml
+++ b/DirectCutPageUC.xaml
@@ -71,9 +71,6 @@
-
-
diff --git a/MainComponentPageUC.xaml b/MainComponentPageUC.xaml
index dda8507..077dfee 100644
--- a/MainComponentPageUC.xaml
+++ b/MainComponentPageUC.xaml
@@ -34,7 +34,8 @@
-
+
@@ -45,7 +46,8 @@
-
+
@@ -56,7 +58,8 @@
-
+
@@ -67,7 +70,8 @@
-
+
@@ -78,7 +82,8 @@
-
+
@@ -89,7 +94,8 @@
-
+
@@ -100,7 +106,8 @@
-
+
@@ -111,7 +118,8 @@
-
+
@@ -122,7 +130,8 @@
-
+
diff --git a/MainComponentPageUC.xaml.vb b/MainComponentPageUC.xaml.vb
index c52b8c9..a5bd552 100644
--- a/MainComponentPageUC.xaml.vb
+++ b/MainComponentPageUC.xaml.vb
@@ -60,7 +60,7 @@ Public Class MainComponentPageUC
If sCompoName.Length > 15 Then
sCompoName = sCompoName.Substring(0, 15)
End If
- GetLabel(index).Content = sCompoName
+ GetLabel(index).Text = sCompoName
'Se ci sono sia testo che immagine imposto un margine di 10
CustomThickness.Right = 10
GetImage(index).Margin = CustomThickness
@@ -69,7 +69,7 @@ Public Class MainComponentPageUC
If sCompoName.Length > 20 Then
sCompoName = sCompoName.Substring(0, 20)
End If
- GetLabel(index).Content = sCompoName
+ GetLabel(index).Text = sCompoName
End If
Else
'Se non c'è testo azzero la distanza tra testo e immagine
@@ -108,7 +108,7 @@ Public Class MainComponentPageUC
End Select
End Function
- Private Function GetLabel(ByVal nInd As Integer) As Label
+ Private Function GetLabel(ByVal nInd As Integer) As TextBlock
Select Case nInd
Case 1
Return LabelCompo1
diff --git a/OmagCUTDictionary.xaml b/OmagCUTDictionary.xaml
index 59de373..982ead6 100644
--- a/OmagCUTDictionary.xaml
+++ b/OmagCUTDictionary.xaml
@@ -306,7 +306,7 @@
-
+
diff --git a/SecondaryComponentPageUC.xaml b/SecondaryComponentPageUC.xaml
index fddae60..b5a425c 100644
--- a/SecondaryComponentPageUC.xaml
+++ b/SecondaryComponentPageUC.xaml
@@ -34,7 +34,8 @@
-
+
@@ -44,8 +45,10 @@
+
-
+
@@ -56,7 +59,8 @@
-
+
@@ -67,7 +71,8 @@
-
+
@@ -78,7 +83,8 @@
-
+
@@ -89,7 +95,8 @@
-
+
@@ -100,7 +107,8 @@
-
+
@@ -111,7 +119,8 @@
-
+
@@ -122,7 +131,8 @@
-
+
diff --git a/SecondaryComponentPageUC.xaml.vb b/SecondaryComponentPageUC.xaml.vb
index 9dec091..39d6928 100644
--- a/SecondaryComponentPageUC.xaml.vb
+++ b/SecondaryComponentPageUC.xaml.vb
@@ -34,8 +34,8 @@ Public Class SecondaryComponentPageUC
If sCompoImage.Length <> 0 Then
Try
sCompoImageSource = ImageConverter.ConvertFromString(m_MainWindow.GetResourcesDir() & "\" & sCompoImage)
- GetImage(index).Height = 70
- GetImage(index).Width = 70
+ GetImage(index).Height = 65
+ GetImage(index).Width = 65
GetImage(index).Source = sCompoImageSource
Catch ex As Exception
EgtOutLog("Error loading image " & sCompoImage)
@@ -62,16 +62,16 @@ Public Class SecondaryComponentPageUC
If sCompoName.Length > 15 Then
sCompoName = sCompoName.Substring(0, 15)
End If
- GetLabel(index).Content = sCompoName
+ GetLabel(index).Text = sCompoName
'Se ci sono sia testo che immagine imposto un margine di 10
CustomThickness.Right = 10
GetImage(index).Margin = CustomThickness
Else
'se l'immagine non c'è e il testo è maggiore di 20 lo taglio
- If sCompoName.Length > 20 Then
- sCompoName = sCompoName.Substring(0, 20)
+ If sCompoName.Length > 22 Then
+ sCompoName = sCompoName.Substring(0, 22)
End If
- GetLabel(index).Content = sCompoName
+ GetLabel(index).Text = sCompoName
End If
Else
'Se non c'è testo azzero la distanza tra testo e immagine
@@ -106,28 +106,28 @@ Public Class SecondaryComponentPageUC
End Select
End Function
- Private Function GetLabel(ByVal nInd As Integer) As Label
- Select Case nInd
- Case 1
- Return LabelCompo1
- Case 2
- Return LabelCompo2
- Case 3
- Return LabelCompo3
- Case 4
- Return LabelCompo4
- Case 5
- Return LabelCompo5
- Case 6
- Return LabelCompo6
- Case 7
- Return LabelCompo7
- Case 8
- Return LabelCompo8
- Case Else
- Return LabelCompo9
- End Select
- End Function
+ Private Function GetLabel(ByVal nInd As Integer) As TextBlock
+ Select Case nInd
+ Case 1
+ Return LabelCompo1
+ Case 2
+ Return LabelCompo2
+ Case 3
+ Return LabelCompo3
+ Case 4
+ Return LabelCompo4
+ Case 5
+ Return LabelCompo5
+ Case 6
+ Return LabelCompo6
+ Case 7
+ Return LabelCompo7
+ Case 8
+ Return LabelCompo8
+ Case Else
+ Return LabelCompo9
+ End Select
+ End Function
Private Function GetImage(ByVal nInd As Integer) As Image
Select Case nInd
@@ -177,12 +177,12 @@ Public Class SecondaryComponentPageUC
Private Sub ClearButton(nCount As Integer)
For index As Integer = 1 To nCount + 1
- GetLabel(index).Content = String.Empty
+ GetLabel(index).Text = String.Empty
GetImage(index).Source = Nothing
GetButton(index).Visibility = Windows.Visibility.Visible
Next
For index As Integer = nCount + 1 To 9
- GetLabel(index).Content = String.Empty
+ GetLabel(index).Text = String.Empty
GetImage(index).Source = Nothing
GetButton(index).Visibility = Windows.Visibility.Hidden
Next