-aggiornato messaggi

2025-06-16 08:33:33 +02:00
parent dca88a1aae
commit 0d81ee5974
11 changed files with 185 additions and 192 deletions
@@ -146,7 +146,7 @@ Public Class CompoWindowVM

   Friend Function MakePreview(ByRef sMsg As String) As Boolean
      If Not EgtLuaExecLine(LUA_CMP_DRAW & "(true)") Then
-         sMsg = "Error in component execution"
+         sMsg = EgtMsg(91689)   ' Error in component execution
         m_bDrawOk = False
      Else
         EgtLuaGetGlobStringVar(LUA_CMP_VARS & ".MSG", sMsg)
@@ -1,7 +1,7 @@
 <Window x:Class="VeinMatchingWindow"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   Height="500" Width="500" ShowInTaskbar="False" Initialized="Window_Initialized" MinWidth="300" MinHeight="300">
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        Height="500" Width="500" ShowInTaskbar="False" Initialized="Window_Initialized" MinWidth="300" MinHeight="300">

   <Grid Name="VeinMatchingGrid" Background="{StaticResource Omag_Gray}">
      <Grid.ColumnDefinitions>
@@ -11,21 +11,16 @@

      <StackPanel Orientation="Vertical">
         <ToggleButton Name="ShowTextBtn" Height="40" Width="80"
-                       Margin="0,5,0,0"
-                       Content="ShowText"/>
+                       Margin="0,5,0,0"/>
         <ToggleButton Name="EditBtn" Height="40" Width="80"
-                       Margin="0,5,0,0"
-                       Content="Edit"/>
+                       Margin="0,5,0,0"/>
         <ToggleButton Name="VerifyBtn" Height="40" Width="80"
-                       Margin="0,5,0,0"
-                       Content="Verify"/>
+                       Margin="0,5,0,0"/>
         <ToggleButton Name="MagneticBtn" Height="40" Width="80"
                       Visibility="Collapsed"
-                       Margin="0,5,0,0"
-                       Content="Magnetic"/>
+                       Margin="0,5,0,0"/>
         <Button Name="ExportBtn" Height="40" Width="80"
-                 Margin="0,5,0,0"
-                 Content="Export"/>
+                 Margin="0,5,0,0"/>
         <Button Name="AssemblyBtn" Height="40" Width="80"
                 Margin="0,5,0,0"
                 Content="3D"/>
@@ -1,7 +1,6 @@
 Imports System.IO
 Imports System.Windows.Interop
 Imports System.Collections.ObjectModel
-Imports System.Runtime.InteropServices
 Imports EgtUILib
 Imports EgtWPFLib5
 Imports OmagOFFICE.VeinMatchingWindow
@@ -51,11 +50,11 @@ Public Class VeinMatchingWindow
      ' Per non farla visualizzare alla creazione
      Me.Left = 32000
      ' Assegno messaggi
-      ExportBtn.Content = EgtMsg(MSG_VEINMATCHING + 1)        ' Esporta
-      ShowTextBtn.Content = EgtMsg(MSG_VEINMATCHING + 2)      ' Mostra Info
-      EditBtn.Content = EgtMsg(MSG_VEINMATCHING + 3)          ' Modifica
-      VerifyBtn.Content = EgtMsg(MSG_VEINMATCHING + 4)        ' Verifica
-      MagneticBtn.Content = EgtMsg(MSG_VEINMATCHING + 5)      ' Magnetico
+      ExportBtn.Content = EgtMsg(91601)        ' Esporta
+      ShowTextBtn.Content = EgtMsg(91609)      ' Mostra Info
+      EditBtn.Content = EgtMsg(91610)          ' Modifica
+      VerifyBtn.Content = EgtMsg(91611)        ' Verifica
+      MagneticBtn.Content = EgtMsg(91612)      ' Magnetico
   End Sub

   Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
@@ -78,7 +78,7 @@ Public Class PrintPanelVM
            tmpImg.Stretch = Stretch.Uniform
            tmpImg.EndInit()
            ' eseguo la stampa
-            printDlg.PrintVisual(tmpImg, "Parts Layout")
+            printDlg.PrintVisual(tmpImg, EgtMsg(91688))    ' Parts Layout
         Catch
            ' Rrror in executing print
            EgtOutLog(EgtMsg(50182))
@@ -576,13 +576,13 @@ Public Class MachOptionWindowVM

   Public ReadOnly Property OkMsg As String
      Get
-         Return "Ok"
+         Return EgtMsg(91651) ' Ok
      End Get
   End Property

   Public ReadOnly Property CancelMsg As String
      Get
-         Return "Cancel"
+         Return EgtMsg(91652) ' Cancel
      End Get
   End Property

@@ -351,11 +351,11 @@ Public Class MyMachGroup
         If Not EgtGetInfo(Id, INFO_SLABHEIGHT, dSlabHeight) Then dSlabHeight = 0
         Dim sCurrSawing As String = String.Empty
         If Not EgtGetInfo(m_nOpersGroupId, INFO_CURRSAWING, sCurrSawing) Then sCurrSawing = "---"
-         Return "Name: " & sSlabName & Environment.NewLine &
-                "Material: " & sMaterial & Environment.NewLine &
-                "Thickness: " & LenToString(dSlabHeight, 3) & Environment.NewLine &
-                "Sawing: " & sCurrSawing & Environment.NewLine &
-                "Machine: " & Machine
+         Return EgtMsg(91683) & sSlabName & Environment.NewLine &                   ' Name: 
+                EgtMsg(91684) & sMaterial & Environment.NewLine &                   ' Material: 
+                EgtMsg(91685) & LenToString(dSlabHeight, 3) & Environment.NewLine & ' Thickness: 
+                EgtMsg(91686) & sCurrSawing & Environment.NewLine &                 ' Sawing: 
+                EgtMsg(91687) & Machine                                             ' Machine: 
      End Get
   End Property

@@ -1,165 +1,165 @@
 <EgtWPFLib5:EgtCustomWindow x:Class="MyToolDbWindowV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:sys="clr-namespace:System;assembly=mscorlib"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
-   Title="{Binding Title}"
-   Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
-   WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
-   IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False"
-   CloseCommand="{Binding CloseToolsDbCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}"
-   CloseCommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
-   Height="900">
-    <EgtWPFLib5:EgtCustomWindow.InputBindings>
-        <KeyBinding Key="Escape" Command="{Binding ReloadToolCommand}"
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:sys="clr-namespace:System;assembly=mscorlib"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding Title}"
+                            Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
+                            IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False"
+                            CloseCommand="{Binding CloseToolsDbCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}"
+                            CloseCommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
+                            Height="900">
+   <EgtWPFLib5:EgtCustomWindow.InputBindings>
+      <KeyBinding Key="Escape" Command="{Binding ReloadToolCommand}"
         CommandParameter="{Binding Path=SelectedItem,ElementName=ToolsTreeView}"/>
-    </EgtWPFLib5:EgtCustomWindow.InputBindings>
+   </EgtWPFLib5:EgtCustomWindow.InputBindings>

-    <EgtWPFLib5:EgtCustomWindow.Resources>
-        <!--<EgtWPFLib5:ToolParamVisibilityConverter x:Key="ToolParamVisibilityConverter"/>-->
-        <EgtWPFLib5:ToolDrawUUIDConverter x:Key="ToolDrawUUIDConverter"/>
-        <EgtWPFLib5:ErrorVisibilityConverter x:Key="ErrorVisibilityConverter"/>
-        <sys:Int32 x:Key="Corr">0</sys:Int32>
-        <sys:Int32 x:Key="ExitPar">1</sys:Int32>
-        <sys:Int32 x:Key="Coolant">2</sys:Int32>
-        <sys:Int32 x:Key="CornRad">3</sys:Int32>
-        <sys:Int32 x:Key="Diam">4</sys:Int32>
-        <sys:Int32 x:Key="TotDiam">5</sys:Int32>
-        <sys:Int32 x:Key="Feed">6</sys:Int32>
-        <sys:Int32 x:Key="EndFeed">7</sys:Int32>
-        <sys:Int32 x:Key="StartFeed">8</sys:Int32>
-        <sys:Int32 x:Key="TipFeed">9</sys:Int32>
-        <sys:Int32 x:Key="Len">10</sys:Int32>
-        <sys:Int32 x:Key="TotLen">11</sys:Int32>
-        <sys:Int32 x:Key="MaxMat">12</sys:Int32>
-        <sys:Int32 x:Key="LonOffset">13</sys:Int32>
-        <sys:Int32 x:Key="RadOffset">14</sys:Int32>
-        <sys:Int32 x:Key="Speed">15</sys:Int32>
-        <sys:Int32 x:Key="SideAng">16</sys:Int32>
-        <sys:Int32 x:Key="MaxSpeed">17</sys:Int32>
-        <sys:Int32 x:Key="Thick">18</sys:Int32>
-        <sys:Int32 x:Key="MaxAbsorption">19</sys:Int32>
-        <sys:Int32 x:Key="MinFeed">20</sys:Int32>
-        <sys:Int32 x:Key="Draw">21</sys:Int32>
-        <sys:Int32 x:Key="Head">22</sys:Int32>
-        <sys:Int32 x:Key="NamePar">23</sys:Int32>
-        <sys:Int32 x:Key="UserNotes">24</sys:Int32>
-        <sys:Int32 x:Key="TcPos">25</sys:Int32>
-    </EgtWPFLib5:EgtCustomWindow.Resources>
+   <EgtWPFLib5:EgtCustomWindow.Resources>
+      <!--<EgtWPFLib5:ToolParamVisibilityConverter x:Key="ToolParamVisibilityConverter"/>-->
+      <EgtWPFLib5:ToolDrawUUIDConverter x:Key="ToolDrawUUIDConverter"/>
+      <EgtWPFLib5:ErrorVisibilityConverter x:Key="ErrorVisibilityConverter"/>
+      <sys:Int32 x:Key="Corr">0</sys:Int32>
+      <sys:Int32 x:Key="ExitPar">1</sys:Int32>
+      <sys:Int32 x:Key="Coolant">2</sys:Int32>
+      <sys:Int32 x:Key="CornRad">3</sys:Int32>
+      <sys:Int32 x:Key="Diam">4</sys:Int32>
+      <sys:Int32 x:Key="TotDiam">5</sys:Int32>
+      <sys:Int32 x:Key="Feed">6</sys:Int32>
+      <sys:Int32 x:Key="EndFeed">7</sys:Int32>
+      <sys:Int32 x:Key="StartFeed">8</sys:Int32>
+      <sys:Int32 x:Key="TipFeed">9</sys:Int32>
+      <sys:Int32 x:Key="Len">10</sys:Int32>
+      <sys:Int32 x:Key="TotLen">11</sys:Int32>
+      <sys:Int32 x:Key="MaxMat">12</sys:Int32>
+      <sys:Int32 x:Key="LonOffset">13</sys:Int32>
+      <sys:Int32 x:Key="RadOffset">14</sys:Int32>
+      <sys:Int32 x:Key="Speed">15</sys:Int32>
+      <sys:Int32 x:Key="SideAng">16</sys:Int32>
+      <sys:Int32 x:Key="MaxSpeed">17</sys:Int32>
+      <sys:Int32 x:Key="Thick">18</sys:Int32>
+      <sys:Int32 x:Key="MaxAbsorption">19</sys:Int32>
+      <sys:Int32 x:Key="MinFeed">20</sys:Int32>
+      <sys:Int32 x:Key="Draw">21</sys:Int32>
+      <sys:Int32 x:Key="Head">22</sys:Int32>
+      <sys:Int32 x:Key="NamePar">23</sys:Int32>
+      <sys:Int32 x:Key="UserNotes">24</sys:Int32>
+      <sys:Int32 x:Key="TcPos">25</sys:Int32>
+   </EgtWPFLib5:EgtCustomWindow.Resources>

-    <Grid Background="Transparent">
-        <Grid.ColumnDefinitions>
-            <ColumnDefinition Width="0.95*"/>
-            <ColumnDefinition Width="2*"/>
-            <ColumnDefinition Width="1*"/>
-        </Grid.ColumnDefinitions>
+   <Grid Background="Transparent">
+      <Grid.ColumnDefinitions>
+         <ColumnDefinition Width="0.95*"/>
+         <ColumnDefinition Width="2*"/>
+         <ColumnDefinition Width="1*"/>
+      </Grid.ColumnDefinitions>

-        <Grid Background="Transparent">
-            <Grid.RowDefinitions>
-                <RowDefinition Height="0.75*"/>
-                <RowDefinition Height="12*"/>
-            </Grid.RowDefinitions>
+      <Grid Background="Transparent">
+         <Grid.RowDefinitions>
+            <RowDefinition Height="0.75*"/>
+            <RowDefinition Height="12*"/>
+         </Grid.RowDefinitions>

-            <UniformGrid Grid.Row="0" Columns="8">
-                <Button ToolTip="New" Command="{Binding NewCommand}"
-                CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
-                IsEnabled="{Binding IsEnabledNewBtn, Mode=OneWay}"
-                Style = "{DynamicResource MachiningDB_Button}">
-                    <Image Source="/Resources/TopCommandBar/New.png" Stretch="Uniform"/>
-                </Button>
-                <Button ToolTip="Save" Command="{Binding SaveCommand}"
-                CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
-                IsEnabled="{Binding IsEnabledSaveBtn, Mode=OneWay}"
-                Style = "{DynamicResource MachiningDB_Button}">
-                    <Image Source="/Resources/TopCommandBar/Save.png" Stretch="Uniform"/>
-                </Button>
-                <Button ToolTip="Remove" Command="{Binding RemoveCommand}"
-                CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
-                IsEnabled="{Binding IsEnabledRemoveBtn, Mode=OneWay}"
-                Style = "{DynamicResource MachiningDB_Button}">
-                    <Image Source="/Resources/TopCommandBar/Remove.png" Stretch="Uniform"/>
-                </Button>
+         <UniformGrid Grid.Row="0" Columns="8">
+            <Button ToolTip="New" Command="{Binding NewCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
+                    IsEnabled="{Binding IsEnabledNewBtn, Mode=OneWay}"
+                    Style = "{DynamicResource MachiningDB_Button}">
+               <Image Source="/Resources/TopCommandBar/New.png" Stretch="Uniform"/>
+            </Button>
+            <Button ToolTip="Save" Command="{Binding SaveCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
+                    IsEnabled="{Binding IsEnabledSaveBtn, Mode=OneWay}"
+                    Style = "{DynamicResource MachiningDB_Button}">
+               <Image Source="/Resources/TopCommandBar/Save.png" Stretch="Uniform"/>
+            </Button>
+            <Button ToolTip="Remove" Command="{Binding RemoveCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=ToolsTreeView}"
+                    IsEnabled="{Binding IsEnabledRemoveBtn, Mode=OneWay}"
+                    Style = "{DynamicResource MachiningDB_Button}">
+               <Image Source="/Resources/TopCommandBar/Remove.png" Stretch="Uniform"/>
+            </Button>

-                <Button ToolTip="Import" Command="{Binding ImportCommand}"
-                CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
-                IsEnabled="{Binding IsEnabledNewBtn, Mode=OneWay}"
-                Style = "{DynamicResource MachiningDB_Button}">
-                    <Image Source="/Resources/TopCommandBar/Import.png" Stretch="Uniform"/>
-                </Button>
-                <Button ToolTip="Export" Command="{Binding ExportCommand}"
-                CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
-                IsEnabled="{Binding IsEnabledSaveBtn, Mode=OneWay}"
-                Style = "{DynamicResource MachiningDB_Button}">
-                    <Image Source="/Resources/TopCommandBar/Export_1.png" Stretch="Uniform"/>
-                </Button>
-                <Button ToolTip="Reset" Command="{Binding ReloadToolCommand}"
-                CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
-                IsEnabled="{Binding IsEnabledRemoveBtn, Mode=OneWay}"
-                Style = "{DynamicResource MachiningDB_Button}">
-                    <Image Source="/Resources/TopCommandBar/Reset.png" Stretch="Uniform"/>
-                </Button>
-            </UniformGrid>
+            <Button ToolTip="Import" Command="{Binding ImportCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
+                    IsEnabled="{Binding IsEnabledNewBtn, Mode=OneWay}"
+                    Style = "{DynamicResource MachiningDB_Button}">
+               <Image Source="/Resources/TopCommandBar/Import.png" Stretch="Uniform"/>
+            </Button>
+            <Button ToolTip="Export" Command="{Binding ExportCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
+                    IsEnabled="{Binding IsEnabledSaveBtn, Mode=OneWay}"
+                    Style = "{DynamicResource MachiningDB_Button}">
+               <Image Source="/Resources/TopCommandBar/Export_1.png" Stretch="Uniform"/>
+            </Button>
+            <Button ToolTip="Reset" Command="{Binding ReloadToolCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
+                    IsEnabled="{Binding IsEnabledRemoveBtn, Mode=OneWay}"
+                    Style = "{DynamicResource MachiningDB_Button}">
+               <Image Source="/Resources/TopCommandBar/Reset.png" Stretch="Uniform"/>
+            </Button>
+         </UniformGrid>

-            <!--Elenco degli utensili-->
-            <TreeView Name="ToolsTreeView" Grid.Row="1"
-                      Background="Transparent" BorderThickness="0"
-                      ItemsSource="{Binding ToolsList}">
-                <TreeView.ItemContainerStyle>
+         <!--Elenco degli utensili-->
+         <TreeView Name="ToolsTreeView" Grid.Row="1"
+                   Background="Transparent" BorderThickness="0"
+                   ItemsSource="{Binding ToolsList}">
+            <TreeView.ItemContainerStyle>
               <Style TargetType="{x:Type TreeViewItem}" BasedOn="{StaticResource Db_TreeViewItem}">
-                        <Setter Property="FontSize" Value="10" />
-                        <Setter Property="Foreground" Value="{StaticResource Omag_White}" />
-                        <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay}" />
-                        <Setter Property="IsExpanded" Value="{Binding IsExpanded, Mode=TwoWay}" />
-                        <Setter Property="IsEnabled" Value="{Binding IsEnabled, Mode=TwoWay}" />
-                    </Style>
-                </TreeView.ItemContainerStyle>
+                  <Setter Property="FontSize" Value="10" />
+                  <Setter Property="Foreground" Value="{StaticResource Omag_White}" />
+                  <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay}" />
+                  <Setter Property="IsExpanded" Value="{Binding IsExpanded, Mode=TwoWay}" />
+                  <Setter Property="IsEnabled" Value="{Binding IsEnabled, Mode=TwoWay}" />
+               </Style>
+            </TreeView.ItemContainerStyle>

-                <TreeView.Resources>
-                    <HierarchicalDataTemplate DataType="{x:Type EgtWPFLib5:FamilyToolTreeViewItem}" ItemsSource="{Binding Items}">
+            <TreeView.Resources>
+               <HierarchicalDataTemplate DataType="{x:Type EgtWPFLib5:FamilyToolTreeViewItem}" ItemsSource="{Binding Items}">

-                        <Grid  Background="Transparent">
-                            <Grid.ColumnDefinitions>
-                                <ColumnDefinition Width="Auto"/>
-                                <ColumnDefinition Width="1*"/>
-                                <ColumnDefinition Width="Auto"/>
-                            </Grid.ColumnDefinitions>
+                  <Grid  Background="Transparent">
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="Auto"/>
+                        <ColumnDefinition Width="1*"/>
+                        <ColumnDefinition Width="Auto"/>
+                     </Grid.ColumnDefinitions>

-                            <Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Width="32" Margin="0" />
-                            <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="5,0,10,0" VerticalAlignment="Center" HorizontalAlignment="left" />
-                            <Ellipse Grid.Column="2" Height="10" Width="10" Fill="{Binding FamilyColor}" />
+                     <Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Width="32" Margin="0" />
+                     <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="5,0,10,0" VerticalAlignment="Center" HorizontalAlignment="left" />
+                     <Ellipse Grid.Column="2" Height="10" Width="10" Fill="{Binding FamilyColor}" />

-                        </Grid>
+                  </Grid>

-                    </HierarchicalDataTemplate>
+               </HierarchicalDataTemplate>

-                    <DataTemplate DataType="{x:Type EgtWPFLib5:ToolTreeViewItem}">
-                        <Grid  Background="Transparent">
-                            <Grid.ColumnDefinitions>
-                                <ColumnDefinition Width="Auto"/>
-                                <ColumnDefinition Width="1*"/>
-                                <ColumnDefinition Width="Auto"/>
-                            </Grid.ColumnDefinitions>
+               <DataTemplate DataType="{x:Type EgtWPFLib5:ToolTreeViewItem}">
+                  <Grid  Background="Transparent">
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="Auto"/>
+                        <ColumnDefinition Width="1*"/>
+                        <ColumnDefinition Width="Auto"/>
+                     </Grid.ColumnDefinitions>

-                            <!--<Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Margin="0,8,6,4" />-->
-                            <TextBlock Grid.Column="1" Text="{Binding NamePar}" Height="21" FontSize="13"  Margin="30,0,10,0"
-                                       VerticalAlignment="Center" HorizontalAlignment="left"/>
-                            <Ellipse Grid.Column="2" Height="10" Width="10" Fill="{Binding ToolColor}" />
+                     <!--<Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Margin="0,8,6,4" />-->
+                     <TextBlock Grid.Column="1" Text="{Binding NamePar}" Height="21" FontSize="13"  Margin="30,0,10,0"
+                                VerticalAlignment="Center" HorizontalAlignment="left"/>
+                     <Ellipse Grid.Column="2" Height="10" Width="10" Fill="{Binding ToolColor}" />

-                        </Grid>
+                  </Grid>

-                    </DataTemplate>
+               </DataTemplate>

-                </TreeView.Resources>
+            </TreeView.Resources>

-            </TreeView>
+         </TreeView>

-        </Grid>
+      </Grid>

-        <ContentControl Content="{Binding Path=ParamPageV}" Grid.Column="1"/>
+      <ContentControl Content="{Binding Path=ParamPageV}" Grid.Column="1"/>

-        <!--ContentControl che ospita la scena restituita sotto forma di WindowsFormsHost-->
-        <ContentControl Content="{Binding ToolSceneHost}" Grid.Column="2"/>
+      <!--ContentControl che ospita la scena restituita sotto forma di WindowsFormsHost-->
+      <ContentControl Content="{Binding ToolSceneHost}" Grid.Column="2"/>

-    </Grid>
+   </Grid>

 </EgtWPFLib5:EgtCustomWindow>
@@ -749,7 +749,7 @@ Public Class MoveRawModeVM
               If VerifyCollisionWithOtherRawPart(nId) Then
                  ' mantengo la selezione del pezzo
                  EgtSetStatus(nId, GDB_ST.SEL)
-                  OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Collisione pezzi", 3, MSG_TYPE.ERROR_)
+                  OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(91231), 3, MSG_TYPE.ERROR_)      ' Collisione pezzi
               Else
                  ' Se con ventose, le nascondo
                  If Not OmagOFFICEMap.refMachiningTabVM.ByHand Then EgtSetStatus(GetVacuumId(), GDB_ST.OFF)
@@ -761,7 +761,7 @@ Public Class MoveRawModeVM
               If VerifyCollisionWithOtherRawPart(m_CurrRawOnVacuum) Then
                  ' mantengo la selezione del pezzo
                  EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
-                  OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Collisione pezzi", 3, MSG_TYPE.ERROR_)
+                  OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(91231), 3, MSG_TYPE.ERROR_)     ' Collisione pezzi
                  EgtDraw()
                  ' esco dal ciclo, prima devo depositare correttamente il pezzo
                  Exit While
@@ -819,7 +819,7 @@ Public Class MoveRawModeVM
      If VerifyCollisionWithOtherRawPart(m_CurrRawOnVacuum) Then
         ' mantengo la selezione del pezzo
         EgtSetStatus(m_CurrRawOnVacuum, GDB_ST.SEL)
-         OmagOFFICEMap.refStatusBarVM.SetOutputMessage("Collisione pezzi", 3, MSG_TYPE.ERROR_)
+         OmagOFFICEMap.refStatusBarVM.SetOutputMessage(EgtMsg(91231), 3, MSG_TYPE.ERROR_)    ' Collisione pezzi
         EgtDraw()
      End If

@@ -371,11 +371,11 @@ Public Class SplitModeVM
      m_LayNbArrTgBtn_IsChecked = value
      If value Then
         StatusOffNumbArrow(GDB_ST.ON_)
-         m_LayNbArrTgBtnMsg = "Hide"
+         m_LayNbArrTgBtnMsg = EgtMsg(91218)     ' Hide
         m_LayNbArrTgBtnImg = "/Resources/NewIcons/LightArrowOn.png"
      Else
         StatusOffNumbArrow(GDB_ST.OFF)
-         m_LayNbArrTgBtnMsg = "Show"
+         m_LayNbArrTgBtnMsg = EgtMsg(91219)     ' Show
         m_LayNbArrTgBtnImg = "/Resources/NewIcons/LightArrowOff.png"
      End If
      NotifyPropertyChanged(NameOf(LayNbArrTgBtnMsg))
@@ -819,7 +819,7 @@ Public Class SplitModeVM
   End Sub

   Private Sub AddTopText(ByRef sName As String)
-      sName &= "  Top"
+      sName &= EgtMsg(91217)     '  Top
   End Sub

   Private Sub RemovePauseText(ByRef sName As String)
@@ -2325,7 +2325,7 @@ Public Class SplitModeVM
            If bFirstInd Then
               Dim ModifStartWindow As New ModifStartEndCutWindowV
               Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
-               ModifStartWindowVM.Title = "Sawing"
+               ModifStartWindowVM.Title = EgtMsg(90791)  ' Sawing
               ModifStartWindow.DataContext = ModifStartWindowVM
               ModifStartWindow.Owner = Application.Current.MainWindow
               ModifStartWindowVM.SetVal(dOrigUsal)
@@ -2386,7 +2386,7 @@ Public Class SplitModeVM
            If bFirstMill Then
               Dim ModifStartWindow As New ModifStartEndCutWindowV
               Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
-               ModifStartWindowVM.Title = "Milling"
+               ModifStartWindowVM.Title = EgtMsg(90793)     ' Milling
               ModifStartWindow.DataContext = ModifStartWindowVM
               ModifStartWindow.Owner = Application.Current.MainWindow
               ModifStartWindowVM.SetVal(dOrigUsal)
@@ -2423,7 +2423,7 @@ Public Class SplitModeVM
               ' Dialogo richiesta valori
               Dim ModifStartWnd As New ModifStartEndWjWindowV
               Dim ModifStartWndVM As New ModifStartEndWjWindowVM
-               ModifStartWndVM.Title = "Water jetting"
+               ModifStartWndVM.Title = EgtMsg(90798)     ' Water jetting
               ModifStartWnd.DataContext = ModifStartWndVM
               ModifStartWnd.Owner = Application.Current.MainWindow
               ModifStartWndVM.HoleVisibility = Visibility.Visible
@@ -2509,7 +2509,7 @@ Public Class SplitModeVM
            If bFirstInd Then
               Dim ModifStartWindow As New ModifStartEndCutWindowV
               Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
-               ModifStartWindowVM.Title = "Sawing"
+               ModifStartWindowVM.Title = EgtMsg(90791)     ' Sawing
               ModifStartWindow.DataContext = ModifStartWindowVM
               ModifStartWindow.Owner = Application.Current.MainWindow
               ModifStartWindowVM.SetVal(dOrigUeal)
@@ -2564,7 +2564,7 @@ Public Class SplitModeVM
            If bFirstMill Then
               Dim ModifStartWindow As New ModifStartEndCutWindowV
               Dim ModifStartWindowVM As New ModifStartEndCutWindowVM
-               ModifStartWindowVM.Title = "Milling"
+               ModifStartWindowVM.Title = EgtMsg(90793)     ' Milling
               ModifStartWindow.DataContext = ModifStartWindowVM
               ModifStartWindow.Owner = Application.Current.MainWindow
               ModifStartWindowVM.SetVal(dOrigUeal)
@@ -2599,7 +2599,7 @@ Public Class SplitModeVM
               ' Dialogo richiesta valori
               Dim ModifStartWnd As New ModifStartEndWjWindowV()
               Dim ModifStartWndVM As New ModifStartEndWjWindowVM
-               ModifStartWndVM.Title = "Water jetting"
+               ModifStartWndVM.Title = EgtMsg(90798)     ' Water jetting
               ModifStartWnd.DataContext = ModifStartWndVM
               ModifStartWnd.Owner = Application.Current.MainWindow
               ModifStartWndVM.HoleVisibility = Visibility.Collapsed
@@ -3007,7 +3007,7 @@ Public Class SplitModeVM
               '(m_MainWindow, m_MainWindow.m_CurrentMachine.Qualities, "Quality")
               Dim ModifyQualityWnd As New ModifyQualityV
               Dim ModifyQuality As New ModifyQualityVM
-               ModifyQuality.Title = "Quality"
+               ModifyQuality.Title = EgtMsg(91673)    ' Quality
               ModifyQuality.QualityList = CurrentMachine.Qualities
               ModifyQualityWnd.DataContext = ModifyQuality
               ModifyQualityWnd.Owner = Application.Current.MainWindow
@@ -1,5 +1,4 @@
 Imports EgtUILib
-Imports EgtWPFLib5

 Public Class MultiSelectionVM
   Inherits VMBase
@@ -8,24 +7,24 @@ Public Class MultiSelectionVM

   Public ReadOnly Property TitleMsg As String
      Get
-         Return "Multiple selection"
+         Return EgtMsg(91681)    ' Multiple selection
      End Get
   End Property
   Public ReadOnly Property SelectionMsg As String
      Get
-         Return "Number of Parts"
+         Return EgtMsg(91682)    ' Number of Parts
      End Get
   End Property

   Public ReadOnly Property OkMsg As String
      Get
-         Return "Ok"
+         Return EgtMsg(91651)    ' Ok
      End Get
   End Property

   Public ReadOnly Property CancelMsg As String
      Get
-         Return "Cancel"
+         Return EgtMsg(91652)    ' Cancel
      End Get
   End Property

@@ -70,7 +70,7 @@ Public Class SideEntityControlVM
            sMsg = EgtMsg(91653)
         ElseIf m_Mode = SideEntityControlVM.ModeOpt.ALZANDFRONT Then
            ' Alz
-            sMsg = "Alz."
+            sMsg = EgtMsg(91674)
         End If
         Return sMsg
      End Get
@@ -87,7 +87,7 @@ Public Class SideEntityControlVM
            sMsg = EgtMsg(91654)
         ElseIf m_Mode = SideEntityControlVM.ModeOpt.ALZANDFRONT Then
            ' Front
-            sMsg = "Front."
+            sMsg = EgtMsg(91675)
         End If
         Return sMsg
      End Get
@@ -617,7 +617,7 @@ Public Class SideEntityControlVM
      ElseIf m_Mode = ModeOpt.FILOTOP Then
         Parameter1Msg = EgtMsg(MSG_IMPORTPAGEUC + 10)      ' Offset
         Parameter2Msg = EgtMsg(MSG_IMPORTPAGEUC + 11)      ' Depth
-         Parameter5Msg = "Round Off"
+         Parameter5Msg = EgtMsg(91676)                      ' Round Off
         m_dOffsetFiloTop = GetMainPrivateProfileDouble(S_SIDES, K_FILOTOPOFFSET, 5)
         m_dDepthFiloTop = GetMainPrivateProfileDouble(S_SIDES, K_FILOTOPDEPTH, 5)
         m_bCornerRadius = GetMainPrivateProfileInt(S_SIDES, K_FILOTOPROUNDOFF, 0) <> 0
@@ -646,9 +646,9 @@ Public Class SideEntityControlVM

      ElseIf m_Mode = ModeOpt.ALZANDFRONT Then
         ' definisco i nomi dei campi
-         Parameter1Msg = "Spessore"
-         Parameter2Msg = "Altezza"
-         Parameter3Msg = "Delta Ang."
+         Parameter1Msg = EgtMsg(91677)    ' Spessore
+         Parameter2Msg = EgtMsg(91678)    ' Altezza
+         Parameter3Msg = EgtMsg(91679)    ' Delta Ang.
         ' carico i valori letti da file ini
         m_HeightA = GetMainPrivateProfileDouble("Alz&Front", "A_Height", 0)
         m_HeightF = GetMainPrivateProfileDouble("Alz&Front", "F_Height", 0)
@@ -1844,7 +1844,7 @@ Public Class SideEntityControlVM
      Dim sMsg As String = String.Empty
      ' eseguo la funzione per il disegno della componente (CMP_Draw)
      If Not EgtLuaExecLine("CMP_Draw" & "(true)") Then
-         sMsg = "Error in component execution"
+         sMsg = EgtMsg(91680)      ' Error in component execution
         'm_bDrawOk = False
      Else
         EgtLuaGetGlobStringVar("CMP" & ".MSG", sMsg)