-piccola correzione

- sistemata dipendenza nuova lavorazione 5assi da opzione chiave AdvancedMachinings.

.gitignore

@@ -16,3 +16,4 @@
 /bin
 /obj
 /.vs
+/packages

AboutBoxWindow/AboutBoxView.xaml

@@ -1,8 +1,8 @@
 <Window x:Class="AboutBoxWndV"
-    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-    Title="AboutBox" Height="400" Width="360" WindowStyle="None" ResizeMode="NoResize"
-    ShowInTaskbar="False" WindowStartupLocation="CenterOwner">
+        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+        Title="AboutBox" Height="400" Width="360" WindowStyle="None" ResizeMode="NoResize"
+        ShowInTaskbar="False" WindowStartupLocation="CenterOwner">
 
    <Border BorderThickness="2" BorderBrush="LightBlue">
       <Grid >
@@ -13,8 +13,8 @@
          </Grid.ColumnDefinitions>
          <Grid.RowDefinitions>
             <RowDefinition Height="0.5*"/>
-            <RowDefinition Height="1*"/>
-            <RowDefinition Height="0.25*"/>
+            <RowDefinition Height="1.75*"/>
+            <RowDefinition Height="0.15*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
@@ -31,19 +31,19 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <Border Name="LogoBrd" Grid.Column="1" Background="White">
-               <Image Source="/Resources/AboutBoxImage.png" Stretch="Uniform"/>
+               <Image Source="/Resources/AboutBox/EgalwareLogo.png" Stretch="Uniform"/>
             </Border>
          </Grid>
          <TextBlock Name="DescriptionLbl" Grid.Column="1" Grid.Row="3" HorizontalAlignment="Center"
-               VerticalAlignment="Center" FontSize="18" />
+                    VerticalAlignment="Center" FontSize="18" />
          <TextBlock Name="VersionLbl" Grid.Column="1" Grid.Row="4" HorizontalAlignment="Center"
-               VerticalAlignment="Center" FontSize="18"/>
+                    VerticalAlignment="Center" FontSize="18"/>
          <TextBlock Name="CopyrightLbl" Grid.Column="1" Grid.Row="5" HorizontalAlignment="Center"
-               VerticalAlignment="Center" FontSize="12" />
+                    VerticalAlignment="Center" FontSize="12" />
          <TextBox Name="InfoLbl" Grid.Column="1" Grid.Row="6" HorizontalAlignment="Stretch"
-               VerticalAlignment="Stretch" FontSize="12" IsReadOnly="True" TextWrapping="Wrap"/>
+                  VerticalAlignment="Stretch" FontSize="12" IsReadOnly="True" TextWrapping="Wrap"/>
          <Button Name="ExitBtn" Grid.Column="1" Grid.Row="8" IsCancel="True"
-               Margin="100,0"/>
+                 Margin="100,0"/>
 
       </Grid>
 

AboutBoxWindow/AboutBoxView.xaml.vb

@@ -4,10 +4,7 @@ Public Class AboutBoxWndV
 
    Private Sub AboutBoxWD_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
       DescriptionLbl.Text = My.Application.Info.Description.ToString()
-      VersionLbl.Text = "Version : " & My.Application.Info.Version.Major.ToString() &
-                                 "." & My.Application.Info.Version.Minor.ToString() &
-                                 (ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
-                                 My.Application.Info.Version.Revision.ToString()
+      VersionLbl.Text = "Version : " & GetProgramVersion()
       CopyrightLbl.Text = My.Application.Info.Copyright.ToString()
       Dim sInfo As String = String.Empty
       Dim sKey As String = String.Empty
@@ -17,17 +14,29 @@ Public Class AboutBoxWndV
       Dim sLeftDays As String = ""
       Dim nLeftDays As Integer 
       if EgtGetKeyLeftDays( nLeftDays) AndAlso nLeftDays < 500 Then sLeftDays= " (" & nLeftDays.ToString() & ")"
+      Dim sAssStatus As String = " discontinued"
+      Dim nAssLeftDays As Integer
+      If EgtGetKeyAssLeftDays( nAssLeftDays) And nAssLeftDays >= 0 Then
+         If nAssLeftDays > 30 then
+            sAssStatus = "expires within " & nAssLeftDays.ToString() & " days"
+         Else If nAssLeftDays > 0 then
+            sAssStatus = "to be renewed within " & nAssLeftDays.ToString() & " days"
+         Else  
+            sAssStatus = "to be renewed by today"
+         End If
+      End If
       sInfo = If( EgtIsDebug(), "*** Debug Libraries ***" & Environment.NewLine, "") 
       sInfo &= "User " & Environment.MachineName & "\" & Environment.UserName &
-                       " (" & IniFile.m_nInstance.ToString() & ")" & Environment.NewLine
+               "  Inst" & IniFile.m_nInstance.ToString() &
+               " Ulv" & IniFile.m_nUserLevel.ToString() & " Dbg" &  Map.refMainWindowVM.DebugLevel().ToString() & Environment.NewLine
       sInfo &= sKey & " - " & sKlev & " - " & sOpts & sLeftDays & Environment.NewLine
+      sInfo &= "SupportPlane " & sAssStatus & Environment.NewLine
       sInfo &= "DataRoot " & IniFile.m_sDataRoot & Environment.NewLine
       If IniFile.m_ProjectMode <> ProjectModeOpt.ONLYDRAW Then
          sInfo &= "MachinesRoot " & IniFile.m_sMachinesRoot & Environment.NewLine
       Else
          sInfo &= "Only Draw Mode" & Environment.NewLine
       End If
-      If IniFile.IsActiveDoors() Then sInfo &= "Doors " & IniFile.m_sDoorsDirPath & Environment.NewLine
       Dim sOpSys As String = String.Empty
       EgtGetOsInfo( sOpSys)
       sInfo &= sOpSys & Environment.NewLine
@@ -40,8 +49,36 @@ Public Class AboutBoxWndV
       Dim sScene As String = String.Empty
       EgtGetSceneInfo(sScene)
       sInfo &= sScene
+      ' Extensions
+      sInfo &= Environment.NewLine & "Extensions :"
+      Dim bExtensions As Boolean = False
+      If IniFile.IsActiveBeam() Then
+         bExtensions = True
+         Dim sVersion As String = "---"
+         IniFile.GetSpecialLuaVersion( IniFile.m_sBeamDirPath, sVersion)
+         sInfo &= Environment.NewLine & "Beam ver. " & sVersion & "   " & IniFile.m_sBeamDirPath
+      End If
+      If IniFile.IsActiveWall() Then
+         bExtensions = True
+         Dim sVersion As String = "---"
+         IniFile.GetSpecialLuaVersion( IniFile.m_sWallDirPath, sVersion) 
+         sInfo &= Environment.NewLine & "Wall ver. " & sVersion & "   " & IniFile.m_sWallDirPath
+      End If
+      If IniFile.IsActiveDoors() Then
+         bExtensions = True
+         Dim sVersion As String = "---"
+         IniFile.GetSpecialLuaVersion( IniFile.m_sDoorsDirPath, sVersion) 
+         sInfo &= Environment.NewLine & "Doors ver. " & sVersion & "   " & IniFile.m_sDoorsDirPath
+      End If
+      If IniFile.IsActiveGunStock() Then
+         bExtensions = True
+         Dim sVersion As String = "---"
+         IniFile.GetSpecialLuaVersion( IniFile.m_sGunstockDirPath, sVersion) 
+         sInfo &= Environment.NewLine & "Gunstock ver. " & sVersion & "   " & IniFile.m_sGunstockDirPath
+      End If
+      If Not bExtensions Then sInfo &= Environment.NewLine & "---"
       InfoLbl.Text = sInfo
-      ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4)          'Ok
+      ExitBtn.Content = EgtMsg(10104)          'Ok
    End Sub
 
 End Class

Application.xaml.vb

@@ -107,6 +107,7 @@ Class Application
    Friend Const SWEPT As String = "Swept"
    Friend Const MERGESURF As String = "MergeSurf"
    Friend Const EXPLODESURF As String = "ExplodeSurf"
+   Friend Const APPROXSURF As String = "ApproxSurf"
    Friend Const INVERTSURF As String = "InvertSurf"
    Friend Const DELETE As String = "Delete"
    Friend Const CHANGELAYER As String = "ChangeLayer"
@@ -209,7 +210,8 @@ Class Application
    Friend Const GUNSTOCKMODIF As String = "GunStockModif"
 
    Private Sub Application_DispatcherUnhandledException(ByVal sender As System.Object, ByVal e As System.Windows.Threading.DispatcherUnhandledExceptionEventArgs)
-      MessageBox.Show(e.Exception.Message)
+      'MessageBox.Show(e.Exception.Message)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, e.Exception.Message)
       e.Handled = True
    End Sub
 

AttachedBehaviours/AutomaticCloseExpander.vb

@@ -88,49 +88,6 @@ Public Class AutomaticCloseExpander
             Exit For
          End If
       Next
-
-
-      'Dim TotalDimension As Double = 0
-      ''Aggiungo la dimensione di tutti gli Header
-      'For Each Expander In ExpanderList
-      '   If Expander IsNot SelectedExpander Then
-      '      If Not Expander.IsExpanded Then
-      '         TotalDimension += Expander.ActualHeight
-      '      Else
-      '         Dim ExpanderContent As FrameworkElement = DirectCast(Expander.Content, FrameworkElement)
-      '         ExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-      '         TotalDimension += (Expander.ActualHeight - ExpanderContent.DesiredSize.Height)
-      '      End If
-      '   Else
-      '      TotalDimension += Expander.ActualHeight
-      '   End If
-      'Next
-      '' Aggiungo la dimensione dei controlli fissi (non Expander)
-      'For Each OtherControl In OtherControlList
-      '   TotalDimension += OtherControl.ActualHeight
-      'Next
-      '' Aggiungo la dimensione del contenuto dell'expander selezionato
-      'Dim SelectedContent As FrameworkElement = DirectCast(SelectedExpander.Content, FrameworkElement)
-      'SelectedContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-      'TotalDimension += SelectedContent.DesiredSize.Height
-      '' Verifico per tutti gli expander (tranne quello selezionato) a partire dal primo se sono espansi e nel caso se la loro dimensione totale li fa stare nello spazio disponibile
-      'Dim Index As Integer = 0
-      'For Index = 0 To ExpanderList.Count - 1
-      '   If ExpanderList(Index) IsNot SelectedExpander Then
-      '      If ExpanderList(Index).IsExpanded Then
-      '         Dim ExpanderContent As FrameworkElement = DirectCast(ExpanderList(Index).Content, FrameworkElement)
-      '         TotalDimension += ExpanderContent.ActualHeight
-      '         If TotalDimension > Me.AssociatedObject.MaxHeight Then
-      '            Exit For
-      '         End If
-      '      End If
-      '   End If
-      'Next
-      'For CancelIndex = Index To ExpanderList.Count - 1
-      '   If ExpanderList(CancelIndex) IsNot SelectedExpander Then
-      '      ExpanderList(CancelIndex).IsExpanded = False
-      '   End If
-      'Next
    End Sub
 
    Private Sub HorizontalVerifyDimension(SelectedExpander As Expander)

AttachedBehaviours/InputBindingsManager.vb

@@ -58,4 +58,5 @@
          binding.UpdateSource()
       End If
    End Sub
+
 End Class

Base/TabViewModel.vb

@@ -9,7 +9,7 @@
       Set(value As String)
          If value <> m_sTabName Then
             m_sTabName = value
-            OnPropertyChanged("sTabName")
+            OnPropertyChanged(NameOf(sTabName))
          End If
       End Set
    End Property

Base/TreeView/TreeViewItemBase.vb

@@ -1,5 +1,7 @@
 Imports System.Collections.ObjectModel
 Imports System.ComponentModel
+Imports EgtUILib
+Imports EgtUILib.EgtInterface
 
 ' Classe che definisce un elemento di base del TreeView
 Public Class TreeViewItemBase
@@ -13,7 +15,7 @@ Public Class TreeViewItemBase
       Set(value As String)
          If (value <> m_Name) Then
             m_Name = value
-            NotifyPropertyChanged("Name")
+            NotifyPropertyChanged(NameOf(Name))
          End If
       End Set
    End Property
@@ -26,12 +28,12 @@ Public Class TreeViewItemBase
       Set(value As Boolean)
          If (value <> m_isSelected) Then
             m_isSelected = value
-            NotifyPropertyChanged("IsSelected")
+            NotifyPropertyChanged(NameOf(IsSelected))
          End If
       End Set
    End Property
 
-   Private m_isExpanded As Boolean
+   Friend m_isExpanded As Boolean
    Public Property IsExpanded As Boolean
       Get
          Return m_isExpanded
@@ -39,7 +41,26 @@ Public Class TreeViewItemBase
       Set(value As Boolean)
          If (value <> m_isExpanded) Then
             m_isExpanded = value
-            NotifyPropertyChanged("IsExpanded")
+            If Not Map.refProjectVM.bSelObjOnScene Then
+               Dim m_onldObjTreeOldId As Integer = Map.refManageLayerExpanderVM.m_nObjTreeOldId
+               If Not m_isExpanded Then
+               Else
+                  For Each Item As LayerTreeViewItem In Map.refManageLayerExpanderVM.LayerList
+                     For Each LayerItem As LayerTreeViewItem In Item.Items
+                        If m_isExpanded = LayerItem.m_isExpanded Then
+                           If m_onldObjTreeOldId = LayerItem.Id Then
+                              Map.refProjectVM.SetLastInteger(LayerItem.Id)
+                              'Map.refProjectVM.ExecuteCommand(Controller.CMD.DESELECTPARTLAYEROBJ)
+                              'Else
+                              'Map.refManageLayerExpanderVM.SelectIdInObjTree(LayerItem.Id)
+                              'Map.refProjectVM.ExecuteCommand(Controller.CMD.SETCURRPARTLAYER)
+                           End If
+                        End If
+                     Next
+                  Next
+               End If
+            End If
+            NotifyPropertyChanged(NameOf(IsExpanded))
          End If
       End Set
    End Property
@@ -52,7 +73,7 @@ Public Class TreeViewItemBase
       Set(value As Boolean)
          If value <> m_IsActive Then
             m_IsActive = value
-            NotifyPropertyChanged("IsActive")
+            NotifyPropertyChanged(NameOf(IsActive))
          End If
       End Set
    End Property
@@ -64,7 +85,7 @@ Public Class TreeViewItemBase
       End Get
       Set(value As Boolean)
          m_IsEnabled = value
-         NotifyPropertyChanged("IsEnabled")
+         NotifyPropertyChanged(NameOf(IsEnabled))
       End Set
    End Property
 
@@ -92,6 +113,7 @@ Public Class InheritableTreeViewItem
    Implements INotifyPropertyChanged
 
    Friend m_Name As String
+
    Public Property Name As String
       Get
          Return m_Name
@@ -99,7 +121,7 @@ Public Class InheritableTreeViewItem
       Set(value As String)
          If (value <> m_Name) Then
             m_Name = value
-            NotifyPropertyChanged("Name")
+            NotifyPropertyChanged(NameOf(Name))
          End If
       End Set
    End Property
@@ -112,7 +134,7 @@ Public Class InheritableTreeViewItem
       Set(value As Boolean)
          If (value <> m_IsSelected) Then
             m_IsSelected = value
-            NotifyPropertyChanged("IsSelected")
+            NotifyPropertyChanged(NameOf(IsSelected))
          End If
       End Set
    End Property
@@ -125,7 +147,7 @@ Public Class InheritableTreeViewItem
       Set(value As Boolean)
          If (value <> m_isExpanded) Then
             m_isExpanded = value
-            NotifyPropertyChanged("IsExpanded")
+            NotifyPropertyChanged(NameOf(IsExpanded))
          End If
       End Set
    End Property
@@ -138,7 +160,7 @@ Public Class InheritableTreeViewItem
       Set(value As Boolean)
          If value <> m_IsActive Then
             m_IsActive = value
-            NotifyPropertyChanged("IsActive")
+            NotifyPropertyChanged(NameOf(IsActive))
          End If
       End Set
    End Property
@@ -150,7 +172,7 @@ Public Class InheritableTreeViewItem
       End Get
       Set(value As Boolean)
          m_IsEnabled = value
-         NotifyPropertyChanged("IsEnabled")
+         NotifyPropertyChanged(NameOf(IsEnabled))
       End Set
    End Property
 
@@ -162,7 +184,7 @@ Public Class InheritableTreeViewItem
       Set(value As String)
          If value <> m_sPictureString Then
             m_sPictureString = value
-            NotifyPropertyChanged("PictureString")
+            NotifyPropertyChanged(NameOf(PictureString))
          End If
       End Set
    End Property
@@ -195,7 +217,6 @@ Public Class ParentItem
    Inherits TreeViewItemBase
 
    Private m_sPictureString As String
-   Private m_Items As ObservableCollection(Of ChildItem)
 
    Public Property PictureString As String
       Get
@@ -204,11 +225,12 @@ Public Class ParentItem
       Set(value As String)
          If value <> m_sPictureString Then
             m_sPictureString = value
-            NotifyPropertyChanged("PictureString")
+            NotifyPropertyChanged(NameOf(PictureString))
          End If
       End Set
    End Property
 
+   Private m_Items As ObservableCollection(Of ChildItem)
    Public Property Items As ObservableCollection(Of ChildItem)
       Get
          Return m_Items
@@ -242,7 +264,7 @@ Public Class ChildItem
       Set(value As String)
          If value <> m_sPictureString Then
             m_sPictureString = value
-            NotifyPropertyChanged("PictureString")
+            NotifyPropertyChanged(NameOf(PictureString))
          End If
       End Set
    End Property
@@ -255,4 +277,4 @@ Public Class ChildItem
       MyBase.New(Name, IsSelected, IsExpanded, IsActive)
    End Sub
 
-End Class
+End Class

BeamMachiningsWindow/BeamMachiningsWindowV.xaml.vb

@@ -1,4 +1,6 @@
-Public Class BeamMachiningsWindowV
+Imports EgtWPFLib5
+
+Public Class BeamMachiningsWindowV
 
    Private WithEvents m_BeamMachiningsWindowVM As BeamMachiningsWindowVM
 

BeamMachiningsWindow/BeamMachiningsWindowVM.vb

@@ -1,543 +0,0 @@
-Imports System.IO
-Imports System.Collections.ObjectModel
-Imports EgtUILib
-
-Public Class BeamMachiningsWindowVM
-   Inherits VMBase
-
-#Region "FIELDS & PROPERTIES"
-
-   Private Const MACH_CUT As String = "Cut"
-   Private Const MACH_DRILL As String = "Drill"
-   Private Const MACH_MILLING As String = "Milling"
-   Private Const MACH_POCKETING As String = "Pocketing"
-   Private Const MACH_SAWING As String = "Sawing"
-   Private Const MACH_SURFACING As String = "Surfacing"
-   Private Const ONCONST As String = "On"
-   Private Const NAME As String = "Name"
-   Private Const TYPE As String = "Type"
-   Private Const DATETIME As String = "%DATE_TIME%"
-   Private Const TABLENAME As String = "%TABLE_NAME%"
-
-   Friend Event m_CloseWindow(bDialogResult As Boolean)
-
-   Private m_MachiningList As New ObservableCollection(Of String)({MACH_CUT, MACH_DRILL, MACH_MILLING, MACH_POCKETING, MACH_SAWING})
-   Public ReadOnly Property MachiningList As ObservableCollection(Of String)
-      Get
-         Return m_MachiningList
-      End Get
-   End Property
-
-   Private m_SelMachining As String
-   Public Property SelMachining As String
-      Get
-         Return m_SelMachining
-      End Get
-      Set(value As String)
-         ' verifico se pagina precedente modificata
-         Dim TableModified As Boolean = False
-         For Each Line In m_TableRowList
-            If Line.IsModified Then
-               TableModified = True
-               Exit For
-            End If
-         Next
-         ' se modificata, chiedo se salvare
-         If TableModified Then
-            ' Salvare le modifiche apportate? - Salva
-            Select Case MessageBox.Show(EgtMsg(9007), EgtMsg(9006), MessageBoxButton.YesNo, MessageBoxImage.Question)
-               Case MessageBoxResult.Yes
-                  Save()
-               Case MessageBoxResult.No
-                  ' non devo fare nulla
-            End Select
-         End If
-         m_SelMachining = value
-         LoadMachiningList()
-         LoadTypeList()
-         ReadTableFile()
-         NotifyPropertyChanged("SelMachining")
-      End Set
-   End Property
-   Private Sub SetSelMachining(value As String)
-      m_SelMachining = value
-      LoadMachiningList()
-      LoadTypeList()
-      ReadTableFile()
-      NotifyPropertyChanged("SelMachining")
-   End Sub
-
-   Private m_TableRowList As ObservableCollection(Of GridLine)
-   Public Property TableRowList As ObservableCollection(Of GridLine)
-      Get
-         Return m_TableRowList
-      End Get
-      Set(value As ObservableCollection(Of GridLine))
-         m_TableRowList = value
-      End Set
-   End Property
-
-   Private m_SelRowIndex As Integer = -1
-   Public Property SelRowIndex As Integer
-      Get
-         Return m_SelRowIndex
-      End Get
-      Set(value As Integer)
-         m_SelRowIndex = value
-      End Set
-   End Property
-
-   Private m_sTitle As String
-   Private m_BaseDir As String
-   Private m_MachTypeFilePath As String
-   Private m_TableTemplateFilePath As String
-   Private m_IsBeam As Boolean = True
-
-#Region "Messages"
-
-   Public ReadOnly Property Title As String
-      Get
-         Return m_sTitle
-      End Get
-   End Property
-
-   Public ReadOnly Property OnHdr As String
-      Get
-         Return EgtMsg( 9001)               'On
-      End Get
-   End Property
-
-   Public ReadOnly Property NameHdr As String
-      Get
-         Return EgtMsg( 9002)               'Nome
-      End Get
-   End Property
-
-   Public ReadOnly Property TypeHdr As String
-      Get
-         Return EgtMsg( 9003)               'Tipo
-      End Get
-   End Property
-
-   Public ReadOnly Property AddRowMsg As String
-      Get
-         Return EgtMsg( 9004)               'Aggiungi
-      End Get
-   End Property
-
-   Public ReadOnly Property DeleteRowMsg As String
-      Get
-         Return EgtMsg( 9005)               'Elimina
-      End Get
-   End Property
-
-   Public ReadOnly Property SaveMsg As String
-      Get
-         Return EgtMsg( 9006)               'Salva
-      End Get
-   End Property
-
-#End Region    ' Messages
-
-   ' Definizione comandi
-   Private m_cmdMoveRowUp As ICommand
-   Private m_cmdMoveRowDown As ICommand
-   Private m_cmdAddRow As ICommand
-   Private m_cmdDeleteRow As ICommand
-   Private m_cmdSave As ICommand
-   Private m_cmdClose As ICommand
-
-#End Region    ' FIELDS & PROPERTIES
-
-#Region "CONSTRUCTOR"
-
-   Sub New( sTitle As String, sBaseDir As String, sMachTypePath As String, sTabTemplPath As String, Optional bIsBeam As Boolean = True)
-      ' Titolo del dialogo
-      m_sTitle = sTitle
-      ' Imposto direttorio base e nomi dei file
-      m_BaseDir = sBaseDir
-      m_MachTypeFilePath = sMachTypePath
-      m_TableTemplateFilePath = sTabTemplPath
-      ' Imposto se per travi o pareti
-      m_IsBeam = bIsBeam
-      ' Se previste, aggiungo lavorazioni di superfici
-      Dim sDummy As String = ""
-      If EgtUILib.GetPrivateProfileString( MACH_SURFACING, "1", "", sDummy, m_MachTypeFilePath) > 0 Then
-         m_MachiningList.Add(MACH_SURFACING)
-      End If
-      ' Seleziono la prima lavorazione
-      If m_MachiningList.Count > 0 Then
-         SetSelMachining( m_MachiningList(0))
-      End If
-      NotifyPropertyChanged( "MachiningList")
-   End Sub
-
-#End Region    ' CONSTRUCTOR
-
-#Region "METHODS"
-
-   Private Function LoadMachiningList() As Boolean
-      Dim MachiningList As New List(Of String)
-      Select Case SelMachining
-         Case MACH_CUT
-            If m_IsBeam Then
-               LoadMachiningListByType(MachiningList, MCH_MY.MILLING, MCH_TF.SAWBLADE)
-            Else
-               LoadMachiningListByType(MachiningList, MCH_MY.SAWING, 0)
-            End If
-         Case MACH_DRILL
-            LoadMachiningListByType(MachiningList, MCH_MY.DRILLING, 0)
-            LoadMachiningListByType(MachiningList, MCH_MY.POCKETING, 0, False)
-            LoadMachiningListByType(MachiningList, MCH_MY.MILLING, MCH_TF.MILL, False)
-         Case MACH_MILLING
-            LoadMachiningListByType(MachiningList, MCH_MY.MILLING, MCH_TF.MILL)
-         Case MACH_POCKETING
-            LoadMachiningListByType(MachiningList, MCH_MY.POCKETING, 0)
-         Case MACH_SAWING
-            LoadMachiningListByType(MachiningList, MCH_MY.MORTISING, 0)
-         Case MACH_SURFACING
-            LoadMachiningListByType(MachiningList, MCH_MY.SURFROUGHING, 0)
-            LoadMachiningListByType(MachiningList, MCH_MY.SURFFINISHING, 0, False)
-      End Select
-      GridLine.SetNamesList(New ObservableCollection(Of String)(MachiningList))
-      Return True
-   End Function
-
-   Private Function LoadTypeList() As Boolean
-      Dim TypeList As New List(Of String)
-      Dim Index As Integer = 1
-      Dim Type As String = ""
-      While EgtUILib.GetPrivateProfileString( SelMachining, Index.ToString, "", Type, m_MachTypeFilePath) > 0
-         TypeList.Add(Type)
-         Index += 1
-      End While
-      GridLine.SetTypeList( New ObservableCollection(Of String)( TypeList))
-      Return True
-   End Function
-
-   Private Function ReadTableFile() As Boolean
-      ' svuoto la lista
-      m_TableRowList = New ObservableCollection(Of GridLine)
-      Dim FilePath As String = m_BaseDir & "\" & SelMachining & "Data.lua"
-      If Not File.Exists(FilePath) Then Return False
-      Dim FileContent As String() = File.ReadAllLines(FilePath)
-      Dim FoundTableName As Boolean = False
-      For LineIndex As Integer = 0 To FileContent.Count - 1
-         If FileContent(LineIndex).Contains(SelMachining & "Data") Then
-            FoundTableName = True
-         End If
-         Dim Open As Integer = CountCharacter(FileContent(LineIndex), "{"c)
-         Dim Close As Integer = CountCharacter(FileContent(LineIndex), "}"c)
-         If Close > Open Then
-            If FoundTableName Then
-               FoundTableName = False
-            End If
-         End If
-         If FoundTableName Then
-            Dim sOn As String = SearchKey(FileContent(LineIndex), ONCONST)
-            Dim sName As String = SearchKey(FileContent(LineIndex), NAME)
-            Dim sType As String = SearchKey(FileContent(LineIndex), TYPE)
-            If Not String.IsNullOrWhiteSpace(sOn) AndAlso Not String.IsNullOrWhiteSpace(sName) AndAlso Not String.IsNullOrWhiteSpace(sType) Then
-               If String.Compare(sOn, "true", True) = 0 Then
-                  TableRowList.Add(New GridLine(True, sName, sType))
-               ElseIf String.Compare(sOn, "false", True) = 0 Then
-                  TableRowList.Add(New GridLine(False, sName, sType))
-               Else
-                  Continue For
-               End If
-            End If
-         End If
-      Next
-      NotifyPropertyChanged("TableRowList")
-      Return True
-   End Function
-
-   Private Function WriteTableFile() As Boolean
-      ' inizio routine di scrittura
-      Dim FileContent As String() = File.ReadAllLines(m_TableTemplateFilePath)
-      Dim NewTableFileContent As New List(Of String)
-      Dim bBeamTable As Boolean = False
-      For LineIndex As Integer = 0 To FileContent.Count - 1
-         Dim sCurrLine As String = FileContent(LineIndex)
-         sCurrLine = sCurrLine.Replace(DATETIME, System.DateTime.Now.ToString("dd/MM/yyyy HH:mm:ss"))
-         sCurrLine = sCurrLine.Replace(TABLENAME, SelMachining & "Data")
-
-         If sCurrLine.Contains(SelMachining & "Data") AndAlso sCurrLine.Contains("=") Then
-            bBeamTable = True
-            NewTableFileContent.Add(sCurrLine)
-            PrintActiveMachiningList(NewTableFileContent)
-         End If
-
-         If Not bBeamTable Then
-            NewTableFileContent.Add(sCurrLine)
-         Else
-            bBeamTable = False
-         End If
-      Next
-      Dim FilePath As String = m_BaseDir & "\" & SelMachining & "Data.lua"
-      File.WriteAllLines(FilePath, NewTableFileContent, Text.Encoding.UTF8)
-      Return True
-   End Function
-
-   Private Sub PrintActiveMachiningList(NewTableFileContent As List(Of String))
-      For Index As Integer = 0 To m_TableRowList.Count - 1
-         If String.IsNullOrEmpty(m_TableRowList(Index).Name) Then Continue For
-         Dim CurrentLine As String = "   { On = " & If(m_TableRowList(Index).OnPar, "true", "false") & ", Name = '" & m_TableRowList(Index).Name & "', Type = '" & m_TableRowList(Index).Type & "'}"
-         If Index < m_TableRowList.Count - 1 Then
-            CurrentLine &= ","
-         End If
-         NewTableFileContent.Add(CurrentLine)
-      Next
-   End Sub
-
-
-#End Region    ' METHODS
-
-#Region "COMMANDS"
-
-#Region "MoveRowUp"
-
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
-   Public ReadOnly Property MoveRowUp_Command As ICommand
-      Get
-         If m_cmdMoveRowUp Is Nothing Then
-            m_cmdMoveRowUp = New Command(AddressOf MoveRowUp)
-         End If
-         Return m_cmdMoveRowUp
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
-   Public Sub MoveRowUp()
-      If SelRowIndex > 0 Then
-         m_TableRowList.Move(SelRowIndex, SelRowIndex - 1)
-      End If
-   End Sub
-
-#End Region    ' MoveRowUp
-
-#Region "MoveRowDown"
-
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
-   Public ReadOnly Property MoveRowDown_Command As ICommand
-      Get
-         If m_cmdMoveRowDown Is Nothing Then
-            m_cmdMoveRowDown = New Command(AddressOf MoveRowDown)
-         End If
-         Return m_cmdMoveRowDown
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
-   Public Sub MoveRowDown()
-      If SelRowIndex < m_TableRowList.Count - 1 Then
-         m_TableRowList.Move(SelRowIndex, SelRowIndex + 1)
-      End If
-   End Sub
-
-#End Region    ' MoveRowDown
-
-#Region "AddRow"
-
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
-   Public ReadOnly Property AddRow_Command As ICommand
-      Get
-         If m_cmdAddRow Is Nothing Then
-            m_cmdAddRow = New Command(AddressOf AddRow)
-         End If
-         Return m_cmdAddRow
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
-   Public Sub AddRow()
-      m_TableRowList.Insert(SelRowIndex + 1, New GridLine(False, "", ""))
-   End Sub
-
-#End Region    ' AddRow
-
-#Region "DeleteRow"
-
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
-   Public ReadOnly Property DeleteRow_Command As ICommand
-      Get
-         If m_cmdDeleteRow Is Nothing Then
-            m_cmdDeleteRow = New Command(AddressOf DeleteRow)
-         End If
-         Return m_cmdDeleteRow
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
-   Public Sub DeleteRow()
-      m_TableRowList.RemoveAt(SelRowIndex)
-   End Sub
-
-#End Region    ' DeleteRow
-
-#Region "Save"
-
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
-   Public ReadOnly Property Save_Command As ICommand
-      Get
-         If m_cmdSave Is Nothing Then
-            m_cmdSave = New Command(AddressOf Save)
-         End If
-         Return m_cmdSave
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
-   Public Sub Save()
-      ' scrivo il file
-      WriteTableFile()
-      ' resetto le modifiche
-      For Each Line In m_TableRowList
-         Line.ResetIsModified()
-      Next
-   End Sub
-
-#End Region    ' Save
-
-#Region "Close"
-
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
-   Public ReadOnly Property Close_Command As ICommand
-      Get
-         If m_cmdClose Is Nothing Then
-            m_cmdClose = New Command(AddressOf Close)
-         End If
-         Return m_cmdClose
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
-   Public Sub Close()
-      ' verifico se pagina precedente modificata
-      Dim TableModified As Boolean = False
-      For Each Line In m_TableRowList
-         If Line.IsModified Then
-            TableModified = True
-            Exit For
-         End If
-      Next
-      ' se modificata, chiedo se salvare
-      If TableModified Then
-         ' Salvare le modifiche apportate? - Salva
-         Select Case MessageBox.Show( EgtMsg( 9007), EgtMsg( 9006), MessageBoxButton.YesNo, MessageBoxImage.Question)
-            Case MessageBoxResult.Yes
-               Save()
-            Case MessageBoxResult.No
-               ' non devo fare nulla
-         End Select
-      End If
-      RaiseEvent m_CloseWindow(True)
-   End Sub
-
-#End Region    ' Close
-
-#End Region    ' COMMANDS
-
-End Class
-
-Public Class GridLine
-   Inherits VMBase
-
-   Friend ReadOnly Property IsModified As Boolean
-      Get
-         Return m_IsOnModified Or m_IsNameModified Or m_IsTypeModified
-      End Get
-   End Property
-   Friend Sub ResetIsModified()
-      m_IsOnModified = False
-      m_IsNameModified = False
-      m_IsTypeModified = False
-   End Sub
-
-   Private m_IsOnModified As Boolean = False
-   Private m_On As Boolean
-   Public Property OnPar As Boolean
-      Get
-         Return m_On
-      End Get
-      Set(value As Boolean)
-         m_On = value
-         m_IsOnModified = True
-      End Set
-   End Property
-
-   Private Shared m_NamesList As ObservableCollection(Of String)
-   Public ReadOnly Property NamesList As ObservableCollection(Of String)
-      Get
-         Return m_NamesList
-      End Get
-   End Property
-   Friend Shared Sub SetNamesList(NamesList As ObservableCollection(Of String))
-      m_NamesList = NamesList
-   End Sub
-
-   Private m_IsNameModified As Boolean = False
-   Private m_Name As String
-   Public Property Name As String
-      Get
-         Return m_Name
-      End Get
-      Set(value As String)
-         m_Name = value
-         m_IsNameModified = True
-      End Set
-   End Property
-
-   Private Shared m_TypeList As ObservableCollection(Of String)
-   Public ReadOnly Property TypeList As ObservableCollection(Of String)
-      Get
-         Return m_TypeList
-      End Get
-   End Property
-   Friend Shared Sub SetTypeList(TypeList As ObservableCollection(Of String))
-      m_TypeList = TypeList
-   End Sub
-
-   Private m_IsTypeModified As Boolean = False
-   Private m_Type As String
-   Public Property Type As String
-      Get
-         Return m_Type
-      End Get
-      Set(value As String)
-         m_Type = value
-         m_IsTypeModified = True
-      End Set
-   End Property
-
-   Sub New(bOnPar As Boolean, sName As String, sType As String)
-      m_On = bOnPar
-      m_Name = sName
-      m_Type = sType
-   End Sub
-
-End Class

BottomTray/BottomTrayV.xaml

@@ -0,0 +1,12 @@
+<Grid x:Class="BottomTrayV"
+      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+      xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+      DockPanel.Dock="Bottom">
+   <EgtWPFLib5:EgtMachGroupPanelV DataContext="{StaticResource MachGroupPanelViewModel}"
+                                  RepaetButtonStyle="{StaticResource CustomScrollBarButton}"
+                                  MachGroupButtonStyle="{StaticResource {x:Type ToggleButton}}"
+                                  IsToolBar="False"
+                                  IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False"
+                                  IsRightDockable="False" />
+</Grid>

BottomTray/BottomTrayV.xaml.vb

@@ -0,0 +1,3 @@
+Public Class BottomTrayV
+
+End Class

Command/Command.vb

@@ -1,5 +1,4 @@
-
-''' <summary>
+''' <summary>
 ''' A command whose sole purpose is to 
 ''' relay its functionality to other
 ''' objects by invoking delegates. The

Constants/ConstDoors.vb

@@ -1,5 +1,4 @@
-
-Module ConstDoors
+Module ConstDoors
 
    ' File contenente la lista dei nomi di geometria ammessi
    Public Const GEONAMELIST_FILE As String = "GeometryNameList.ini"

Constants/ConstGen.vb

@@ -22,6 +22,7 @@ Module ConstGen
    ' File con dati di licenza
    Public Const LIC_FILE_NAME As String = "EgtCAM5.lic"
    Public Const S_LICENCE As String = "Licence"
+   Public Const K_LOCKID As String = "LockId"
    Public Const K_KEY As String = "Key"
    Public Const K_NESTKEY As String = "NestKey"
 

Constants/ConstIni.vb

@@ -18,6 +18,7 @@ Module ConstIni
    Public Const S_GENERAL As String = "General"
    Public Const K_DEBUG As String = "Debug"
    Public Const K_LICENCE As String = "Licence"
+   Public Const K_NETKEY As String = "NetKey"
    Public Const K_USERLEVEL As String = "UserLevel"
    Public Const K_MAXINST As String = "MaxInstances"
    Public Const K_INSTANCES As String = "Instances"
@@ -28,6 +29,7 @@ Module ConstIni
    Public Const K_HIDEPLACE As String = "HidePlace"
    Public Const K_LASTNGEDIR As String = "LastNgeDir"
    Public Const K_LASTNGEOBJDIR As String = "LastNgeObjDir"
+   Public Const K_LASTNGEINSDIR As String = "LastNgeInsDir"
    Public Const K_LASTLUADIR As String = "LastLuaDir"
    Public Const K_LASTIMPDIR As String = "LastImpDir"
    Public Const K_LASTEXPDIR As String = "LastExpDir"
@@ -37,14 +39,16 @@ Module ConstIni
    Public Const K_TRANSFORM As String = "Transform"
    Public Const K_ONLYDRAW As String = "OnlyDraw"
    Public Const K_SUPPORT As String = "Support"
+   Public Const K_PLUGIN As String = "Plugin"
+   Public Const K_EXECUTE As String = "Execute"
 
    Public Const S_LANGUAGES As String = "Languages"
    Public Const K_LANGUAGE As String = "Language"
 
    Public Const S_LUA As String = "Lua"
    Public Const K_LIBSDIR As String = "LibsDir"
-   Public Const K_LIBSDIR64 As String = "LibsDir64"
    Public Const K_BASELIB As String = "BaseLib"
+   Public Const K_BWSIM As String = "BWSim"
 
    Public Const S_GEOMDB As String = "GeomDB"
    Public Const K_DEFAULTFONT As String = "DefaultFont"
@@ -65,6 +69,7 @@ Module ConstIni
    Public Const K_SHOWGFRAME As String = "ShowGFrame"
    Public Const K_LINEWIDTH As String = "LineWidth"
    Public Const K_MARK As String = "Mark"
+   Public Const K_MARK2 As String = "Mark2"
    Public Const K_SELSURF As String = "SelSurf"
    Public Const K_SHOWMODE As String = "ShowMode"
    Public Const K_CURVEDIR As String = "CurveDir"
@@ -100,15 +105,21 @@ Module ConstIni
    Public Const S_IMPORT As String = "Import"
    Public Const K_DXFSCALE As String = "DxfScale"
    Public Const K_STLSCALE As String = "StlScale"
+   Public Const K_OFFSCALE As String = "OffScale"
+   Public Const K_PLYSCALE As String = "PlyScale"
    Public Const K_IMGSCALE As String = "ImgScale"
    Public Const K_CNCFLAG As String = "CncFlag"
    Public Const K_BTLFLAG As String = "BtlFlag"
    Public Const K_BTLAUXDIR As String = "BtlAuxDir"
+   Public Const K_3MFFLAG As String = "3mfFlag"
+   Public Const K_ADVFLAG As String = "AdvFlag"
+   Public Const K_ADVTOLER As String = "AdvToler"
 
    Public Const S_EXPORT As String = "Export"
    Public Const K_DXFFLAG As String = "DxfFlag"
    Public Const K_IMGWIDTH As String = "ImgWidth"
    Public Const K_IMGHEIGHT As String = "ImgHeight"
+   Public Const K_THREEJSLIBDIR As String = "ThreeJSLibDir"
 
    Public Const S_SPECIAL As String = "Special"
    Public Const K_SPECIALENABLE As String = "SpecialEnable"
@@ -130,10 +141,13 @@ Module ConstIni
    Public Const K_WALLBUTTON As String = "Button"
 
    Public Const S_BEAMWALL As String = "BeamWall"
-   Public Const K_BEAMWALLENABLE As String = "BtlEnable"
    Public Const K_BEAMWALLBASEDIR As String = "BaseDir"
    Public Const K_BEAMWALLBUTTON As String = "Button"
 
+   Public Const S_PRINTING3D As String = "3dPrinting"
+   Public Const K_ENABLE As String = "Enable"
+   Public Const K_3PRNBASEDIR As String = "BaseDir"
+
    Public Const S_DOORS As String = "Doors"
    Public Const K_DDFENABLE As String = "DdfEnable"
    Public Const K_BASEDIR As String = "BaseDir"
@@ -145,6 +159,7 @@ Module ConstIni
    Public Const K_TABLESDIR As String = "TablesDir"
    Public Const K_CURRMTABLE As String = "CurrMTable"
    Public Const K_MTABLEWINPLACE As String = "MTableWinPlace"
+   Public Const K_OPTIMIZEMACHFORLINE As String = "OptimizeMachForLine"
 
    Public Const S_GUNSTOCK As String = "GunStock"
    Public Const K_GUNSTOCKENABLE As String = "GsEnable"
@@ -153,13 +168,14 @@ Module ConstIni
    Public Const K_WRITEPEZFUNCTION As String = "WritePezFun"
    Public Const K_READPEZFUNCTION As String = "ReadPezFun"
    Public Const K_CREATEFUNCTION As String = "CreateFun"
+   Public Const K_COPYFUNCTION As String = "CopyFun"
    Public Const K_MODDIR As String = "ModDir"
    Public Const K_PEZDIR As String = "PezDir"
+   Public Const K_COPYDIR As String = "CopyDir"
 
    Public Const S_MACH As String = "Mach"
    Public Const K_MACHINESDIR As String = "MachinesDir"
    Public Const K_TOOLMAKERSDIR As String = "ToolMakersDir"
-   Public Const K_TOOLMAKERSDIR64 As String = "ToolMakersDir64"
    Public Const K_CURRMACH As String = "CurrMach"
    Public Const K_SELGEOMSAWING As String = "SelGeomSawing"
    Public Const K_SELGEOMDRILLING As String = "SelGeomDrilling"
@@ -171,9 +187,13 @@ Module ConstIni
    Public Const K_SELGEOMGENMACHINING As String = "SelGeomGenMachining"
    Public Const K_SELGEOMCHISELING As String = "SelGeomChiseling"
    Public Const K_SELGEOMSURFFINISHING As String = "SelGeomSurfFinishing"
+   Public Const K_SELGEOMSURFROUGHING As String = "SelGeomSurfRoughing"
+   Public Const K_SELGEOMFIVEAXMILLING As String = "SelGeomFiveAxMilling"
+   Public Const K_SELVMILLQUALITY As String = "VMillQuality"
    Public Const K_MACHININGGROUP As String = "MachiningGroup"
    Public Const K_SHOWONLYTABLE As String = "ShowOnlyTable"
    Public Const K_MOVETHROUGHDISPS As String = "MoveThroughDisps"
+   Public Const K_AUTOUPDATEALLMACHININGS As String = "AutoUpdateAllMachinings"
 
    Public Const S_SIMUL As String = "Simul"
    Public Const K_SLIDERX As String = "SliderX"

Constants/ConstMachIni.vb

@@ -33,7 +33,9 @@
    Public Const K_SAWFINISHING As String = "SawFinishing"
    Public Const K_GENMACHINING As String = "GenMachining"
    Public Const K_CHISELING As String = "Chiseling"
+   Public Const K_SURFROUGHING As String = "SurfRoughing"
    Public Const K_SURFFINISHING As String = "SurfFinishing"
+   Public Const K_5AXMILLING As String = "5AxMilling"
    Public Const K_WATERJETTING As String = "WaterJetting"
    Public Const K_SAWINGONARCS As String = "SawingOnArcs"
 

CurrSetUp/CurrSetUpV.xaml.vb

@@ -11,8 +11,4 @@
       m_CurrSetUpVM = CurrSetUpVM
    End Sub
 
-   'Private Sub CloseWindow(bDialogResult As Boolean) Handles m_SetUpDbVM.m_CloseWindow
-   '   Me.DialogResult = bDialogResult
-   'End Sub
-
 End Class

CurrSetUp/CurrSetUpVM.vb

@@ -1,6 +1,4 @@
-Imports System.Collections.ObjectModel
-Imports System.ComponentModel
-Imports System.IO
+Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -12,7 +10,7 @@ Public Class CurrSetUpVM
    Private m_Title As String
    Public ReadOnly Property Title As String
       Get
-         Return EgtMsg(MSG_SETUP + 1)
+         Return EgtMsg(6451)     ' SetUp
       End Get
    End Property
 
@@ -54,28 +52,28 @@ Public Class CurrSetUpVM
 
    Public ReadOnly Property TitleMsg As String
       Get
-         Return EgtMsg(MSG_SETUP + 1)
+         Return EgtMsg(6451)     ' SetUp
       End Get
    End Property
 
    Public ReadOnly Property ApplyMsg As String
       Get
-         Return EgtMsg(MSG_SETUP + 2)
+         Return EgtMsg(6452)     ' Applica
       End Get
    End Property
    Public ReadOnly Property SaveMsg As String
       Get
-         Return EgtMsg(MSG_SETUP + 3)
+         Return EgtMsg(6453)     ' Salva
       End Get
    End Property
    Public ReadOnly Property RetrieveMsg As String
       Get
-         Return EgtMsg(MSG_SETUP + 4)
+         Return EgtMsg(6454)     ' Recupera
       End Get
    End Property
    Public ReadOnly Property AutomaticMsg As String
       Get
-         Return EgtMsg(MSG_SETUP + 5)
+         Return EgtMsg(6455)     ' Auto
       End Get
    End Property
 
@@ -100,7 +98,7 @@ Public Class CurrSetUpVM
    ' Funzione che verifica se ci sono state modifiche all'attrezzaggio corrente e permette di attivare e disattivare il bottone applica
    Private Sub IsEnabledBtns()
       m_Apply_IsEnabled = Not m_SetUpVM.IsAppliedSetUp()
-      NotifyPropertyChanged("Apply_IsEnabled")
+      NotifyPropertyChanged(NameOf(Apply_IsEnabled))
    End Sub
 
 #Region "COMMANDS"
@@ -151,7 +149,7 @@ Public Class CurrSetUpVM
    Public Sub Save()
       ' chiedo il nome con cui salvare il setup
       Dim SaveFileDialogViewVM As New SaveFileDialogWithListVM With {
-         .Title = EgtMsg(MSG_SETUP + 3) & " " & EgtMsg(MSG_SETUP + 1),
+         .Title = EgtMsg(6453) & " " & EgtMsg(6451),     ' Salva SetUp
          .Extension = ".stu",
          .Filter = "*.stu",
          .Directory = m_SetUpDir_FilePath,
@@ -163,7 +161,8 @@ Public Class CurrSetUpVM
       sFilePath = SaveFileDialogViewVM.FileName
       If Not m_SetUpVM.Save(sFilePath) Then
          EgtOutLog("Error in setup saving: can't find the directory")
-         MessageBox.Show("Error in saving Setup.", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show("Error in saving Setup.", "Error", MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, "Error in saving Setup.", EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)     ' Errore
       End If
    End Sub
 
@@ -195,11 +194,12 @@ Public Class CurrSetUpVM
          Return
       End If
       ' Apertura dialogo di salvataggio
-      Dim OpenFileDialogView As New EgtWPFLib5.EgtOpenFileDialog
-      OpenFileDialogView.Title = EgtMsg(MSG_SETUP + 4) & " " & EgtMsg(MSG_SETUP + 1)
-      OpenFileDialogView.Filter = "*.stu"
-      OpenFileDialogView.Directory = sDir
-      OpenFileDialogView.FileName = String.Empty
+      Dim OpenFileDialogView As New EgtWPFLib5.EgtOpenFileDialog With {
+         .Title = EgtMsg(6454) & " " & EgtMsg(6451),     ' Recupera SetUp
+         .Filter = "*.stu",
+         .Directory = sDir,
+         .FileName = String.Empty
+      }
       If Not OpenFileDialogView.EgtShowDialog Then
          Return
       End If
@@ -258,14 +258,15 @@ Public Class CurrSetUpVM
       ' Verifico se l'attrezzaggio è stato modificato
       If m_SetUpVM.IsAppliedSetUp() Then
          ' se modificato chiedo se salvarlo prima di uscire
-         If MessageBox.Show(EgtMsg(MSG_SETUP + 6), EgtMsg(MSG_SETUP + 2), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+         'If MessageBox.Show(EgtMsg(MSG_SETUP + 6), EgtMsg(MSG_SETUP + 2), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6456), EgtMsg(6452), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then  ' Applicare l'attrezzaggio corrente prima di uscire? Applica
             ' lo salvo
             Apply()
          End If
       End If
 
-      ' Resetto tutti i delegate usati
-      ExitToolAssociation.m_delIsModifiedSetUp = Nothing
+         ' Resetto tutti i delegate usati
+         ExitToolAssociation.m_delIsModifiedSetUp = Nothing
       ' Reset lua
       EgtLuaResetGlobVar("STU")
 

DataGridMultiselectManaging/IListItemConverter.vb

@@ -0,0 +1,4 @@
+Public Interface IListItemConverter
+   Function Convert(ByVal masterListItem As Object) As Object
+   Function ConvertBack(ByVal targetListItem As Object) As Object
+End Interface

DataGridMultiselectManaging/MultiSelectorBehaviours.vb

@@ -0,0 +1,80 @@
+Imports System.Windows.Controls.Primitives
+Imports System.ComponentModel
+
+
+Public Class MultiSelectorBehaviours
+
+   Public Shared ReadOnly SynchronizedSelectedItemsProperty As DependencyProperty = DependencyProperty.RegisterAttached("SynchronizedSelectedItems", GetType(IList), GetType(MultiSelectorBehaviours), New PropertyMetadata(Nothing, AddressOf OnSynchronizedSelectedItemsChanged))
+   Public Shared ReadOnly SynchronizationManagerProperty As DependencyProperty = DependencyProperty.RegisterAttached("SynchronizationManager", GetType(SynchronizationManager), GetType(MultiSelectorBehaviours), New PropertyMetadata(Nothing))
+
+
+   Public Shared Function GetSynchronizedSelectedItems(ByVal dependencyObject As DependencyObject) As IList
+      Return CType(dependencyObject.GetValue(SynchronizedSelectedItemsProperty), IList)
+   End Function
+
+   Public Shared Sub SetSynchronizedSelectedItems(ByVal dependencyObject As DependencyObject, ByVal value As IList)
+      dependencyObject.SetValue(SynchronizedSelectedItemsProperty, value)
+   End Sub
+
+   Private Shared Function GetSynchronizationManager(ByVal dependencyObject As DependencyObject) As SynchronizationManager
+      Return CType(dependencyObject.GetValue(SynchronizationManagerProperty), SynchronizationManager)
+   End Function
+
+   Private Shared Sub SetSynchronizationManager(ByVal dependencyObject As DependencyObject, ByVal value As SynchronizationManager)
+      dependencyObject.SetValue(SynchronizationManagerProperty, value)
+   End Sub
+
+   Private Shared Sub OnSynchronizedSelectedItemsChanged(ByVal dependencyObject As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
+      If e.OldValue IsNot Nothing Then
+         Dim synchronizer As SynchronizationManager = GetSynchronizationManager(dependencyObject)
+         synchronizer.StopSynchronizing()
+         SetSynchronizationManager(dependencyObject, Nothing)
+      End If
+
+      Dim list As IList = TryCast(e.NewValue, IList)
+      Dim selector As Selector = TryCast(dependencyObject, Selector)
+
+      If list IsNot Nothing AndAlso selector IsNot Nothing Then
+         Dim synchronizer As SynchronizationManager = GetSynchronizationManager(dependencyObject)
+
+         If synchronizer Is Nothing Then
+            synchronizer = New SynchronizationManager(selector)
+            SetSynchronizationManager(dependencyObject, synchronizer)
+         End If
+
+         synchronizer.StartSynchronizingList()
+      End If
+   End Sub
+
+   Private Class SynchronizationManager
+      Private ReadOnly _multiSelector As Selector
+      Private _synchronizer As TwoListSynchronizer
+
+      Friend Sub New(ByVal selector As Selector)
+         _multiSelector = selector
+      End Sub
+
+      Public Sub StartSynchronizingList()
+         Dim list As IList = GetSynchronizedSelectedItems(_multiSelector)
+
+         If list IsNot Nothing Then
+            _synchronizer = New TwoListSynchronizer(GetSelectedItemsCollection(_multiSelector), list)
+            _synchronizer.StartSynchronizing()
+         End If
+      End Sub
+
+      Public Sub StopSynchronizing()
+         _synchronizer.StopSynchronizing()
+      End Sub
+
+      Public Shared Function GetSelectedItemsCollection(ByVal selector As Selector) As IList
+         If TypeOf selector Is MultiSelector Then
+            Return (TryCast(selector, MultiSelector)).SelectedItems
+         ElseIf TypeOf selector Is ListBox Then
+            Return (TryCast(selector, ListBox)).SelectedItems
+         Else
+            Throw New InvalidOperationException("Target object has no SelectedItems property to bind.")
+         End If
+      End Function
+   End Class
+End Class

DataGridMultiselectManaging/TwoListSynchronizer.vb

@@ -0,0 +1,163 @@
+Imports System.Collections.Specialized
+
+Public Class TwoListSynchronizer
+   Implements IWeakEventListener
+
+   Private Shared ReadOnly DefaultConverter As IListItemConverter = New DoNothingListItemConverter()
+   Private ReadOnly _masterList As IList
+   Private ReadOnly _masterTargetConverter As IListItemConverter
+   Private ReadOnly _targetList As IList
+
+   Public Sub New(ByVal masterList As IList, ByVal targetList As IList, ByVal masterTargetConverter As IListItemConverter)
+      _masterList = masterList
+      _targetList = targetList
+      _masterTargetConverter = masterTargetConverter
+   End Sub
+
+   Public Sub New(ByVal masterList As IList, ByVal targetList As IList)
+      Me.New(masterList, targetList, DefaultConverter)
+   End Sub
+
+   Private Delegate Sub ChangeListAction(ByVal list As IList, ByVal e As NotifyCollectionChangedEventArgs, ByVal converter As Converter(Of Object, Object))
+
+   Public Sub StartSynchronizing()
+      ListenForChangeEvents(_masterList)
+      ListenForChangeEvents(_targetList)
+      SetListValuesFromSource(_masterList, _targetList, New Converter(Of Object, Object)(AddressOf ConvertFromMasterToTarget))
+
+      If Not TargetAndMasterCollectionsAreEqual() Then
+         SetListValuesFromSource(_targetList, _masterList, New Converter(Of Object, Object)(AddressOf ConvertFromTargetToMaster))
+      End If
+   End Sub
+
+   Public Sub StopSynchronizing()
+      StopListeningForChangeEvents(_masterList)
+      StopListeningForChangeEvents(_targetList)
+   End Sub
+
+   Public Function ReceiveWeakEvent(ByVal managerType As Type, ByVal sender As Object, ByVal e As EventArgs) As Boolean Implements IWeakEventListener.ReceiveWeakEvent
+      HandleCollectionChanged(TryCast(sender, IList), TryCast(e, NotifyCollectionChangedEventArgs))
+      Return True
+   End Function
+
+   Protected Sub ListenForChangeEvents(ByVal list As IList)
+      If TypeOf list Is INotifyCollectionChanged Then
+         CollectionChangedEventManager.AddListener(TryCast(list, INotifyCollectionChanged), Me)
+      End If
+   End Sub
+
+   Protected Sub StopListeningForChangeEvents(ByVal list As IList)
+      If TypeOf list Is INotifyCollectionChanged Then
+         CollectionChangedEventManager.RemoveListener(TryCast(list, INotifyCollectionChanged), Me)
+      End If
+   End Sub
+
+   Private Sub AddItems(ByVal list As IList, ByVal e As NotifyCollectionChangedEventArgs, ByVal converter As Converter(Of Object, Object))
+      Dim itemCount As Integer = e.NewItems.Count
+
+      For i As Integer = 0 To itemCount - 1
+         Dim insertionPoint As Integer = e.NewStartingIndex + i
+
+         If insertionPoint > list.Count Then
+            list.Add(converter(e.NewItems(i)))
+         Else
+            list.Insert(insertionPoint, converter(e.NewItems(i)))
+         End If
+      Next
+   End Sub
+
+   Private Function ConvertFromMasterToTarget(ByVal masterListItem As Object) As Object
+      Return If(_masterTargetConverter Is Nothing, masterListItem, _masterTargetConverter.Convert(masterListItem))
+   End Function
+
+   Private Function ConvertFromTargetToMaster(ByVal targetListItem As Object) As Object
+      Return If(_masterTargetConverter Is Nothing, targetListItem, _masterTargetConverter.ConvertBack(targetListItem))
+   End Function
+
+   Private Sub HandleCollectionChanged(ByVal sender As Object, ByVal e As NotifyCollectionChangedEventArgs)
+      Dim sourceList As IList = TryCast(sender, IList)
+
+      Select Case e.Action
+         Case NotifyCollectionChangedAction.Add
+            PerformActionOnAllLists(AddressOf AddItems, sourceList, e)
+         Case NotifyCollectionChangedAction.Move
+            PerformActionOnAllLists(AddressOf MoveItems, sourceList, e)
+         Case NotifyCollectionChangedAction.Remove
+            PerformActionOnAllLists(AddressOf RemoveItems, sourceList, e)
+         Case NotifyCollectionChangedAction.Replace
+            PerformActionOnAllLists(AddressOf ReplaceItems, sourceList, e)
+         Case NotifyCollectionChangedAction.Reset
+            UpdateListsFromSource(TryCast(sender, IList))
+         Case Else
+      End Select
+   End Sub
+
+   Private Sub MoveItems(ByVal list As IList, ByVal e As NotifyCollectionChangedEventArgs, ByVal converter As Converter(Of Object, Object))
+      RemoveItems(list, e, converter)
+      AddItems(list, e, converter)
+   End Sub
+
+   Private Sub PerformActionOnAllLists(ByVal action As ChangeListAction, ByVal sourceList As IList, ByVal collectionChangedArgs As NotifyCollectionChangedEventArgs)
+      If sourceList Is _masterList Then
+         PerformActionOnList(_targetList, action, collectionChangedArgs, New Converter(Of Object, Object)(AddressOf ConvertFromMasterToTarget))
+      Else
+         PerformActionOnList(_masterList, action, collectionChangedArgs, New Converter(Of Object, Object)(AddressOf ConvertFromTargetToMaster))
+      End If
+   End Sub
+
+   Private Sub PerformActionOnList(ByVal list As IList, ByVal action As ChangeListAction, ByVal collectionChangedArgs As NotifyCollectionChangedEventArgs, ByVal converter As Converter(Of Object, Object))
+      StopListeningForChangeEvents(list)
+      action(list, collectionChangedArgs, converter)
+      ListenForChangeEvents(list)
+   End Sub
+
+   Private Sub RemoveItems(ByVal list As IList, ByVal e As NotifyCollectionChangedEventArgs, ByVal converter As Converter(Of Object, Object))
+      If e.OldItems.Count = 1 AndAlso e.OldStartingIndex <= list.Count - 1 Then
+         list.RemoveAt(e.OldStartingIndex)
+      Else
+         For Each Item In e.OldItems
+            list.Remove(Item)
+         Next
+      End If
+   End Sub
+
+   Private Sub ReplaceItems(ByVal list As IList, ByVal e As NotifyCollectionChangedEventArgs, ByVal converter As Converter(Of Object, Object))
+      RemoveItems(list, e, converter)
+      AddItems(list, e, converter)
+   End Sub
+
+   Private Sub SetListValuesFromSource(ByVal sourceList As IList, ByVal targetList As IList, ByVal converter As Converter(Of Object, Object))
+      StopListeningForChangeEvents(targetList)
+      targetList.Clear()
+
+      For Each o As Object In sourceList
+         targetList.Add(converter(o))
+      Next
+
+      ListenForChangeEvents(targetList)
+   End Sub
+
+   Private Function TargetAndMasterCollectionsAreEqual() As Boolean
+      Return _masterList.Cast(Of Object)().SequenceEqual(_targetList.Cast(Of Object)().[Select](Function(item) ConvertFromTargetToMaster(item)))
+   End Function
+
+   Private Sub UpdateListsFromSource(ByVal sourceList As IList)
+      If sourceList Is _masterList Then
+         SetListValuesFromSource(_masterList, _targetList, New Converter(Of Object, Object)(AddressOf ConvertFromMasterToTarget))
+      Else
+         SetListValuesFromSource(_targetList, _masterList, New Converter(Of Object, Object)(AddressOf ConvertFromTargetToMaster))
+      End If
+   End Sub
+
+   Friend Class DoNothingListItemConverter
+      Implements IListItemConverter
+
+      Public Function Convert(ByVal masterListItem As Object) As Object Implements IListItemConverter.Convert
+         Return masterListItem
+      End Function
+
+      Public Function ConvertBack(ByVal targetListItem As Object) As Object Implements IListItemConverter.ConvertBack
+         Return targetListItem
+      End Function
+   End Class
+End Class

DrawPanel/DrawPanelV.xaml

@@ -1,88 +1,100 @@
-<UserControl x:Class="DrawPanelV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5">
+<EgtFloating:EgtFloatingPanel x:Class="DrawPanelV"
+                              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+                              xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
+                              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+                              TitleBarOrientation="Vertical"
+                              Visibility="{Binding DrawPanel_Visibility}">
 
    <StackPanel Background="Transparent" MaxHeight="{Binding MaxHeight,RelativeSource={RelativeSource AncestorType={x:Type EgtFloating:EgtFloatingPanel}}}">
       <Expander Name="Draw2D" Style="{StaticResource ExpanderStyle}" Grid.Row="0"
-         IsExpanded="{Binding Draw2DIsExpanded}">
+                IsExpanded="{Binding Draw2DIsExpanded}">
          <Expander.Header>
             <TextBlock Text="{Binding Draw2DMsg}"/>
          </Expander.Header>
          <UniformGrid Columns="3">
             <Button ToolTip="{Binding PointToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding PointCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding PointCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/Point.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding Line2PToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Line2PCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding Line2PCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/Line2P.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding LinePDLToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding LinePDLCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding LinePDLCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/LinePDL.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ArcCSEToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ArcCSECommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ArcCSECommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/ArcCSE.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding Arc3PToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Arc3PCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding Arc3PCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/Arc3P.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ArcPDPToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ArcPDPCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ArcPDPCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/ArcPDP.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding CirclePDToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding CircleCPCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding CircleCPCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/CircleCP.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding Circle3PToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Circle3PCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding Circle3PCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/Circle3P.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding CircleCDToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding CircleCDCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding CircleCDCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/CircleCD.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding Rectangle2PToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Rectangle2PCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding Rectangle2PCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/Rectangle2P.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding PolygonToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding PolygonCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding PolygonCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/Polygon.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding PolygonSideToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding PolygonSideCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding PolygonSideCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/PolygonSide.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding TextToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding TextCommand}" IsEnabled="{Binding bLayerOk}">
-               <Image Source="/Resources/DrawPanel/Text.png" Stretch="Uniform"/>
-            </Button>
             <Button ToolTip="{Binding LinearDimensionToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding LinearDimensionCommand}" IsEnabled="{Binding bLayerOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding LinearDimensionCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/LinearDimension.png" Stretch="Uniform"/>
             </Button>
-            </UniformGrid>
+            <Button ToolTip="{Binding AngularDimensionToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding AngularDimensionCommand}" IsEnabled="{Binding bLayerOk}">
+               <Image Source="/Resources/DrawPanel/AngularDimension.png" Stretch="Uniform"/>
+            </Button>
+            <Button ToolTip="{Binding DiamRadDimensionToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding DiamRadDimensionCommand}" IsEnabled="{Binding bLayerOk}">
+               <Image Source="/Resources/DrawPanel/DiametralDimension.png" Stretch="Uniform"/>
+            </Button>
+            <Button ToolTip="{Binding TextToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding TextCommand}" IsEnabled="{Binding bLayerOk}">
+               <Image Source="/Resources/DrawPanel/Text.png" Stretch="Uniform"/>
+            </Button>
+         </UniformGrid>
       </Expander>
       <Expander Name="Draw3D" Style="{StaticResource ExpanderStyle}" Grid.Row="1"
                 Visibility="{Binding Draw3DVisibility}" IsExpanded="{Binding Draw3DIsExpanded}">
@@ -91,85 +103,95 @@
          </Expander.Header>
          <UniformGrid Columns="3">
             <Button ToolTip="{Binding PlaneToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding PlaneCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding PlaneCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
                <Image Source="/Resources/DrawPanel/Plane.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ExtrudeToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtrudeCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ExtrudeCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
                <Image Source="/Resources/DrawPanel/Extrude.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding RevolveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding RevolveCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding RevolveCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
                <Image Source="/Resources/DrawPanel/Revolve.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ScrewToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ScrewCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ScrewCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
                <Image Source="/Resources/DrawPanel/Screw.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding SweptToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SweptCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding SweptCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
                <Image Source="/Resources/DrawPanel/Swept.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding RuledToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding RuledCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding RuledCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
                <Image Source="/Resources/DrawPanel/Ruled.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding SolidAddSurfToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SolidAddSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding SolidAddSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/SolidAddSurf.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding SolidSubtractSurfToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SolidSubtractSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding SolidSubtractSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/SolidSubtractSurf.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding SolidIntersectSurfToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SolidIntersectSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding SolidIntersectSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/SolidIntersectSurf.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding IntersectSurfSurfToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding IntersectSurfSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding IntersectSurfSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/IntersectSurfSurf.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ExtractLoopsToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtractLoopsCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ExtractLoopsCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ExtractLoops.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ExtractFacetLoopsToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtractFacetLoopsCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ExtractFacetLoopsCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ExtractFacetLoops.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ExplodeSurfToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExplodeSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ExplodeSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ExplodeSurf.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ExtractSurfFacetToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtractSurfFacetCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ExtractSurfFacetCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ExtractSurfFacet.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding MergeSurfToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding MergeSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding MergeSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/MergeSurf.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding InvertSurfToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding InvertSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding InvertSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/InvertSurf.png" Stretch="Uniform"/>
             </Button>
+            <Button ToolTip="{Binding ApproxSurfToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ApproxSurfCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/ApproxSurf.png" Stretch="Uniform"/>
+            </Button>
+            <Button ToolTip="{Binding StmMoveVertexFacetToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding MoveStmVertexFacetCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/StmMoveVertex.png" Stretch="Uniform"/>
+            </Button>
          </UniformGrid>
       </Expander>
       <Expander Name="Modify" Style="{StaticResource ExpanderStyle}" Grid.Row="2" IsExpanded="{Binding ModifyIsExpanded}">
@@ -178,115 +200,123 @@
          </Expander.Header>
          <UniformGrid Columns="3">
             <Button ToolTip="{Binding DeleteToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding DeleteCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding DeleteCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Delete.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ChangeLayerToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChangeLayerCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ChangeLayerCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ChangeLayer.png" Stretch="Uniform"/>
             </Button>
-            <Button Style="{StaticResource DrawPanelButton}"
-                    Visibility="Hidden"/>
+            <Button ToolTip="{Binding ChangeStatusToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ChangeStatusCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/ChangeStatus.png" Stretch="Uniform"/>
+            </Button>
             <Button ToolTip="{Binding ChangeColorToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChangeColorCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ChangeColorCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ChangeColor.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ChangeAlphaToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChangeAlphaCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ChangeAlphaCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ChangeColorAlpha.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ResetColorToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ResetColorCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ResetColorCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/RemoveColor.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding InvertCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding InvertCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding InvertCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/InvertCurve.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ChangeStartToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChangeStartCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ChangeStartCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ChangeStart.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ThickCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True" 
-               Command="{Binding SetCurveThCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True" 
+                    Command="{Binding SetCurveThCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ThickCurve.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ExtendCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtendCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ExtendCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ExtendCurve.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding BreakCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding BreakCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding BreakCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/BreakCurve.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding SplitCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SplitCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding SplitCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/SplitCurve.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ExplodeCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExplodeCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ExplodeCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ExplodeCurve.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding JoinCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding JoinCurveCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding JoinCurveCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
                <Image Source="/Resources/DrawPanel/JoinCurve.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding OffsetToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding OffsetCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding OffsetCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Offset.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding FilletToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding FilletCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding FilletCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Fillet.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ChamferToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChamferCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ChamferCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Chamfer.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ArcFlipToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ArcFlipCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ArcFlipCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ArcFlip.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ModifyCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ModifyCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ModifyCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ModifyCurve.png" Stretch="Uniform"/>
-             </Button>
-             <Button ToolTip="{Binding AddPointCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-                ToolTipService.ShowOnDisabled="True"
-                Command="{Binding AddPointCurveCommand}" IsEnabled="{Binding bSelOk}">
-                <Image Source="/Resources/DrawPanel/AddPointCurve.png" Stretch="Uniform"/>
-             </Button>
-             <Button ToolTip="{Binding RemovePointCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-                ToolTipService.ShowOnDisabled="True"
-                Command="{Binding RemovePointCurveCommand}" IsEnabled="{Binding bSelOk}">
-                <Image Source="/Resources/DrawPanel/RemovePointCurve.png" Stretch="Uniform"/>
-             </Button>
+            </Button>
+            <Button ToolTip="{Binding AddPointCurveToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding AddPointCurveCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/AddPointCurve.png" Stretch="Uniform"/>
+            </Button>
+            <Button ToolTip="{Binding RemovePointCurveToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding RemovePointCurveCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/RemovePointCurve.png" Stretch="Uniform"/>
+            </Button>
             <Button ToolTip="{Binding ApproxCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ApproxCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ApproxCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ApproxCurve.png" Stretch="Uniform"/>
             </Button>
+            <Button ToolTip="{Binding ModifyArcRadiusToolTip}" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ModifyArcRadiusCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/ModifyArcRadius.png" Stretch="Uniform"/>
+            </Button>
             <Button ToolTip="{Binding ModifyTextToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ModifyTextCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ModifyTextCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ModifyText.png" Stretch="Uniform"/>
             </Button>
          </UniformGrid>
@@ -297,8 +327,8 @@
          </Expander.Header>
          <UniformGrid Columns="3">
             <Button ToolTip="{Binding MoveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding MoveCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding MoveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Move.png" Stretch="Uniform"/>
             </Button>
             <Button Style="{StaticResource DrawPanelButton}"
@@ -306,33 +336,33 @@
             <Button Style="{StaticResource DrawPanelButton}"
                     Visibility="Hidden"/>
             <Button ToolTip="{Binding RotateToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding RotateCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding RotateCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Rotate.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding MirrorToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding MirrorCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding MirrorCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Mirror.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ScaleToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ScaleCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ScaleCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Scale.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding Rotate3DToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Rotate3DCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding Rotate3DCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Rotate3D.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding Mirror3DToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Mirror3DCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding Mirror3DCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Mirror3D.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding Scale3DToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Scale3DCommand}" IsEnabled="{Binding bSelOk}">
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding Scale3DCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Scale3D.png" Stretch="Uniform"/>
             </Button>
          </UniformGrid>
@@ -342,4 +372,4 @@
       </Interactivity:Interaction.Behaviors>
    </StackPanel>
 
-</UserControl>
+</EgtFloating:EgtFloatingPanel>

DrawPanel/DrawPanelVM.vb

@@ -11,22 +11,22 @@ Public Class DrawPanelVM
 
    Public ReadOnly Property Draw2DMsg As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 44)
+         Return EgtMsg(5244)     ' Disegno 2D
       End Get
    End Property
    Public ReadOnly Property Draw3DMsg As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 45)
+         Return EgtMsg(5245)     ' Disegno 3D
       End Get
    End Property
    Public ReadOnly Property ModifyMsg As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 46)
+         Return EgtMsg(5246)     ' Modifica
       End Get
    End Property
    Public ReadOnly Property TransformMsg As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 47)
+         Return EgtMsg(5247)     ' Trasforma
       End Get
    End Property
 
@@ -37,300 +37,331 @@ Public Class DrawPanelVM
    'Proprietà ToolTip
    Public ReadOnly Property PointToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 1)
+         Return EgtMsg(5201)     ' Punto<br/>Vettore (Shift)<br/>Riferimento (Ctrl)
       End Get
    End Property
    Public ReadOnly Property Line2PToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 2)
+         Return EgtMsg(5202)     ' Linea 2 Punti<br/>Linea 2 Punti con Continuazione (Ctrl)
       End Get
    End Property
    Public ReadOnly Property LinePDLToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 3)
+         Return EgtMsg(5203)     ' Linea Punto Direzione Lunghezza<br/>Linea Punto Vettore Direzione Lunghezza (Shift)
       End Get
    End Property
    Public ReadOnly Property CirclePDToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 4)
+         Return EgtMsg(5204)     ' Cerchio Centro Punto
       End Get
    End Property
    Public ReadOnly Property CircleCDToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 5)
+         Return EgtMsg(5205)     ' Cerchio Centro Diametro
       End Get
    End Property
    Public ReadOnly Property Circle3PToolTip As String
       Get
-         Return EgtMsg(5156)
+         Return EgtMsg(5156)     ' Cerchio 3 Punti
       End Get
    End Property
    Public ReadOnly Property ArcCSEToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 6)
+         Return EgtMsg(5206)     ' Arco Centro Punti Inizio e Fine
       End Get
    End Property
    Public ReadOnly Property Arc3PToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 7)
+         Return EgtMsg(5207)     ' Arco 3 Punti<br/>Arco 2 Punti Raggio (Shift)
       End Get
    End Property
    Public ReadOnly Property ArcPDPToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 8)
+         Return EgtMsg(5208)     ' Arco Punto e Direzione Inizio Punto Fine<br/>Arco Punto e Vettore Direzione Inizio Punto Fine (Shift)<br/>Arco Punto e Direzione Inizio Punto Fine con Continuazione (Ctrl)
       End Get
    End Property
    Public ReadOnly Property Rectangle2PToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 11)
+         Return EgtMsg(5211)     ' Rettangolo 2 Punti
       End Get
    End Property
    Public ReadOnly Property PolygonToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 12)
+         Return EgtMsg(5212)     ' Poligono
       End Get
    End Property
    Public ReadOnly Property PolygonSideToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 13)
+         Return EgtMsg(5213)     ' Poligono da Lato
       End Get
    End Property
    Public ReadOnly Property TextToolTip As String
       Get
-         Return EgtMsg( 5214)
+         Return EgtMsg(5214)    ' Testo<br/>Testo Avanzato (Shift)
       End Get
    End Property
    Public ReadOnly Property LinearDimensionToolTip As String
       Get
-         Return EgtMsg( 5155)
+         Return EgtMsg(5155)    ' Quota Lineare<br/>Quota Allineata (Shift)
+      End Get
+   End Property
+   Public ReadOnly Property AngularDimensionToolTip As String
+      Get
+         Return EgtMsg(5167)     ' Quota Angolare<br/>Quota Angolare Avanzata (Shift)
+      End Get
+   End Property
+   Public ReadOnly Property DiamRadDimensionToolTip As String
+      Get
+         Return EgtMsg(5168)     ' Quota Diametrale<br/>Quota Radiale (Shift)
       End Get
    End Property
 
    Public ReadOnly Property PlaneToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 15)
+         Return EgtMsg(5215)     ' Piano contornato<br/>Regione piana (Shift)
       End Get
    End Property
    Public ReadOnly Property ExtrudeToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 16)
+         Return EgtMsg(5216)     ' Estrusione
       End Get
    End Property
    Public ReadOnly Property RevolveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 17)
+         Return EgtMsg(5217)     ' Rivoluzione
       End Get
    End Property
    Public ReadOnly Property ScrewToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 18)
+         Return EgtMsg(5218)     ' Avvitamento
       End Get
    End Property
    Public ReadOnly Property SweptToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 48)
+         Return EgtMsg(5248)     ' Swept (Sezione, Guida)
       End Get
    End Property
    Public ReadOnly Property RuledToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 19)
+         Return EgtMsg(5219)     ' Rigata
       End Get
    End Property
    Public ReadOnly Property MergeSurfToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 20)
+         Return EgtMsg(5220)     ' Unisci Superfici
       End Get
    End Property
    Public ReadOnly Property ExplodeSurfToolTip As String
       Get
-         Return EgtMsg( 5221)         'Esplodi Superfici e Regioni Piane
+         Return EgtMsg(5221)     ' Esplodi Superfici e Regioni Piane
+      End Get
+   End Property
+   Public ReadOnly Property ApproxSurfToolTip As String
+      Get
+         Return EgtMsg(5165)    ' Approssima Superfici e Regioni Piane
+      End Get
+   End Property
+   Public ReadOnly Property StmMoveVertexFacetToolTip As String
+      Get
+         Return EgtMsg(5166)     ' Muovi Vertice di Superficie<br/>Muovi Faccia di Superficie (Shift)
       End Get
    End Property
    Public ReadOnly Property ExtractSurfFacetToolTip As String
       Get
-         Return EgtMsg( 5158)         'Estrai Faccia da Superficie
+         Return EgtMsg(5158)     ' Estrai Faccia da Superficie
       End Get
    End Property
    Public ReadOnly Property InvertSurfToolTip As String
       Get
-         Return EgtMsg( 5222)         'Inverti Superfici e Regioni Piane
+         Return EgtMsg(5222)     ' Inverti Superfici e Regioni Piane
       End Get
    End Property
    Public ReadOnly Property ExtractLoopsToolTip As String
       Get
-         Return EgtMsg( 5150)         'Estrai Bordi Liberi di Superfici e Regioni Piane
+         Return EgtMsg(5150)     ' Estrai Bordi Liberi di Superfici e Regioni Piane
       End Get
    End Property
    Public ReadOnly Property ExtractFacetLoopsToolTip As String
       Get
-         Return EgtMsg( 5157)         'Estrai Bordi di Faccia di superficie e di Parti di Regioni Piane
+         Return EgtMsg(5157)     ' Estrai Bordi di Faccia di superficie e di Parti di Regioni Piane
       End Get
    End Property
    Public ReadOnly Property SolidAddSurfToolTip As String
       Get
-         Return EgtMsg( 5151)         'Unisci Superfici e Regioni Piane
+         Return EgtMsg(5151)     ' Unisci Superfici e Regioni Piane
       End Get
    End Property
    Public ReadOnly Property SolidSubtractSurfToolTip As String
       Get
-         Return EgtMsg( 5152)         'Sottrai Superfici e Regioni Piane
+         Return EgtMsg(5152)     ' Sottrai Superfici e Regioni Piane
       End Get
    End Property
    Public ReadOnly Property SolidIntersectSurfToolTip As String
       Get
-         Return EgtMsg( 5153)         'Interseca Superfici e Regioni Piane
+         Return EgtMsg(5153)     ' Interseca Superfici e Regioni Piane
       End Get
    End Property
    Public ReadOnly Property IntersectSurfSurfToolTip As String
       Get
-         Return EgtMsg( 5154)         'Punti, Curve e Facce di Intersezione Tra Superfici
+         Return EgtMsg(5154)     ' Punti, Curve e Facce di Intersezione Tra Superfici
       End Get
    End Property
 
    Public ReadOnly Property DeleteToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 23)
+         Return EgtMsg(5223)     ' Cancella
       End Get
    End Property
    Public ReadOnly Property ChangeLayerToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 24)
+         Return EgtMsg(5224)     ' Cambia Layer<br/>Cambia Layer con Trasformazioni (Shift)
       End Get
    End Property
+   Public ReadOnly Property ChangeStatusToolTip As String
+      Get
+         Return EgtMsg(5250)     ' Nascondi<br/>Visualizza Layer (Shift)<br/>Visualizza Pezzo (Ctrl)
+      End Get
+   End Property
+
    Public ReadOnly Property ChangeAlphaToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 25)
+         Return EgtMsg(5225)     ' Cambia Trasparenza
       End Get
    End Property
    Public ReadOnly Property ResetColorToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 26)
+         Return EgtMsg(5226)     ' Annulla Colore
       End Get
    End Property
    Public ReadOnly Property ChangeColorToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 27)
+         Return EgtMsg(5227)     ' Cambia Colore
       End Get
    End Property
    Public ReadOnly Property InvertCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 28)
+         Return EgtMsg(5228)     ' Inverti Curva
       End Get
    End Property
    Public ReadOnly Property ChangeStartToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 29)
+         Return EgtMsg(5229)     ' Cambia Punto Iniziale di Curva Chiusa
       End Get
    End Property
    Public ReadOnly Property ExtendCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 30)
+         Return EgtMsg(5230)     ' Estendi o Accorcia Curva
       End Get
    End Property
    Public ReadOnly Property BreakCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 31)
+         Return EgtMsg(5231)     ' Spezza Curva
       End Get
    End Property
    Public ReadOnly Property SplitCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 32)
+         Return EgtMsg(5232)     ' Dividi Curva
       End Get
    End Property
    Public ReadOnly Property JoinCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 33)
+         Return EgtMsg(5233)     ' Unisci Curve<br/>Unisci Curve creando una Copia (Shift)<br/>Fondi Curve nella Composita (Ctrl)
       End Get
    End Property
    Public ReadOnly Property ExplodeCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 34)
+         Return EgtMsg(5234)     ' Esplodi Curve e Testi
       End Get
    End Property
    Public ReadOnly Property ThickCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 35)
+         Return EgtMsg(5235)     ' Spessore e Estrusione Curva
       End Get
    End Property
    Public ReadOnly Property FilletToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 9)
+         Return EgtMsg(5209)     ' Raccordo
       End Get
    End Property
    Public ReadOnly Property ChamferToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 10)
+         Return EgtMsg(5210)     ' Smusso
       End Get
    End Property
    Public ReadOnly Property ArcFlipToolTip As String
       Get
-         Return EgtMsg( 5159)
+         Return EgtMsg(5159)     ' Arco Capovolto<br/>Arco Esplementare (Shift)
       End Get
    End Property
    Public ReadOnly Property OffsetToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 43)
+         Return EgtMsg(5243)     ' Offset
       End Get
    End Property
    Public ReadOnly Property ModifyCurveToolTip As String
       Get
-         Return EgtMsg( 5160)
+         Return EgtMsg(5160)     ' Modifica forma
       End Get
    End Property
    Public ReadOnly Property AddPointCurveToolTip As String
       Get
-         Return EgtMsg( 5161)
+         Return EgtMsg(5161)     ' Aggiungi Punto<br/>Trasforma in Arco (Shift)<br/>Chiudi Curva Composita (Ctrl)
       End Get
    End Property
    Public ReadOnly Property RemovePointCurveToolTip As String
       Get
-         Return EgtMsg( 5162)
+         Return EgtMsg(5162)     ' Rimuovi Punto<br/>Trasforma in Retta (Shift)<br/>Apri Curva Composita (Ctrl)
       End Get
    End Property
    Public ReadOnly Property ApproxCurveToolTip As String
       Get
-         Return EgtMsg( 5163)
+         Return EgtMsg(5163)     ' Approssima Curva<br/>Approssima Curva con Linee (Shift)
+      End Get
+   End Property
+   Public ReadOnly Property ModifyArcRadiusToolTip As String
+      Get
+         Return EgtMsg(5164)     ' Modifica Raggio di Arco o Circonferenza
       End Get
    End Property
    Public ReadOnly Property ModifyTextToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 49)
+         Return EgtMsg(5249)     ' Modifica Testo
       End Get
    End Property
 
    Public ReadOnly Property MoveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 36)
+         Return EgtMsg(5236)     ' Muovi
       End Get
    End Property
    Public ReadOnly Property RotateToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 37)
+         Return EgtMsg(5237)     ' Ruota
       End Get
    End Property
    Public ReadOnly Property Rotate3DToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 38)
+         Return EgtMsg(5238)     ' Ruota 3D
       End Get
    End Property
    Public ReadOnly Property MirrorToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 39)
+         Return EgtMsg(5239)     ' Specchia
       End Get
    End Property
    Public ReadOnly Property Mirror3DToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 40)
+         Return EgtMsg(5240)     ' Specchia 3D
       End Get
    End Property
    Public ReadOnly Property ScaleToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 41)
+         Return EgtMsg(5241)     ' Scala
       End Get
    End Property
    Public ReadOnly Property Scale3DToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 42)
+         Return EgtMsg(5242)     ' Scala 3D
       End Get
    End Property
 
@@ -383,6 +414,17 @@ Public Class DrawPanelVM
       End Set
    End Property
 
+   Private m_DrawPanel_Visibility As Visibility
+   Public ReadOnly Property DrawPanel_Visibility As Visibility
+      Get
+         Return m_DrawPanel_Visibility
+      End Get
+   End Property
+   Friend Sub SetDrawPanelVisibility(bValue As Boolean)
+      m_DrawPanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
+      OnPropertyChanged(NameOf(DrawPanel_Visibility))
+   End Sub
+
 #Region "Button state"
 
    Private m_bLayerOk As Boolean
@@ -392,7 +434,7 @@ Public Class DrawPanelVM
       End Get
       Set(value As Boolean)
          m_bLayerOk = value
-         OnPropertyChanged("bLayerOk")
+         OnPropertyChanged(NameOf(bLayerOk))
       End Set
    End Property
    Private m_bSelOk As Boolean
@@ -402,7 +444,7 @@ Public Class DrawPanelVM
       End Get
       Set(value As Boolean)
          m_bSelOk = value
-         OnPropertyChanged("bSelOk")
+         OnPropertyChanged(NameOf(bSelOk))
       End Set
    End Property
    Private m_bLayerOkAndSelOk As Boolean
@@ -412,7 +454,7 @@ Public Class DrawPanelVM
       End Get
       Set(value As Boolean)
          m_bLayerOkAndSelOk = value
-         OnPropertyChanged("bLayerOkAndSelOk")
+         OnPropertyChanged(NameOf(bLayerOkAndSelOk))
       End Set
    End Property
 
@@ -433,6 +475,8 @@ Public Class DrawPanelVM
    Private m_cmdPolygonSide As ICommand
    Private m_cmdText As ICommand
    Private m_cmdLinDim As ICommand
+   Private m_cmdAngDim As ICommand
+   Private m_cmdDiamRadDim As ICommand
    Private m_cmdModifyCurve As ICommand
    Private m_cmdAddPointCurve As ICommand
    Private m_cmdPlane As ICommand
@@ -443,6 +487,8 @@ Public Class DrawPanelVM
    Private m_cmdRuled As ICommand
    Private m_cmdMergeSurf As ICommand
    Private m_cmdExplodeSurf As ICommand
+   Private m_cmdApproxSurf As ICommand
+   Private m_cmdMoveStmVertexFacet As ICommand
    Private m_cmdExtractSurfFacet As ICommand
    Private m_cmdInvertSurf As ICommand
    Private m_cmdExtractLoops As ICommand
@@ -453,6 +499,7 @@ Public Class DrawPanelVM
    Private m_cmdIntersectSurfSurf As ICommand
    Private m_cmdDelete As ICommand
    Private m_cmdChangeLayer As ICommand
+   Private m_cmdChangeStatus As ICommand
    Private m_cmdChangeAlpha As ICommand
    Private m_cmdResetColor As ICommand
    Private m_cmdChangeColor As ICommand
@@ -467,6 +514,7 @@ Public Class DrawPanelVM
    Private m_cmdFillet As ICommand
    Private m_cmdChamfer As ICommand
    Private m_cmdArcFlip As ICommand
+   Private m_cmdModifyArcRadius As ICommand
    Private m_cmdModifyText As ICommand
    Private m_cmdMove As ICommand
    Private m_cmdRotate As ICommand
@@ -690,7 +738,11 @@ Public Class DrawPanelVM
    ''' Execute the Arc3P.  This method is invoked by the Arc3PCommand.
    ''' </summary>
    Public Sub Arc3P(ByVal param As Object)
-      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARC3P)
+      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARC2PR)
+      Else
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARC3P)
+      End If
    End Sub
 
 #End Region ' Arc3PCommand
@@ -713,13 +765,13 @@ Public Class DrawPanelVM
    ''' Execute the ArcPDP.  This method is invoked by the ArcPDPCommand.
    ''' </summary>
    Public Sub ArcPDP(ByVal param As Object)
-      If (Keyboard.Modifiers And ModifierKeys.Shift) <> ModifierKeys.Shift Then
-         If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
-            Map.refProjectVM.GetController.SetContinue()
-         End If
+      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCPVP)
+      ElseIf (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
+         Map.refProjectVM.GetController.SetContinue()
          Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCPDP)
       Else
-         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCPVP)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ARCPDP)
       End If
    End Sub
 
@@ -848,6 +900,60 @@ Public Class DrawPanelVM
 
 #End Region ' LinearDimensionCommand
 
+#Region "AngularDimensionCommand"
+
+   ''' <summary>
+   ''' Returns a command that do Angular Dimension.
+   ''' </summary>
+   Public ReadOnly Property AngularDimensionCommand As ICommand
+      Get
+         If m_cmdAngDim Is Nothing Then
+            m_cmdAngDim = New RelayCommand(AddressOf AngularDimension)
+         End If
+         Return m_cmdAngDim
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the AngularDimension.  This method is invoked by the AngDimCommand.
+   ''' </summary>
+   Public Sub AngularDimension(ByVal param As Object)
+      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ANGULARDIMENSIONPLUS)
+      Else
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.ANGULARDIMENSION)
+      End If
+   End Sub
+
+#End Region ' AngularDimensionCommand
+
+#Region "DiamRadDimensionCommand"
+
+   ''' <summary>
+   ''' Returns a command that do DiamRad Dimension.
+   ''' </summary>
+   Public ReadOnly Property DiamRadDimensionCommand As ICommand
+      Get
+         If m_cmdDiamRadDim Is Nothing Then
+            m_cmdDiamRadDim = New RelayCommand(AddressOf DiamRadDimension)
+         End If
+         Return m_cmdDiamRadDim
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the DiamRadDimension.  This method is invoked by the DiamRadDimCommand.
+   ''' </summary>
+   Public Sub DiamRadDimension(ByVal param As Object)
+      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.RADIALDIMENSION)
+      Else
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.DIAMETRALDIMENSION)
+      End If
+   End Sub
+
+#End Region ' DiamRadDimensionCommand
+
 #Region "ModifyCurve"
 
    ''' <summary>
@@ -1140,7 +1246,7 @@ Public Class DrawPanelVM
    ''' </summary>
    Public Sub ExplodeSurf(ByVal param As Object)
       If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXTRACTSURFFACET)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.SURFTMTOTRIANGLES)
       Else
          Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXPLODESURF)
       End If
@@ -1148,6 +1254,56 @@ Public Class DrawPanelVM
 
 #End Region ' ExplodeSurfCommand
 
+#Region "ApproxSurfCommand"
+
+   ''' <summary>
+   ''' Returns a command that do ApproxSurf.
+   ''' </summary>
+   Public ReadOnly Property ApproxSurfCommand As ICommand
+      Get
+         If m_cmdApproxSurf Is Nothing Then
+            m_cmdApproxSurf = New RelayCommand(AddressOf ApproxSurf)
+         End If
+         Return m_cmdApproxSurf
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the ApproxSurf.  This method is invoked by the ApproxSurfCommand.
+   ''' </summary>
+   Public Sub ApproxSurf(ByVal param As Object)
+      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.APPROXSURF)
+   End Sub
+
+#End Region ' ApproxSurfCommand
+
+#Region "MoveStmVertexFacetCommand"
+
+   ''' <summary>
+   ''' Returns a command that do MoveStmVertex.
+   ''' </summary>
+   Public ReadOnly Property MoveStmVertexFacetCommand As ICommand
+      Get
+         If m_cmdMoveStmVertexFacet Is Nothing Then
+            m_cmdMoveStmVertexFacet = New RelayCommand(AddressOf MoveStmVertexFacet)
+         End If
+         Return m_cmdMoveStmVertexFacet
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the MoveStmVertexFacet.  This method is invoked by the MoveStmVertexFacetCommand.
+   ''' </summary>
+   Public Sub MoveStmVertexFacet(ByVal param As Object)
+      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MOVESURFFACET)
+      Else
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MOVESURFVERTEX)
+      End If
+   End Sub
+
+#End Region ' MoveStmVertexFacetCommand
+
 #Region "ExtractSurfFacetCommand"
 
    ''' <summary>
@@ -1169,7 +1325,7 @@ Public Class DrawPanelVM
       Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.EXTRACTSURFFACET)
    End Sub
 
-#End Region ' ExplodeSurfCommand
+#End Region ' ExtractSurfFacetCommand
 
 #Region "InvertSurfCommand"
 
@@ -1391,6 +1547,41 @@ Public Class DrawPanelVM
 
 #End Region ' ChangeLayerCommand
 
+#Region "ChangeStatusCommand"
+
+   ''' <summary>
+   ''' Returns a command that do ChangeStatus.
+   ''' </summary>
+   Public ReadOnly Property ChangeStatusCommand As ICommand
+      Get
+         If m_cmdChangeStatus Is Nothing Then
+            m_cmdChangeStatus = New RelayCommand(AddressOf ChangeStatus)
+         End If
+         Return m_cmdChangeStatus
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the ChangeStatus.  This method is invoked by the ChangeStatusCommand.
+   ''' </summary>
+   Public Sub ChangeStatus(ByVal param As Object)
+      If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control Then
+         Map.refProjectVM.GetController.SetLastInteger( GDB_ID.SELPART)
+         Map.refProjectVM.GetController.SetLastBoolean( True)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGESTATUS)
+      ElseIf (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
+         Map.refProjectVM.GetController.SetLastInteger( GDB_ID.SELLAYER)
+         Map.refProjectVM.GetController.SetLastBoolean( True)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGESTATUS)
+      Else
+         Map.refProjectVM.GetController.SetLastInteger( GDB_ID.SEL)
+         Map.refProjectVM.GetController.SetLastBoolean( False)
+         Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.CHANGESTATUS)
+      End If
+   End Sub
+
+#End Region ' ChangeStatusCommand
+
 #Region "ChangeAlphaCommand"
 
    ''' <summary>
@@ -1726,6 +1917,29 @@ Public Class DrawPanelVM
 
 #End Region ' ArcFlipCommand
 
+#Region "ModifyArcRadiusCommand"
+
+   ''' <summary>
+   ''' Returns a command that do ModifyArcRadius.
+   ''' </summary>
+   Public ReadOnly Property ModifyArcRadiusCommand As ICommand
+      Get
+         If m_cmdModifyArcRadius Is Nothing Then
+            m_cmdModifyArcRadius = New RelayCommand(AddressOf ModifyArcRadius)
+         End If
+         Return m_cmdModifyArcRadius
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute the ModifyArcRadius.  This method is invoked by the ModifyArcRadiusCommand.
+   ''' </summary>
+   Public Sub ModifyArcRadius(ByVal param As Object)
+      Map.refProjectVM.GetController.ExecuteCommand(Controller.CMD.MODIFYARCRADIUS)
+   End Sub
+
+#End Region ' ModifyTextCommand
+
 #Region "ModifyTextCommand"
 
    ''' <summary>

EgtCAM5.vbproj

@@ -97,27 +97,31 @@
     <ApplicationManifest>app.manifest</ApplicationManifest>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="EgtUILib">
+    <Reference Include="DotNetZip">
+      <HintPath>..\..\EgtProg\EgtCAM5\DotNetZip.dll</HintPath>
+    </Reference>
+    <Reference Include="EgtUILib, Version=2.4.6.1, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\EgtProg\DllD32\EgtUILib.dll</HintPath>
-      <Private>False</Private>
     </Reference>
-    <Reference Include="EgtWPFLib5">
+    <Reference Include="EgtWPFLib, Version=2.4.5.1, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\EgtProg\DllD32\EgtWPFLib.dll</HintPath>
+    </Reference>
+    <Reference Include="EgtWPFLib5, Version=2.4.6.1, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\EgtProg\DllD32\EgtWPFLib5.dll</HintPath>
-      <Private>False</Private>
-    </Reference>
-    <Reference Include="Ionic.Zip">
-      <HintPath>..\..\EgtProg\EgtCAM5\Ionic.Zip.dll</HintPath>
     </Reference>
     <Reference Include="Microsoft.Expression.Interactions, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
       <SpecificVersion>False</SpecificVersion>
       <HintPath>..\..\EgtProg\EgtCAM5\Microsoft.Expression.Interactions.dll</HintPath>
     </Reference>
+    <Reference Include="System.ComponentModel.Composition" />
     <Reference Include="System.Core" />
     <Reference Include="System.Drawing" />
     <Reference Include="System.Windows.Forms" />
     <Reference Include="System.Windows.Interactivity, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\EgtProg\EgtCAM5\System.Windows.Interactivity.dll</HintPath>
+      <HintPath>packages\EgtWPFLib5.2.4.6.1\lib\System.Windows.Interactivity.dll</HintPath>
     </Reference>
     <Reference Include="System.Xml.Linq" />
     <Reference Include="System.Data.DataSetExtensions" />
@@ -150,16 +154,37 @@
     <Compile Include="BeamMachiningsWindow\BeamMachiningsWindowV.xaml.vb">
       <DependentUpon>BeamMachiningsWindowV.xaml</DependentUpon>
     </Compile>
-    <Compile Include="BeamMachiningsWindow\BeamMachiningsWindowVM.vb" />
+    <Compile Include="BottomTray\BottomTrayV.xaml.vb">
+      <DependentUpon>BottomTrayV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="CurrSetUp\CurrSetUpV.xaml.vb">
       <DependentUpon>CurrSetUpV.xaml</DependentUpon>
     </Compile>
     <Compile Include="CurrSetUp\CurrSetUpVM.vb" />
+    <Compile Include="EgtColorPicker\EgtColorPickerV.xaml.vb">
+      <DependentUpon>EgtColorPickerV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="EgtManageFileDialog\EgtManageFileDialogV.xaml.vb">
+      <DependentUpon>EgtManageFileDialogV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="EgtMessageBox\EgtMessageBoxV.xaml.vb">
+      <DependentUpon>EgtMessageBoxV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="DataGridMultiselectManaging\IListItemConverter.vb" />
+    <Compile Include="DataGridMultiselectManaging\MultiSelectorBehaviours.vb" />
+    <Compile Include="DataGridMultiselectManaging\TwoListSynchronizer.vb" />
+    <Compile Include="LeftTray\LeftTrayV.xaml.vb">
+      <DependentUpon>LeftTrayV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="MachGroupPanel\MyMachGroupPanelVM.vb" />
+    <Compile Include="MEFPlugin\MefPlugin.vb" />
     <Compile Include="OptionPanel\MachiningOptionPanel\EstimationsExpander\EstimationsExpanderV.xaml.vb">
       <DependentUpon>EstimationsExpanderV.xaml</DependentUpon>
     </Compile>
     <Compile Include="OptionPanel\MachiningOptionPanel\EstimationsExpander\EstimationsExpander.vb" />
+    <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\FiveAxisMachinigParameterExpanderV.xaml.vb">
+      <DependentUpon>FiveAxisMachinigParameterExpanderV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\SurfFinishingParameterExpanderV.xaml.vb">
       <DependentUpon>SurfFinishingParameterExpanderV.xaml</DependentUpon>
     </Compile>
@@ -178,6 +203,9 @@
     <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\StoneDrillingParameterExpanderV.xaml.vb">
       <DependentUpon>StoneDrillingParameterExpanderV.xaml</DependentUpon>
     </Compile>
+    <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\SurfRoughingParameterExpanderV.xaml.vb">
+      <DependentUpon>SurfRoughingParameterExpanderV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\WoodDrillingParameterExpanderV.xaml.vb">
       <DependentUpon>WoodDrillingParameterExpanderV.xaml</DependentUpon>
     </Compile>
@@ -225,6 +253,12 @@
     <Compile Include="OptionsWindow\MachineBox.xaml.vb">
       <DependentUpon>MachineBox.xaml</DependentUpon>
     </Compile>
+    <Compile Include="RightTray\RightTrayV.xaml.vb">
+      <DependentUpon>RightTrayV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="SceneContentControl\SceneContentControlV.xaml.vb">
+      <DependentUpon>SceneContentControlV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="SetUpDb\SetUpDbV.xaml.vb">
       <DependentUpon>SetUpDbV.xaml</DependentUpon>
     </Compile>
@@ -272,7 +306,11 @@
     </Compile>
     <Compile Include="StatusBar\MyStatusBarVM.vb" />
     <Compile Include="ToolsDbWindow\MyToolDbWindowVM.vb" />
+    <Compile Include="TopTray\TopTrayV.xaml.vb">
+      <DependentUpon>TopTrayV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="Utility\Analyze.vb" />
+    <Compile Include="Utility\BasePanelVM.vb" />
     <Compile Include="Utility\BindingProxy.vb" />
     <Compile Include="Utility\Map.vb" />
     <Compile Include="Internals\MruList.vb" />
@@ -344,7 +382,6 @@
       <DependentUpon>MachiningParameterExpanderV.xaml</DependentUpon>
     </Compile>
     <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\OperationListBoxItem\OperationListBoxItem.vb" />
-    <Compile Include="OptionPanel\MachiningOptionPanel\SimulationExpander\MachineAxis.vb" />
     <Compile Include="PopUpGridPanel\PopUpGridPanelV.xaml.vb">
       <DependentUpon>PopUpGridPanelV.xaml</DependentUpon>
     </Compile>
@@ -400,7 +437,6 @@
       <DependentUpon>GunStockWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="Special-GunStock\GunStockWndVM.vb" />
-    <Compile Include="Utility\TMDbParamVisibility.vb" />
     <Compile Include="StructureDataForMessenger.vb" />
     <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\DispositionParameterExpander\DispositionUtility.vb" />
     <Compile Include="ToolsDbWindow\ToolsUpdate.vb" />
@@ -411,6 +447,10 @@
     <Compile Include="Utility\Utility.vb" />
     <Compile Include="Utility\VMBase.vb" />
     <Compile Include="ValidationGroup.vb" />
+    <Compile Include="WinFormPluginControl\WinFormPluginControlVM.vb" />
+    <Compile Include="WinFormPluginControl\WinFormPluginControlV.xaml.vb">
+      <DependentUpon>WinFormPluginControlV.xaml</DependentUpon>
+    </Compile>
     <Page Include="AboutBoxWindow\AboutBoxView.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -419,14 +459,34 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="BottomTray\BottomTrayV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="CurrSetUp\CurrSetUpV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="EgtColorPicker\EgtColorPickerV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>XamlIntelliSenseFileGenerator</Generator>
+    </Page>
+    <Page Include="EgtManageFileDialog\EgtManageFileDialogV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="EgtMessageBox\EgtMessageBoxV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="EstimationsDetailsWnd\EstimationsDetailsWndV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="LeftTray\LeftTrayV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="MachOptionsWindow\MachOptionV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -435,6 +495,10 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\FiveAxisMachinigParameterExpanderV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\SurfFinishingParameterExpanderV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
@@ -459,6 +523,10 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\SurfRoughingParameterExpanderV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\WoodDrillingParameterExpanderV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
@@ -515,6 +583,14 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="RightTray\RightTrayV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="SceneContentControl\SceneContentControlV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="SetUpDb\SetUpDbV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -579,6 +655,10 @@
       <SubType>Designer</SubType>
       <Generator>XamlIntelliSenseFileGenerator</Generator>
     </Page>
+    <Page Include="TopTray\TopTrayV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="Utility\Dictionary.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
@@ -671,6 +751,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="WinFormPluginControl\WinFormPluginControlV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
   </ItemGroup>
   <ItemGroup>
     <Import Include="System.Linq" />
@@ -943,6 +1027,76 @@
   <ItemGroup>
     <Resource Include="Resources\DrawPanel\ApproxCurve.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\ModifyArcRadius.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\ApproxSurf.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\TopCommandBar\Print.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtCAM5_64.ico" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\Note\+.png" />
+    <Resource Include="Resources\Note\-.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\AngularDimension.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\DiametralDimension.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\ChangeStatus.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\GridViewPanel\CplaneINVERT.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\StmMoveVertex.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Error.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Information.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Question.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Warning.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Folder.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\New.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Restore.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Root.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Asterisk.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Exclamation.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Hand.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\AboutBox\EgalwareLogo.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\Egalware.ico" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtCAM5\EgtCAM5R32.exe

EgtColorPicker/EgtColorPickerV.xaml

@@ -0,0 +1,266 @@
+<EgtWPFLib5:EgtCustomWindow x:Class="EgtColorPickerV"
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding sTitle}"
+                            WindowStartupLocation="CenterOwner"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="32"
+                            IsMinimizable="False" ShowInTaskbar="False"
+                            Width="750" Height="450"
+                            CloseCommand="{Binding Close_Command,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
+   
+   <Grid Margin="5,5,5,0">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid Margin="5,5,5,0">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <Grid Margin="5,5,5,0">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="1*"/>
+            </Grid.RowDefinitions>
+            <TabControl>
+               <TabItem Header="{Binding BasicColor_Msg}">
+                  <Grid HorizontalAlignment="Center"
+                        VerticalAlignment="Center">
+                     <Grid.RowDefinitions>
+                        <RowDefinition Height="Auto"/>
+                        <RowDefinition Height="1*"/>
+                     </Grid.RowDefinitions>
+                     <ListBox ItemsSource="{Binding BasicColors}"
+                              SelectedItem="{Binding SelColor}"
+                              HorizontalAlignment="Center"
+                              BorderThickness="0">
+                        <ListBox.ItemsPanel>
+                           <ItemsPanelTemplate>
+                              <UniformGrid Columns="13"/>
+                           </ItemsPanelTemplate>
+                        </ListBox.ItemsPanel>
+                        <ListBox.ItemTemplate>
+                           <DataTemplate>
+                              <Rectangle Width="20"
+                                      Height="20"
+                                      Margin="2"
+                                      Stroke="Black" 
+                                      StrokeThickness="0.5"
+                                      Fill="{Binding Fill}"/>
+                           </DataTemplate>
+                        </ListBox.ItemTemplate>
+                        <ListBox.ItemContainerStyle>
+                           <Style TargetType="ListBoxItem">
+                              <Setter Property="Margin" Value="0"/>
+                              <Setter Property="Padding" Value="0"/>
+                           </Style>
+                        </ListBox.ItemContainerStyle>
+                     </ListBox>
+                  </Grid>
+               </TabItem>
+               <TabItem Header="{Binding ColorPicker_Msg}">
+                  <TabItem.Resources>
+                     <Style TargetType="{x:Type EgtWPFLib5:EgtHexItem}" BasedOn="{StaticResource EgtHexItem}">
+                        <Setter Property="BorderThickness" Value="1.5"/>
+                        <Setter Property="BorderBrush" Value="White"/>
+                     </Style>
+                  </TabItem.Resources>
+                  <EgtWPFLib5:EgtHexList ItemsSource="{Binding HexList}"
+                                         SelectedItem="{Binding sHexSelColor}"
+                                         Orientation="Vertical" 
+                                         Margin="2.5"
+                                         RowCount="13" 
+                                         ColumnCount="13"
+                                         Height="300"
+                                         Width="350"
+                                         Style="{StaticResource EgtHexList}">
+                     <EgtWPFLib5:EgtHexList.ItemTemplate>
+                        <DataTemplate/>
+                     </EgtWPFLib5:EgtHexList.ItemTemplate>
+                     <EgtWPFLib5:EgtHexList.ItemContainerStyle>
+                        <Style TargetType="EgtWPFLib5:EgtHexItem" BasedOn="{StaticResource EgtHexItem}">
+                           <Setter Property="Grid.Row" Value="{Binding nRow}"/>
+                           <Setter Property="Grid.Column" Value="{Binding nColumn}"/>
+                           <Setter Property="Background" Value="{Binding Background}"/>
+                        </Style>
+                     </EgtWPFLib5:EgtHexList.ItemContainerStyle>
+                  </EgtWPFLib5:EgtHexList>
+               </TabItem>
+               <TabItem Header="{Binding ColorPickerTheme_Msg}">
+                  <Grid HorizontalAlignment="Center"
+                        VerticalAlignment="Center">
+                     <Grid.RowDefinitions>
+                        <RowDefinition Height="Auto"/>
+                        <RowDefinition Height="1*"/>
+                     </Grid.RowDefinitions>
+                     <ListBox ItemsSource="{Binding BasicColorsTheme}"
+                              SelectedItem="{Binding SelColorTheme}"
+                              BorderThickness="0">
+                        <ListBox.ItemsPanel>
+                           <ItemsPanelTemplate>
+                              <UniformGrid Columns="13"/>
+                           </ItemsPanelTemplate>
+                        </ListBox.ItemsPanel>
+                        <ListBox.ItemTemplate>
+                           <DataTemplate>
+                              <Rectangle Width="20"
+                                         Height="20"
+                                         Margin="2"
+                                         Stroke="Black" 
+                                         StrokeThickness="0.5"
+                                         Fill="{Binding Fill}"/>
+                           </DataTemplate>
+                        </ListBox.ItemTemplate>
+                        <ListBox.ItemContainerStyle>
+                           <Style TargetType="ListBoxItem">
+                              <Setter Property="Margin" Value="0"/>
+                              <Setter Property="Padding" Value="0"/>
+                           </Style>
+                        </ListBox.ItemContainerStyle>
+                     </ListBox>
+                  </Grid>
+               </TabItem>
+            </TabControl>
+         </Grid>
+         <Grid Grid.Column="1"
+               Margin="5,0,0,0">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="Auto"/>
+               <RowDefinition Height="Auto"/>
+               <RowDefinition Height="Auto"/>
+            </Grid.RowDefinitions>
+            <TextBlock Text="{Binding CustomColor_Msg}"
+                       Margin="5,18,5,10"
+                       Style="{StaticResource DialogWindow_TextBlock}"/>
+            <Grid Grid.Row="1">
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="Auto"/>
+                  <RowDefinition Height="1*"/>
+               </Grid.RowDefinitions>
+               <ListBox ItemsSource="{Binding CustomColors}"
+                        SelectedItem="{Binding SelCustomColor}"
+                        HorizontalAlignment="Center"
+                        BorderThickness="0">
+                  <ListBox.ItemsPanel>
+                     <ItemsPanelTemplate>
+                        <UniformGrid Columns="13"/>
+                     </ItemsPanelTemplate>
+                  </ListBox.ItemsPanel>
+                  <ListBox.ItemTemplate>
+                     <DataTemplate>
+                        <Rectangle Width="20"
+                                   Height="20"
+                                   Margin="2"
+                                   Stroke="Black" 
+                                   StrokeThickness="0.5"
+                                   Fill="{Binding Fill}"/>
+                     </DataTemplate>
+                  </ListBox.ItemTemplate>
+                  <ListBox.ItemContainerStyle>
+                     <Style TargetType="ListBoxItem">
+                        <Setter Property="Margin" Value="0"/>
+                        <Setter Property="Padding" Value="0"/>
+                     </Style>
+                  </ListBox.ItemContainerStyle>
+               </ListBox>
+            </Grid>
+            <Grid Grid.Row="2"
+                  Margin="0,20,0,0">
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="Auto"/>
+                  <ColumnDefinition Width="1*"/>
+               </Grid.ColumnDefinitions>
+               <Grid Margin="0,10,5,0"
+                     HorizontalAlignment="Left">
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*" />
+                     <RowDefinition Height="Auto" />
+                  </Grid.RowDefinitions>
+                  <Rectangle Width="100" 
+                             Height="70" 
+                             Stroke="Black" 
+                             StrokeThickness="0.5"
+                             Fill="{Binding CurrColor}"/>
+                  <Button x:Name="SaveColor"
+                          Grid.Row="1"
+                          Margin="0,10,0,0"
+                          Content="{Binding AddCColor_Msg}"
+                          Command="{Binding SaveColor_Command}"  
+                          Style="{StaticResource LeftPanel_TextButton}"/>
+               </Grid>
+               <Grid Grid.Column="1">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                  </Grid.RowDefinitions>
+                  <TextBlock Text="{Binding Red_Msg}"
+                             Margin="0,10,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="1" 
+                           HorizontalAlignment="Right"
+                           Margin="0,10,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Red, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+                  <TextBlock Grid.Row="1"
+                             Text="{Binding Green_Msg}"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="1"
+                           Grid.Row="1"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Green, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+                  <TextBlock Grid.Row="2"
+                             Text="{Binding Blu_Msg}"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="1"
+                           Grid.Row="2"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Blue, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+                  <TextBlock Grid.Row="3"
+                             Text="{Binding Hexadecimal_Msg}"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="1"
+                           Grid.Row="3"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           Text="{Binding Hexadecimal}"
+                           Style="{StaticResource ColorPicker_TextBox}"/>
+               </Grid>
+            </Grid>
+         </Grid>
+      </Grid>
+      <UniformGrid Grid.Row="2"  
+                   Rows="1"
+                   Margin="10,10,10,0">
+         <Button IsDefault="True"
+                 Content="OK"
+                 Command="{Binding Ok_Command}"
+                 Margin="2.5,0,2.5,0"
+                 Style="{StaticResource RightPanel_HalfRound_Button}"/>
+         <Button Content="Cancel"
+                 Command="{Binding Cancel_Command}"
+                 Margin="2.5,0,2.5,0"
+                 Style="{StaticResource RightPanel_HalfRound_Button}"/>
+      </UniformGrid>
+   </Grid>
+</EgtWPFLib5:EgtCustomWindow>

EgtColorPicker/EgtColorPickerV.xaml.vb

@@ -0,0 +1,68 @@
+Imports System.Windows.Forms
+Imports EgtWPFLib5
+
+Public Class EgtColorPickerV
+
+#Region "FIELDS & PROPERTIES"
+
+   Private WithEvents m_EgtColorPickerVM As EgtColorPickerVM
+
+   Private Shadows DialogResult As DialogResult
+
+   Public Property CustomColors As Integer()
+      Get
+         Return m_EgtColorPickerVM.GetCustomColors()
+      End Get
+      Set(value As Integer())
+         m_EgtColorPickerVM.SetCustomColors(value)
+      End Set
+   End Property
+
+   Public Property Color As System.Drawing.Color
+      Get
+         Return System.Drawing.Color.FromArgb(255, CInt(m_EgtColorPickerVM.Red), CInt(m_EgtColorPickerVM.Green), CInt(m_EgtColorPickerVM.Blue))
+      End Get
+      Set(value As System.Drawing.Color)
+         m_EgtColorPickerVM.Red = CStr(value.R)
+         m_EgtColorPickerVM.Green = CStr(value.G)
+         m_EgtColorPickerVM.Blue = CStr(value.B)
+      End Set
+   End Property
+
+#End Region    ' Fields & Properties
+
+#Region "CONTRUCTORS"
+
+   Sub New(Owner As Window, EtgColorPickerVM As EgtColorPickerVM)
+      MyBase.New(Owner)
+      InitializeComponent()
+      Me.DataContext = EtgColorPickerVM
+      ' Assegno al riferimento locale al VM il VM preso dal DataContext
+      m_EgtColorPickerVM = EtgColorPickerVM
+   End Sub
+
+#End Region    ' Constructors
+
+#Region "EVENTS"
+
+   Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_EgtColorPickerVM.m_CloseWindow
+      Me.DialogResult = CType(DialogResult, DialogResult)
+      Me.Close()
+   End Sub
+
+#End Region     ' Events
+
+#Region "METHODS"
+
+   ''' <summary>
+   ''' Apre una finestra EgtColorPicker
+   ''' </summary>
+   ''' <returns></returns>
+   Public Overloads Function ShowDialog() As DialogResult
+      MyBase.ShowDialog()
+      Return Me.DialogResult
+   End Function
+
+#End Region    ' Methods
+
+End Class

EgtManageFileDialog/EgtManageFileDialogV.xaml

@@ -0,0 +1,400 @@
+<EgtWPFLib5:EgtCustomWindow x:Class="EgtManageFileDialogV"
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding sTitle}"
+                            WindowStartupLocation="CenterOwner"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="32"
+                            IsMinimizable="False" ShowInTaskbar="False"
+                            Height="500" Width="800"
+                            CloseCommand="{Binding Close_Command,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
+
+   <Grid Margin="5,5,5,0">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="1*"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid Margin="5,5,5,0">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="Auto"/>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="Auto"/>
+         </Grid.ColumnDefinitions>
+         <Button Command="{Binding GoBack_Command}"
+                 Style="{StaticResource RightPanel_Button}">
+            <Image Source="\Resources\EgtDialog\Restore.png"
+                   Style="{StaticResource Button_Image}"/>
+         </Button>
+         <TextBlock Grid.Column="1"
+                    Margin="5"
+                    Text="{Binding sSelPath}"
+                    HorizontalAlignment="Left"
+                    Style="{StaticResource DialogWindow_TextBlock}"/>
+         <ComboBox Grid.Column="2"
+                   HorizontalAlignment="Right"
+                   IsSynchronizedWithCurrentItem="True"
+                   ItemsSource="{Binding ViewModeList}"
+                   SelectedItem="{Binding SelViewMode}"
+                   Margin="2.5,5,2.5,5"
+                   Style="{StaticResource RightPanel_ComboBox}"/>
+      </Grid>
+      <Grid Grid.Row="1"
+            Margin="5,5,5,0">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="4*"/>
+         </Grid.ColumnDefinitions>
+         <TreeView x:Name="FileTree" 
+                   ItemsSource="{Binding RootList}"                   
+                   Margin="10"
+                   FontSize="15"
+                   BorderBrush="White">
+            <TreeView.Resources>
+               <HierarchicalDataTemplate DataType="{x:Type EgtWPFLib5:EgtFolder}" 
+                                         ItemsSource="{Binding TreeItemList_View}">
+                  <StackPanel Orientation="Horizontal">
+                     <Image Source="{Binding sIconSource}"
+                            Height="15"
+                            Style="{StaticResource Button_Image}"/>
+                     <TextBlock Text="{Binding sName}"
+                                Style="{StaticResource DialogWindow_TextBlock}"/>
+                  </StackPanel>
+               </HierarchicalDataTemplate>
+               <DataTemplate DataType="{x:Type EgtWPFLib5:EgtItem}">
+                  <StackPanel Orientation="Horizontal">
+                     <Image Source="{Binding sIconSource}"
+                            Height="15"
+                            Style="{StaticResource Button_Image}"/>
+                     <TextBlock Text="{Binding sName}"
+                                Style="{StaticResource DialogWindow_TextBlock}"/>
+                  </StackPanel>
+               </DataTemplate>
+            </TreeView.Resources>
+            <TreeView.ItemContainerStyle>
+               <Style TargetType="{x:Type TreeViewItem}">
+                  <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay}"/>
+                  <Setter Property="IsExpanded" Value="{Binding IsExpanded, Mode=TwoWay}"/>
+               </Style>
+            </TreeView.ItemContainerStyle>
+         </TreeView>
+         <TabControl Grid.Column="1"
+                     Background="Transparent"
+                     BorderBrush="White"
+                     BorderThickness="0"
+                     SelectedIndex="{Binding nSelTab}">
+            <TabControl.ItemContainerStyle>
+               <Style TargetType="{x:Type TabItem}">
+                  <Setter Property="Visibility" Value="Collapsed"/>
+               </Style>
+            </TabControl.ItemContainerStyle>
+            <TabItem Header="LISTBOX">
+               <ListBox x:Name="FileList" 
+                        Grid.Row="1"
+                        Margin="5,5,5,5"
+                        BorderBrush="White"
+                        IsSynchronizedWithCurrentItem="True"
+                        ItemsSource="{Binding SelTreeItem.FolderList, Mode=TwoWay}"
+                        SelectedItem="{Binding ItemSelected, Mode=TwoWay}">
+                  <ListBox.Resources>
+                     <DataTemplate x:Key="ListTemplateView" 
+                                   DataType="{x:Type EgtWPFLib5:EgtDirectory}">
+                        <Grid Margin="5,5,5,0"
+                              Height="20">
+                           <Grid.ColumnDefinitions>
+                              <ColumnDefinition Width="Auto"/>
+                              <ColumnDefinition Width="Auto"/>
+                           </Grid.ColumnDefinitions>
+                           <Image Source="{Binding sIconSource}"
+                                  Height="15"
+                                  Style="{StaticResource Button_Image}"/>
+                           <TextBlock Grid.Column="1"
+                                      Text="{Binding sName}"
+                                      Style="{StaticResource DialogWindow_TextBlock}"/>
+                        </Grid>
+                     </DataTemplate>
+                     <DataTemplate x:Key="TilesTemplateView"
+                                   DataType="{x:Type EgtWPFLib5:EgtDirectory}">
+                        <Grid Margin="5,5,5,0"
+                              Height="50"
+                              Width="250">
+                           <Grid.ColumnDefinitions>
+                              <ColumnDefinition Width="Auto"/>
+                              <ColumnDefinition Width="1*"/>
+                           </Grid.ColumnDefinitions>
+                           <Image Source="{Binding sIconSource}"
+                                  Style="{StaticResource Button_Image}"/>
+                           <UniformGrid Grid.Column="1"
+                                        Rows="3"
+                                        Margin="2.5,0,2.5,5">
+                              <TextBlock TextAlignment="Left"
+                                         Text="{Binding sName}"
+                                         HorizontalAlignment="Left"
+                                         Style="{StaticResource DialogWindow_TextBlock}"/>
+                              <TextBlock TextAlignment="Left"
+                                         Text="{Binding ghTypeItem}"
+                                         HorizontalAlignment="Left"
+                                         Style="{StaticResource DialogWindow_TextBlock}"/>
+                              <TextBlock TextAlignment="Left"
+                                         Text="{Binding sDimension}"
+                                         HorizontalAlignment="Left"
+                                         Style="{StaticResource DialogWindow_TextBlock}"/>
+                           </UniformGrid>
+                        </Grid>
+                     </DataTemplate>
+                     <DataTemplate x:Key="ContentTemplateView"
+                                   DataType="{x:Type EgtWPFLib5:EgtDirectory}">
+                        <Grid Margin="5,5,5,0"
+                              Height="50">
+                           <Grid.RowDefinitions>
+                              <RowDefinition Height="1*"/>
+                              <RowDefinition Height="Auto"/>
+                           </Grid.RowDefinitions>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="1*"/>
+                              </Grid.ColumnDefinitions>
+                              <Image Source="{Binding sIconSource}"
+                                     Style="{StaticResource Button_Image}"/>
+                              <UniformGrid Grid.Column="1"
+                                           Rows="2"
+                                           Margin="2.5,0,2.5,5">
+                                 <TextBlock TextAlignment="Left"
+                                            HorizontalAlignment="Left"
+                                            Text="{Binding sName}"
+                                            Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 <TextBlock TextAlignment="Left"
+                                            HorizontalAlignment="Left"
+                                            Text="{Binding ghTypeItem}"
+                                            Style="{StaticResource DialogWindow_TextBlock}"/>
+                              </UniformGrid>
+                              <UniformGrid Grid.Column="2"
+                                           Rows="2"
+                                           Margin="2.5,0,2.5,5">
+                                 <TextBlock TextAlignment="Left"
+                                            HorizontalAlignment="Left"
+                                            Text="{Binding sLastModifyDate}"
+                                            Style="{StaticResource DialogWindow_TextBlock}"/>
+                                 <TextBlock TextAlignment="Left"
+                                            HorizontalAlignment="Left"
+                                            Text="{Binding sDimension}"
+                                            Style="{StaticResource DialogWindow_TextBlock}"/>
+                              </UniformGrid>
+                           </Grid>
+                           <Border Grid.Row="1"
+                                   BorderThickness="1"
+                                   BorderBrush="LightGray"/>
+                        </Grid>
+                     </DataTemplate>
+                  </ListBox.Resources>
+                  <ListBox.ItemTemplate>
+                     <DataTemplate DataType="{x:Type EgtWPFLib5:EgtDirectory}">
+                        <ContentControl Content="{Binding}">
+                           <ContentControl.Style>
+                              <Style TargetType="{x:Type ContentControl}">
+                                 <Style.Triggers>
+                                    <DataTrigger  Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}" Value="0">
+                                       <Setter Property="ContentTemplate" Value="{StaticResource ListTemplateView}" />
+                                    </DataTrigger>
+                                    <DataTrigger  Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}" Value="1">
+                                       <Setter Property="ContentTemplate" Value="{StaticResource TilesTemplateView}" />
+                                    </DataTrigger>
+                                    <DataTrigger  Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}" Value="2">
+                                       <Setter Property="ContentTemplate" Value="{StaticResource ContentTemplateView}" />
+                                    </DataTrigger>
+                                 </Style.Triggers>
+                              </Style>
+                           </ContentControl.Style>
+                        </ContentControl>
+                     </DataTemplate>
+                  </ListBox.ItemTemplate>
+                  <ListBox.ItemContainerStyle>
+                     <Style TargetType="{x:Type ListBoxItem}" BasedOn="{StaticResource {x:Type ListBoxItem}}">
+                        <Setter Property="HorizontalContentAlignment" Value="Stretch"/>
+                        <EventSetter Event="MouseDoubleClick" Handler="ListBoxItem_MouseDoubleClick"/>
+                     </Style>
+                  </ListBox.ItemContainerStyle>
+                  <ListBox.Style>
+                     <Style TargetType="{x:Type ListBox}">
+                        <Style.Triggers>
+                           <DataTrigger Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"
+                                        Value="0">
+                              <Setter Property="ScrollViewer.HorizontalScrollBarVisibility" Value="Auto"/>
+                              <Setter Property="ScrollViewer.VerticalScrollBarVisibility" Value="Disabled"/>
+                              <Setter Property="ItemsPanel">
+                                 <Setter.Value>
+                                    <ItemsPanelTemplate>
+                                       <WrapPanel Orientation="Vertical"/>
+                                    </ItemsPanelTemplate>
+                                 </Setter.Value>
+                              </Setter>
+                           </DataTrigger>
+                           <DataTrigger Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"
+                                        Value="1">
+                              <Setter Property="ScrollViewer.HorizontalScrollBarVisibility" Value="Disabled"/>
+                              <Setter Property="ScrollViewer.VerticalScrollBarVisibility" Value="Auto"/>
+                              <Setter Property="ItemsPanel">
+                                 <Setter.Value>
+                                    <ItemsPanelTemplate>
+                                       <WrapPanel Orientation="Horizontal"/>
+                                    </ItemsPanelTemplate>
+                                 </Setter.Value>
+                              </Setter>
+                           </DataTrigger>
+                           <DataTrigger Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"
+                                        Value="2">
+                              <Setter Property="ScrollViewer.HorizontalScrollBarVisibility" Value="Disabled"/>
+                              <Setter Property="ScrollViewer.VerticalScrollBarVisibility" Value="Auto"/>
+                              <Setter Property="ItemsPanel">
+                                 <Setter.Value>
+                                    <ItemsPanelTemplate>
+                                       <StackPanel Orientation="Vertical"
+                                                   HorizontalAlignment="Stretch"/>
+                                    </ItemsPanelTemplate>
+                                 </Setter.Value>
+                              </Setter>
+                           </DataTrigger>
+                        </Style.Triggers>
+                     </Style>
+                  </ListBox.Style>
+               </ListBox>
+            </TabItem>
+            <TabItem Header="DATAGRID">
+               <DataGrid AutoGenerateColumns="False"
+                         IsReadOnly="True"
+                         HeadersVisibility="Column"
+                         ItemsSource="{Binding SelTreeItem.FolderList, Mode=TwoWay}"
+                         SelectedItem="{Binding ItemSelected}">
+                  <!--   ColumnHeaderStyle="{StaticResource DataGridColumnHeader}"
+                         RowStyle="{StaticResource RowDataGrid_CustomHighLight}"-->
+                  <DataGrid.Columns>
+                     <DataGridTemplateColumn Width="5*">
+                        <DataGridTemplateColumn.HeaderTemplate>
+                           <DataTemplate>
+                              <TextBlock Text="{Binding DataContext.Name_Msg, RelativeSource={RelativeSource AncestorType=DataGrid}}"
+                                         HorizontalAlignment="Left"/>
+                           </DataTemplate>
+                        </DataGridTemplateColumn.HeaderTemplate>
+                        <DataGridTemplateColumn.CellTemplate>
+                           <DataTemplate>
+                              <Grid>
+                                 <Grid.ColumnDefinitions>
+                                    <ColumnDefinition Width="Auto"/>
+                                    <ColumnDefinition Width="1*"/>
+                                 </Grid.ColumnDefinitions>
+                                 <Image Source="{Binding sIconSource}"
+                                        Margin="2.5,0,2.5,0"
+                                        Style="{StaticResource Button_Image}"/>
+                                 <TextBlock Grid.Column="1"
+                                            Text="{Binding sName}"
+                                            VerticalAlignment="Center"
+                                            Margin="2.5,0,0,0"/>
+                              </Grid>
+                           </DataTemplate>
+                        </DataGridTemplateColumn.CellTemplate>
+                     </DataGridTemplateColumn>
+                     <DataGridTextColumn Binding="{Binding sLastModifyDate}"
+                                         Width="2*">
+                        <DataGridTextColumn.HeaderTemplate>
+                           <DataTemplate>
+                              <TextBlock Text="{Binding DataContext.LastModify_Msg, RelativeSource={RelativeSource AncestorType=DataGrid}}"
+                                         HorizontalAlignment="Left"/>
+                           </DataTemplate>
+                        </DataGridTextColumn.HeaderTemplate>
+                        <DataGridTextColumn.ElementStyle>
+                           <Style TargetType="TextBlock">
+                              <Setter Property="HorizontalAlignment" Value="Left"/>
+                              <Setter Property="VerticalAlignment" Value="Center"/>
+                              <Setter Property="TextAlignment" Value="Left"/>
+                              <Setter Property="Padding" Value="12,6,12,6"/>
+                           </Style>
+                        </DataGridTextColumn.ElementStyle>
+                     </DataGridTextColumn>
+                     <DataGridTextColumn Binding="{Binding ghTypeItem}"
+                                         Width="1*">
+                        <DataGridTextColumn.HeaderTemplate>
+                           <DataTemplate>
+                              <TextBlock Text="{Binding DataContext.Type_Msg, RelativeSource={RelativeSource AncestorType=DataGrid}}"
+                                         HorizontalAlignment="Left"/>
+                           </DataTemplate>
+                        </DataGridTextColumn.HeaderTemplate>
+                        <DataGridTextColumn.ElementStyle>
+                           <Style TargetType="TextBlock">
+                              <Setter Property="HorizontalAlignment" Value="Left"/>
+                              <Setter Property="VerticalAlignment" Value="Center"/>
+                              <Setter Property="TextAlignment" Value="Left"/>
+                              <Setter Property="Padding" Value="12,6,12,6"/>
+                           </Style>
+                        </DataGridTextColumn.ElementStyle>
+                     </DataGridTextColumn>
+                     <DataGridTextColumn Binding="{Binding sDimension}"
+                                         Width="1*">
+                        <DataGridTextColumn.HeaderTemplate>
+                           <DataTemplate>
+                              <TextBlock Text="{Binding DataContext.Dimension_Msg, RelativeSource={RelativeSource AncestorType=DataGrid}}"
+                                         HorizontalAlignment="Left"/>
+                           </DataTemplate>
+                        </DataGridTextColumn.HeaderTemplate>
+                        <DataGridTextColumn.ElementStyle>
+                           <Style TargetType="TextBlock">
+                              <Setter Property="HorizontalAlignment" Value="Right"/>
+                              <Setter Property="VerticalAlignment" Value="Center"/>
+                              <Setter Property="TextAlignment" Value="Right"/>
+                              <Setter Property="Padding" Value="12,6,12,6"/>
+                           </Style>
+                        </DataGridTextColumn.ElementStyle>
+                     </DataGridTextColumn>
+                  </DataGrid.Columns>
+                  <DataGrid.InputBindings>
+                     <MouseBinding MouseAction="LeftDoubleClick" Command="{Binding DataContext.DoubleClick_Command, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                  </DataGrid.InputBindings>
+               </DataGrid>
+            </TabItem>
+         </TabControl>
+      </Grid>
+      <Grid Grid.Row="2" 
+            Margin="5,5,5,0">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="1*"/>
+            <ColumnDefinition Width="Auto"/>
+         </Grid.ColumnDefinitions>
+         <TextBlock Margin="5,5,5,5"
+                    Text="{Binding FileName_Msg}"
+                    HorizontalAlignment="Right"
+                    Style="{StaticResource DialogWindow_TextBlock}"/>
+         <TextBox Grid.Column="1"
+                  Margin="2.5,2.5,2.5,5"
+                  TextAlignment="Left"
+                  HorizontalAlignment="Stretch"
+                  Text="{Binding sSaveFileName, UpdateSourceTrigger=PropertyChanged, Mode=TwoWay}"
+                  Style="{StaticResource ParameterList_TextBox}"/>
+         <ComboBox Grid.Column="2"
+                   IsSynchronizedWithCurrentItem="True"
+                   ItemsSource="{Binding FilterList}"
+                   SelectedItem="{Binding SelFilter, Mode=OneWayToSource}"
+                   DisplayMemberPath="sNameExstension"
+                   HorizontalAlignment="Right"
+                   Margin="10,2.5,2.5,5"
+                   Style="{StaticResource RightPanel_ComboBox}"/>
+      </Grid>
+      <UniformGrid Grid.Row="3"  
+                   Rows="1"
+                   Margin="2.5,0,2.5,0">
+         <Button IsDefault="True"
+                 Content="OK"
+                 Command="{Binding Ok_Command}"
+                 HorizontalAlignment="Right"
+                 Margin="15,0,2.5,0"
+                 Style="{StaticResource RightPanel_HalfRound_Button}"/>
+         <Button Content="Cancel"
+                 Command="{Binding Cancel_Command}"
+                 HorizontalAlignment="Left"
+                 Margin="2.5,0,0,0"
+                 Style="{StaticResource RightPanel_HalfRound_Button}"/>
+      </UniformGrid>
+   </Grid>
+</EgtWPFLib5:EgtCustomWindow>

EgtManageFileDialog/EgtManageFileDialogV.xaml.vb

@@ -0,0 +1,141 @@
+Imports System.Windows.Forms
+Imports EgtWPFLib5
+
+Public Class EgtManageFileDialogV
+
+#Region "FIELDS & PROPERTIES"
+
+   Private WithEvents m_EgtManageFileDialogVM As EgtManageFileDialogVM
+
+   Private Shadows DialogResult As DialogResult
+
+   ''' <summary>
+   ''' Stringa che specifica il titolo da mostrare
+   ''' </summary>
+   Public Overloads Property Title As String
+      Get
+         Return m_EgtManageFileDialogVM.sTitle
+      End Get
+      Set(value As String)
+         m_EgtManageFileDialogVM.sTitle = value
+      End Set
+   End Property
+
+   Public Property Filter As String
+      Get
+         Return m_EgtManageFileDialogVM.sFilter
+      End Get
+      Set(value As String)
+         m_EgtManageFileDialogVM.sFilter = value
+      End Set
+   End Property
+
+   Public Property InitialDirectory As String
+      Get
+         Return m_EgtManageFileDialogVM.sInitialDirectory
+      End Get
+      Set(value As String)
+         m_EgtManageFileDialogVM.sInitialDirectory = value
+      End Set
+   End Property
+
+   Public Property SafeFileName As String
+      Get
+         Return m_EgtManageFileDialogVM.sSaveFileName
+      End Get
+      Set(value As String)
+         m_EgtManageFileDialogVM.sSaveFileName = value
+      End Set
+   End Property
+
+   Public Property FileName As String
+      Get
+         Return m_EgtManageFileDialogVM.sFileName
+      End Get
+      Set(value As String)
+         m_EgtManageFileDialogVM.sFileName = value
+      End Set
+   End Property
+
+   Public Property FilterIndex As Integer
+      Get
+         Return m_EgtManageFileDialogVM.nFilterIndex
+      End Get
+      Set(value As Integer)
+         m_EgtManageFileDialogVM.nFilterIndex = value
+      End Set
+   End Property
+
+   Public Property Mode As Integer
+      Get
+         Return m_EgtManageFileDialogVM.nMode
+      End Get
+      Set(value As Integer)
+         m_EgtManageFileDialogVM.nMode = value
+      End Set
+   End Property
+
+   Public Property CheckFileExists As Boolean
+      Get
+         Return m_EgtManageFileDialogVM.bCheckFileExists
+      End Get
+      Set(value As Boolean)
+         m_EgtManageFileDialogVM.bCheckFileExists = value
+      End Set
+   End Property
+
+   Public Property ValidateNames As Boolean
+      Get
+         Return m_EgtManageFileDialogVM.bValidateNames
+      End Get
+      Set(value As Boolean)
+         m_EgtManageFileDialogVM.bValidateNames = value
+      End Set
+   End Property
+
+   Public Property OverwritePrompt As Boolean
+      Get
+         Return m_EgtManageFileDialogVM.bOverwritePrompt
+      End Get
+      Set(value As Boolean)
+         m_EgtManageFileDialogVM.bOverwritePrompt = value
+      End Set
+   End Property
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONTRUCTORS"
+
+   Sub New(Owner As Window, EgtManageFileDialogVM As EgtManageFileDialogVM)
+      MyBase.New(Owner)
+      InitializeComponent()
+      Me.DataContext = EgtManageFileDialogVM
+      ' Assegno al riferimento locale al VM il VM preso dal DataContext
+      m_EgtManageFileDialogVM = EgtManageFileDialogVM
+   End Sub
+
+#End Region
+
+#Region "EVENTS"
+
+   Private Sub CloseWindow(DialogResult As DialogResult) Handles m_EgtManageFileDialogVM.m_CloseWindow
+      Me.DialogResult = DialogResult
+      Me.Close()
+   End Sub
+
+#End Region
+
+#Region "METHODS"
+
+   Public Overloads Function ShowDialog() As DialogResult
+      MyBase.ShowDialog()
+      Return Me.DialogResult
+   End Function
+
+   Private Sub ListBoxItem_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs)
+      m_EgtManageFileDialogVM.MouseDoubleClick()
+   End Sub
+
+#End Region    '  METHODS
+
+End Class

EgtMessageBox/EgtMessageBoxV.xaml

@@ -0,0 +1,49 @@
+<EgtWPFLib5:EgtCustomWindow x:Class="EgtMessageBoxV"
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding sTitle}"
+                            SizeToContent="WidthAndHeight"
+                            WindowStartupLocation="CenterOwner"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="32"
+                            IsMinimizable="False" ShowInTaskbar="False"
+                            CloseCommand="{Binding Close_Command,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
+   
+   <Grid Margin="2.5,2.5,2.5,0">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid Margin="20,20,20,20">
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="Auto"/>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+         <Image Source="{Binding sIconSource}"
+                Margin="0,0,0,0"/>
+         <TextBlock Grid.Column="1"
+                    Text="{Binding sMessage}"
+                    Margin="5,0,5,0"
+                    Style="{StaticResource DialogWindow_TextBlock}"/>
+      </Grid>
+      <ItemsControl Grid.Row="1"
+                    ItemsSource="{Binding ButtonList}"
+                    HorizontalAlignment="Center">
+         <ItemsControl.ItemsPanel>
+            <ItemsPanelTemplate>
+               <UniformGrid Rows="1"/>
+            </ItemsPanelTemplate>
+         </ItemsControl.ItemsPanel>
+         <ItemsControl.ItemTemplate>
+            <DataTemplate>
+               <Button IsDefault="{Binding bIsDefault}"
+                       Content="{Binding sMessage}"
+                       Command="{Binding Command_Command}"
+                       Margin="2.5,0,2.5,0"
+                       Style="{StaticResource RightPanel_HalfRound_Button}"/>
+            </DataTemplate>
+         </ItemsControl.ItemTemplate>
+
+      </ItemsControl>
+   </Grid>
+</EgtWPFLib5:EgtCustomWindow>

EgtMessageBox/EgtMessageBoxV.xaml.vb

@@ -0,0 +1,109 @@
+Imports EgtWPFLib5
+
+Public Class EgtMessageBoxV
+
+#Region "FIELDS & PROPERTIES"
+
+   Private WithEvents m_EgtMessageBoxVM As EgtMessageBoxVM
+
+   Private Shadows DialogResult As MessageBoxResult
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONTRUCTORS"
+
+   Sub New(Owner As Window, EgtMessageBoxVM As EgtMessageBoxVM)
+      MyBase.New(Owner)
+      ' This call is required by the designer.
+      InitializeComponent()
+      Me.DataContext = EgtMessageBoxVM
+      ' Assegno al riferimento locale al VM il VM preso dal DataContext
+      m_EgtMessageBoxVM = EgtMessageBoxVM
+   End Sub
+
+#End Region
+
+#Region "METHODS"
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <param name="sCaption">Stringa che specifica il titolo da mostrare</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <param name="sCaption">Stringa che specifica il titolo da mostrare</param>
+   ''' <param name="Button">Valore che specifica quali bottoni mostrare</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <param name="sCaption">Stringa che specifica il titolo da mostrare</param>
+   ''' <param name="Button">Valore che specifica quali bottoni mostrare</param>
+   ''' <param name="Icon">Valore che specifica quale icona mostrare</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton, Icon As MessageBoxImage) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button, Icon))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+   ''' <summary>
+   ''' Apre una EgtMessageBox con un titolo ed un messaggio che ritorna un risultato
+   ''' </summary>
+   ''' <param name="Owner">Finestra di appartenenza</param>
+   ''' <param name="sMessageBoxText">Stringa che specifica il messaggio da mostrare</param>
+   ''' <param name="sCaption">Stringa che specifica il titolo da mostrare</param>
+   ''' <param name="Button">Valore che specifica quali bottoni mostrare</param>
+   ''' <param name="Icon">Valore che specifica quale icona mostrare</param>
+   ''' <param name="DefaultResult">Valore che specifica il bottone di default</param>
+   ''' <returns>Valore che specifica quale bottone e' stato premuto dall'utente</returns>
+   Public Overloads Shared Function Show(Owner As Window, sMessageBoxText As String, sCaption As String, Button As MessageBoxButton, Icon As MessageBoxImage, DefaultResult As MessageBoxResult) As MessageBoxResult
+      Dim NewMessagebox As New EgtMessageBoxV(Owner, New EgtMessageBoxVM(sMessageBoxText, sCaption, Button, Icon, DefaultResult))
+      NewMessagebox.ShowDialog()
+      Return NewMessagebox.DialogResult
+   End Function
+
+#End Region    ' METHODS
+
+#Region "EVENTS"
+
+   Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_EgtMessageBoxVM.m_CloseWindow
+      Me.DialogResult = DialogResult
+      Me.Close()
+   End Sub
+
+#End Region
+
+End Class

EstimationsDetailsWnd/EstimationsDetailsWndV.xaml

@@ -1,14 +1,14 @@
 <EgtWPFLib5:EgtCustomWindow x:Class="EstimationsDetailsWndV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
-   Title="{Binding TitleMsg}"
-   Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
-   WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="32"
-   Width="300" Height="300"
-   IsResizable="True"
-   IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False">
-   
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding TitleMsg}"
+                            Style="{DynamicResource {x:Type EgtWPFLib5:EgtCustomWindow}}"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="32"
+                            Width="300" Height="300"
+                            IsResizable="True"
+                            IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False">
+
    <WebBrowser Name="EstimationsWebBrowser" Margin="10"/>
-   
+
 </EgtWPFLib5:EgtCustomWindow>

EstimationsDetailsWnd/EstimationsDetailsWndVM.vb

@@ -16,16 +16,12 @@ Public Class EstimationsDetailsWndVM
 
    Public ReadOnly Property TitleMsg As String
       Get
-         Return EgtMsg(MSG_SIMULATION + 44)       ' Estimation details
+         Return EgtMsg(5344)       ' Estimation details
       End Get
    End Property
 
 #End Region    ' Messages
 
-   ' Definizione comandi
-   Private m_cmdOk As ICommand
-   Private m_cmdCancel As ICommand
-
 #End Region    'FIELDS & PROPERTIES
 
 #Region "CONSTRUCTOR"
@@ -36,8 +32,4 @@ Public Class EstimationsDetailsWndVM
 
 #End Region    ' CONSTRUCTOR
 
-#Region "METHODS"
-
-#End Region    ' METHODS
-
 End Class

ExecutePanel/ExecutePanelV.xaml

@@ -1,10 +1,12 @@
-<UserControl x:Class="ExecutePanelV"
-             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+<EgtFloating:EgtFloatingPanel x:Class="ExecutePanelV"
+                              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                              xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
+                              Visibility="{Binding ExecutePanel_Visibility}">
 
    <StackPanel Orientation="Horizontal">
       <Button Command="{Binding ExecCommand}" ToolTip="{Binding ExecToolTip}"
-         Style="{StaticResource GridViewPanelButton}" ContextMenuService.Placement="Bottom">
+              Style="{StaticResource GridViewPanelButton}" ContextMenuService.Placement="Bottom">
          <Button.ContextMenu>
             <ContextMenu ItemsSource="{Binding MruScriptNames}" ItemContainerStyle="{StaticResource MruScriptItem}">
             </ContextMenu>
@@ -13,4 +15,4 @@
       </Button>
    </StackPanel>
 
-</UserControl>
+</EgtFloating:EgtFloatingPanel>

ExecutePanel/ExecutePanelVM.vb

@@ -12,6 +12,18 @@ Public Class ExecutePanelVM
       End Get
    End Property
 
+   Private m_ExecutePanel_Visibility As Visibility
+   Public ReadOnly Property ExecutePanel_Visibility As Visibility
+      Get
+         Return m_ExecutePanel_Visibility
+      End Get
+   End Property
+
+   Friend Sub SetExecutePanelVisibility(bValue As Boolean)
+      m_ExecutePanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
+      OnPropertyChanged(NameOf(ExecutePanel_Visibility))
+   End Sub
+
    ' Definizione comandi
    Private m_cmdExec As ICommand
    Private Shared m_cmdOpenMruScript As ICommand
@@ -20,7 +32,7 @@ Public Class ExecutePanelVM
 
    Public ReadOnly Property ExecToolTip As String
       Get
-         Return EgtMsg(MSG_TOPCOMMANDBAR + 8)
+         Return EgtMsg(5108)     ' Esegui Script<br/>Esegui Script recenti (Tasto Destro)
       End Get
    End Property
 
@@ -28,6 +40,11 @@ Public Class ExecutePanelVM
 
 #End Region    ' FIELDS & PROPERTIES
 
+   Sub New()
+      ' Creo riferimento a questa classe in Map
+      Map.SetRefExecutePanelVM(Me)
+   End Sub
+
 #Region "COMMANDS"
 
 #Region "ExecCommand"

GridPanel/GridPanelV.xaml

@@ -1,25 +1,25 @@
 <UserControl x:Class="GridPanelV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
 
    <StackPanel Background="Transparent" Orientation="Horizontal">
       <Button Command="{Binding CPlaneTopCommand}" ToolTip="{Binding CPlaneTopToolTip}" Style="{StaticResource GridViewPanelButton}">
          <Image Source="/Resources/GridViewPanel/CplaneTOP.png" Stretch="Uniform"/>
       </Button>
+      <Button Command="{Binding CPlaneBottomCommand}" ToolTip="{Binding CPlaneBottomToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneBOTTOM.png" Stretch="Uniform"/>
+      </Button>
       <Button Command="{Binding CPlaneFrontCommand}" ToolTip="{Binding CPlaneFrontToolTip}" Style="{StaticResource GridViewPanelButton}">
          <Image Source="/Resources/GridViewPanel/CplaneFRONT.png" Stretch="Uniform"/>
       </Button>
-      <Button Command="{Binding CPlaneRightCommand}" ToolTip="{Binding CPlaneRightToolTip}" Style="{StaticResource GridViewPanelButton}">
-         <Image Source="/Resources/GridViewPanel/CplaneRIGHT.png" Stretch="Uniform"/>
-      </Button>
       <Button Command="{Binding CPlaneBackCommand}" ToolTip="{Binding CPlaneBackToolTip}" Style="{StaticResource GridViewPanelButton}">
          <Image Source="/Resources/GridViewPanel/CplaneBACK.png" Stretch="Uniform"/>
       </Button>
       <Button Command="{Binding CPlaneLeftCommand}" ToolTip="{Binding CPlaneLeftToolTip}" Style="{StaticResource GridViewPanelButton}">
          <Image Source="/Resources/GridViewPanel/CplaneLEFT.png" Stretch="Uniform"/>
       </Button>
-      <Button Command="{Binding CPlaneBottomCommand}" ToolTip="{Binding CPlaneBottomToolTip}" Style="{StaticResource GridViewPanelButton}">
-         <Image Source="/Resources/GridViewPanel/CplaneBOTTOM.png" Stretch="Uniform"/>
+      <Button Command="{Binding CPlaneRightCommand}" ToolTip="{Binding CPlaneRightToolTip}" Style="{StaticResource GridViewPanelButton}">
+         <Image Source="/Resources/GridViewPanel/CplaneRIGHT.png" Stretch="Uniform"/>
       </Button>
       <Button Command="{Binding CPlaneElevationCommand}" ToolTip="{Binding CPlaneElevationToolTip}" Style="{StaticResource GridViewPanelButton}">
          <Image Source="/Resources/GridViewPanel/CplaneELEVATION.png" Stretch="Uniform"/>

GridPanel/GridPanelVM.vb

@@ -12,54 +12,49 @@ Public Class GridPanelVM
    Private m_cmdCPlaneBack As ICommand
    Private m_cmdCPlaneLeft As ICommand
    Private m_cmdCPlaneBottom As ICommand
-   Private m_cmdCPlaneView As ICommand
    Private m_cmdCPlaneElevation As ICommand
    Private m_cmdCPlaneOrigin As ICommand
-   Private m_cmdCPlaneRotate As ICommand
-   Private m_cmdCPlane3P As ICommand
-   Private m_cmdCPlanePerpObj As ICommand
-   Private m_cmdCPlaneObj As ICommand
 
 #Region "ToolTip"
 
    Public ReadOnly Property CPlaneTopToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 19)
+         Return EgtMsg(5269)     ' Griglia da Sopra
       End Get
    End Property
    Public ReadOnly Property CPlaneFrontToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 20)
+         Return EgtMsg(5270)     ' Griglia di Fronte
       End Get
    End Property
    Public ReadOnly Property CPlaneRightToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 21)
+         Return EgtMsg(5271)     ' Griglia da Destra
       End Get
    End Property
    Public ReadOnly Property CPlaneBackToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 22)
+         Return EgtMsg(5272)     ' Griglia da Dietro
       End Get
    End Property
    Public ReadOnly Property CPlaneLeftToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 23)
+         Return EgtMsg(5273)     ' Griglia da Sinistra
       End Get
    End Property
    Public ReadOnly Property CPlaneBottomToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 24)
+         Return EgtMsg(5274)     ' Griglia da Sotto
       End Get
    End Property
    Public ReadOnly Property CPlaneElevationToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 26)
+         Return EgtMsg(5276)     ' Elevazione Griglia
       End Get
    End Property
    Public ReadOnly Property CPlaneOriginToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 27)
+         Return EgtMsg(5277)     ' Origine Griglia
       End Get
    End Property
 

InstrumentPanel/InstrumentPanelV.xaml

@@ -1,17 +1,15 @@
 <EgtFloating:EgtFloatingPanel x:Class="InstrumentPanelV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
-   IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False"
-   TitleBarOrientation="Horizontal">
+                              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                              xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
+                              IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False"
+                              TitleBarOrientation="Horizontal">
 
-   <!--<StackPanel Background="Transparent" Orientation="Horizontal">-->
-      <ToggleButton ToolTip="{Binding AnalyzeToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding AnalyzeIsChecked}" IsEnabled="{Binding AnalyzeIsEnabled}">
-         <Image Source="/Resources/GridViewPanel/Analyze.png" Stretch="Uniform"/>
-      </ToggleButton>
-      <ToggleButton ToolTip="{Binding GetDistToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding GetDistIsChecked}">
-         <Image Source="/Resources/GridViewPanel/GetDist.png" Stretch="Uniform"/>
-      </ToggleButton>
-   <!--</StackPanel>-->
+   <ToggleButton ToolTip="{Binding AnalyzeToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding AnalyzeIsChecked}" IsEnabled="{Binding AnalyzeIsEnabled}">
+      <Image Source="/Resources/GridViewPanel/Analyze.png" Stretch="Uniform"/>
+   </ToggleButton>
+   <ToggleButton ToolTip="{Binding GetDistToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding GetDistIsChecked}">
+      <Image Source="/Resources/GridViewPanel/GetDist.png" Stretch="Uniform"/>
+   </ToggleButton>
 
 </EgtFloating:EgtFloatingPanel>

InstrumentPanel/InstrumentPanelVM.vb

@@ -9,12 +9,12 @@ Public Class InstrumentPanelVM
 
    Public ReadOnly Property AnalyzeToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 17)
+         Return EgtMsg(5267)     ' Analizza
       End Get
    End Property
    Public ReadOnly Property GetDistToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 18)
+         Return EgtMsg(5268)     ' Distanza
       End Get
    End Property
 
@@ -37,7 +37,7 @@ Public Class InstrumentPanelVM
                Analyze.EraseAnalyzeGroup()
                EgtDraw()
             End If
-            OnPropertyChanged("AnalyzeIsChecked")
+            OnPropertyChanged(NameOf(AnalyzeIsChecked))
          End If
       End Set
    End Property
@@ -50,7 +50,7 @@ Public Class InstrumentPanelVM
       Set(value As Boolean)
          If value <> m_AnalyzeIsEnabled Then
             m_AnalyzeIsEnabled = value
-            OnPropertyChanged("AnalyzeIsEnabled")
+            OnPropertyChanged(NameOf(AnalyzeIsEnabled))
          End If
       End Set
    End Property
@@ -70,7 +70,7 @@ Public Class InstrumentPanelVM
                Map.refProjectVM.GetScene.ResetStatusGetDistance()
                Map.refStatusBarVM.NotifyStatusOutput(String.Empty)
             End If
-            OnPropertyChanged("GetDistIsChecked")
+            OnPropertyChanged(NameOf(GetDistIsChecked))
          End If
       End Set
    End Property

Internals/MruList.vb

@@ -59,7 +59,7 @@ Public Class MruList
    End Sub
 
    '---------------------------------------------------------------------------
-   Public Sub Add(ByVal sFileName As String)
+   Public Sub Add(sFileName As String)
       ' Gestione '_'
       Dim sMyFileName As String = sFileName.Replace("_", "__")
       ' Se stringa vuota, esco subito
@@ -84,7 +84,7 @@ Public Class MruList
    End Sub
 
    '---------------------------------------------------------------------------
-   Private Function FileNameIndex(ByVal sFileName As String) As Integer
+   Private Function FileNameIndex(sFileName As String) As Integer
       For i As Integer = 0 To m_FileNames.Count - 1
          If String.Compare(m_FileNames(i).ToString, sFileName, True) = 0 Then
             Return i
@@ -94,7 +94,7 @@ Public Class MruList
    End Function
 
    '---------------------------------------------------------------------------
-   Public Sub Remove(ByVal sFileName As String)
+   Public Sub Remove(sFileName As String)
       ' Gestione '_'
       Dim sMyFileName As String = sFileName.Replace("_", "__")
       ' Rimozione
@@ -108,8 +108,8 @@ Public Class MruList
    End Sub
 
    '---------------------------------------------------------------------------
-   Public Function GetFileName(ByVal nInd As Integer, ByRef sFileName As String) As Boolean
-      If nInd > 0 And nInd <= m_FileNames.Count() Then
+   Public Function GetFileName(nInd As Integer, ByRef sFileName As String) As Boolean
+      If nInd >= 0 And nInd < m_FileNames.Count() Then
          ' Gestione '_'
          sFileName = m_FileNames(nInd).ToString().Replace("__", "_")
          Return True

LeftTray/LeftTrayV.xaml

@@ -0,0 +1,9 @@
+<Grid x:Class="LeftTrayV"
+      xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+      xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+      xmlns:local="clr-namespace:EgtCAM5"
+      DockPanel.Dock="Left">
+   
+   <local:DrawPanelV DataContext="{StaticResource DrawPanelViewModel}"/>
+   
+</Grid>

LeftTray/LeftTrayV.xaml.vb

@@ -0,0 +1,3 @@
+Public Class LeftTrayV
+
+End Class

MEFPlugin/MefPlugin.vb

@@ -0,0 +1,74 @@
+Imports System.ComponentModel.Composition
+Imports System.ComponentModel.Composition.hosting
+
+Public Class MEFLoader
+   Private importers As Dictionary(Of String, List(Of Object)) = New Dictionary(Of String, List(Of Object))()
+
+   Public Overridable Function LoadByTag(Of T)(ByVal path As String, ByVal tag As String) As ICollection(Of T)
+      Dim importer = GetImporter(Of T)(path)
+      Return importer.LoadByMEF(path, tag)
+   End Function
+
+   Protected Function GetImporter(Of T)(ByVal path As String) As MEFImporter(Of T)
+      Dim importerList = GetImporterList(path)
+      Dim importer = importerList.OfType(Of MEFImporter(Of T))().FirstOrDefault()
+
+      If importer Is Nothing Then
+         importer = New MEFImporter(Of T)(path)
+         importerList.Add(importer)
+      End If
+
+      Return importer
+   End Function
+
+   Protected Function GetImporterList(ByVal path As String) As List(Of Object)
+      If importers.ContainsKey(path) = False Then importers.Add(path, New List(Of Object)())
+      Return importers(path)
+   End Function
+
+   Public Overridable Function LoadByType(Of T)(ByVal path As String) As ICollection(Of T)
+      Return LoadByTag(Of T)(path, String.Empty)
+   End Function
+End Class
+
+Public Interface IMetadata
+   ReadOnly Property Name As String
+End Interface
+
+Public Class MEFImporter(Of T)
+
+   <ImportMany(AllowRecomposition:=True)>
+   Public Property [imports] As IEnumerable(Of Lazy(Of T, IMetadata))
+
+   Private Sub New()
+   End Sub
+
+   Public Sub New(ByVal path As String)
+      Me.New()
+      directoryCatalog = New DirectoryCatalog(path)
+   End Sub
+
+   Protected directoryCatalog As DirectoryCatalog = Nothing
+
+   Protected Sub DoImport(ByVal path As String)
+      Dim catalog = New AggregateCatalog()
+      catalog.Catalogs.Add(directoryCatalog)
+      Dim container As CompositionContainer = New CompositionContainer(catalog)
+      container.ComposeParts(Me)
+   End Sub
+
+   Public Function LoadByMEF(ByVal path As String, ByVal name As String) As ICollection(Of T)
+      Dim res = New List(Of T)()
+      DoImport(path)
+
+      For Each [module] As Lazy(Of T, IMetadata) In [imports]
+
+         If [module].Metadata.Name = name OrElse String.IsNullOrEmpty(name) Then
+            res.Add([module].Value)
+         End If
+      Next
+
+      Return res
+   End Function
+
+End Class

MachGroupPanel/MyMachGroupPanelVM.vb

@@ -1,5 +1,4 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
+Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -69,7 +68,8 @@ Public Class MyMachGroupPanelVM
             ' se la lista gruppi è vuota creo un nuovo gruppo
             If MachGroupList.Count = 0 Then
                ' Vuoi creare un nuovo Gruppo di Lavoro con i pezzi selezionati ?    -   LAVORA
-               If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+               'If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+               If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then  ' Vuoi creare un nuovo Gruppo di Lavoro<br/>con i pezzi selezionati ? Sicuro di voler cancellare il Gruppo di Lavorazione?
                   Return If(AddNewMachGroup(nGroupId, vPart), 0, 1)
                Else
                   Return -2
@@ -93,35 +93,42 @@ Public Class MyMachGroupPanelVM
             ' altrimenti creo il primo gruppo
          Else
             ' Vuoi creare un nuovo Gruppo di Lavoro con i pezzi selezionati ?    -   LAVORA
-            If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+            'If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then  ' Vuoi creare un nuovo Gruppo di Lavoro<br/>con i pezzi selezionati ? Sicuro di voler cancellare il Gruppo di Lavorazione?
                Return If(AddNewMachGroup(nGroupId, vPart), 0, 1)
             Else
                Return -2
             End If
          End If
-         ' Se non ci sono pezzi selezionati
+      ' Se non ci sono pezzi selezionati
       Else
          ' se ci sono gruppi di lavorazione
          If bMachGroup Then
-            nGroupId = EgtGetLastMachGroup()
+            nGroupId = EgtGetCurrMachGroup()
+            If nGroupId = GDB_ID.NULL Then
+               nGroupId = EgtGetFirstMachGroup()
+            End If
             Return If(EgtSetCurrMachGroup(nGroupId), 0, 1)
-            ' se altrimenti ammessi gruppi di lavoro vuoti
+         ' se altrimenti ammessi gruppi di lavoro vuoti
          ElseIf bAllowEmpty Then
             Return If(AddNewMachGroup(nGroupId, vPart), 0, 1)
-            ' altrimenti esco
+         ' altrimenti esco
          Else
             Return -1
          End If
       End If
    End Function
 
-   Private Function ExecScript(sScriptPath As String, nGroupId As Integer, nPartId As Integer) As Boolean
+   Private Function ExecScript(sScriptPath As String, nGroupId As Integer, nPartId As Integer, nInd As Integer, sParts As String) As Boolean
       EgtLuaCreateGlobTable("DISP")
       EgtLuaSetGlobIntVar("DISP.GROUPID", nGroupId)
       EgtLuaSetGlobIntVar("DISP.PARTID", nPartId)
+      EgtLuaSetGlobIntVar("DISP.IND", nInd)
+      EgtLuaSetGlobStringVar("DISP.PARTS", sParts)
       If Not EgtLuaExecFile(sScriptPath) Then
          EgtOutLog("Error executing disposition init script " & sScriptPath)
-         MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 2) & " " & sScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 2) & " " & sScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5462) & " " & sScriptPath, EgtMsg(5461), MessageBoxButton.OK, MessageBoxImage.Error) ' Errore nella esecuzione dello script automatico di disposizione ERRORE DI ESECUZIONE SCRIPT
          Return False
       End If
       Dim nErr As Integer = 999
@@ -161,10 +168,25 @@ Public Class MyMachGroupPanelVM
       If bWithScript Then
          ' Rendo corrente il gruppo di lavoro
          EgtSetCurrMachGroup(nGroupId)
-         ' Creo grezzo e posiziono i pezzi
+         ' Recupero i pezzi già inseriti
+         Dim sParts As String = ""
+         Dim nInd As Integer = 0
+         Dim nRawId As Integer = EgtGetFirstRawPart()
+         While nRawId <> GDB_ID.NULL
+            Dim nPartId As Integer = EgtGetFirstPartInRawPart( nRawId)
+            While nPartId <> GDB_ID.NULL
+               nInd += 1
+               sParts &= nInd.ToString() & ","
+               nPartId = EgtGetNextPartInRawPart( nPartId)
+            End While
+            nRawId = EgtGetNextRawPart( nRawId)
+         End While 
+         ' Creo grezzi e posiziono i pezzi
          Dim bOk As Boolean = True
+         sParts &= String.Join( ",", PartList)
          For Each Part In PartList
-            If Not ExecScript(sInitScriptPath, nGroupId, Part) Then bOk = False
+            nInd += 1
+            If Not ExecScript(sInitScriptPath, nGroupId, Part, nInd, sParts) Then bOk = False
          Next
          Return bOk
       Else
@@ -193,14 +215,18 @@ Public Class MyMachGroupPanelVM
             Return False
          End If
          If bWithScript Then
-            ' Creo grezzo e posiziono i pezzi
             Dim bOk As Boolean = True
-            For Each Part In PartList
-               If Not ExecScript(sInitScriptPath, nGroupId, Part) Then bOk = False
-            Next
-            ' Gestione ingresso senza pezzi
-            If PartList.Count() = 0 Then
-               If Not ExecScript(sInitScriptPath, nGroupId, GDB_ID.NULL) Then bOk = False
+            ' Creo grezzi e posiziono i pezzi
+            If PartList.Count() > 0 then
+               Dim nInd As Integer = 0
+               Dim sParts As String = String.Join( ",", PartList)
+               For Each Part In PartList
+                  nInd += 1
+                  If Not ExecScript(sInitScriptPath, nGroupId, Part, nInd, sParts) Then bOk = False
+               Next
+            ' altrimenti, ingresso senza pezzi
+            Else
+               If Not ExecScript(sInitScriptPath, nGroupId, GDB_ID.NULL, 0, "") Then bOk = False
             End If
             If Not bOk Then
                EgtResetCurrMachGroup()
@@ -208,6 +234,13 @@ Public Class MyMachGroupPanelVM
                EgtOutLog("Errore nel posizionamento dei pezzi")
                Return False
             End If
+         Else
+            Dim sTabNames As String = ""
+            EgtGetAllTablesNames(sTabNames)
+            Dim sItems() As String = sTabNames.Split(","c).ToArray
+            If sItems.Count() > 0 Then
+               EgtSetTable( sItems(0))
+            End If
          End If
       Else
          EgtOutLog("Machine without InitDisp script.")
@@ -272,7 +305,8 @@ Public Class MyMachGroupPanelVM
       If Not String.IsNullOrEmpty(sDefaultSetUpName) Then
          If Not EgtImportSetup(String.Empty) Then
             EgtOutLog("Error loading default setup " & sDefaultSetUpName)
-            MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 9) & " " & sDefaultSetUpName, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 9) & " " & sDefaultSetUpName, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6479) & " " & sDefaultSetUpName, EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore nel caricamento del setup  Errore
          End If
       End If
    End Sub
@@ -290,25 +324,48 @@ Public Class MyMachGroupPanelVM
             EgtWPFLib5.MachiningTreeViewItem.m_MatType = MaterialType.WOOD
          Case "Beam"
             EgtWPFLib5.MachiningTreeViewItem.m_MatType = MaterialType.BEAM
+         Case "Additive"
+            EgtWPFLib5.MachiningTreeViewItem.m_MatType = MaterialType.WOOD
          Case Else
-            ' Se il materiale spcificato nel file INI della macchina non corrisponde ai 2 sopracitati viene emesso un messaggio di errore 
+            ' Se il materiale specificato nel file INI della macchina non corrisponde ai 4 sopracitati viene emesso un messaggio di errore 
             EgtWPFLib5.MachiningTreeViewItem.m_MatType = Nothing
-            MsgBox(EgtMsg(31409), MsgBoxStyle.Exclamation, EgtMsg(31551))
+            MsgBox(EgtMsg(31409), MsgBoxStyle.Exclamation, EgtMsg(31551))     ' Errore
       End Select
    End Sub
 
 #End Region
 
    Public Overrides Sub AddMachGroup()
-      'If AddNewMachGroup() Then
-      '   Dim sMachName As String = String.Empty
-      '   EgtGetMachGroupName(EgtGetCurrMachGroup(), sMachName)
-      '   MachGroupList.Add(sMachName)
-      '   SelectedMachGroup = sMachName
-      '   EgtDraw()
-      '   Map.refOperationsListExpanderVM.LoadOperationList(GDB_ID.NULL)
-      '   Map.refOperationsListExpanderVM.UpdateCurrentMachine()
-      'End If
+   
+      Dim nNewMachGrpId As Integer = GDB_ID.NULL
+      Dim sNewMachGrpName As String = ""
+
+      ' Se premuto Shift, copio il gruppo corrente
+      If (Keyboard.Modifiers And Input.ModifierKeys.Shift) = Input.ModifierKeys.Shift Then
+         ' Eseguo una copia del gruppo corrente
+         Dim sMachGrpName As String = ""
+         If Not EgtGetMachGroupName(EgtGetCurrMachGroup(), sMachGrpName) Then Return 
+         sNewMachGrpName = "Mach_1"
+         EgtGetMachGroupNewName(sNewMachGrpName)
+         nNewMachGrpId = EgtCopyMachGroup(sMachGrpName, sNewMachGrpName)
+      ' altrimenti ne aggiungo uno vuoto
+      Else
+         Dim vPart As New List(Of Integer)
+         AddNewMachGroup(nNewMachGrpId, vPart)
+         EgtGetMachGroupName(nNewMachGrpId, sNewMachGrpName)
+      End If
+
+      ' Se creazione non riuscita, esco subito
+      If nNewMachGrpId = GDB_ID.NULL Then Return
+      ' altrimenti sistemo interfaccia
+      Dim sMachine As String = String.Empty
+      EgtGetMachGroupMachineName(nNewMachGrpId, sMachine)
+      Dim machGroup As New MachGroup(nNewMachGrpId, sNewMachGrpName, sMachine)
+      MachGroupList.Add(machGroup)
+      SelectedMachGroup = machGroup
+      Map.refMachGroupPanelVM.SetMachGroupState(True)
+
+      EgtZoom(ZM.ALL)
    End Sub
 
    Public Overrides Sub RemoveMachGroup()
@@ -316,7 +373,8 @@ Public Class MyMachGroupPanelVM
       Dim nSelectedMachGroupIndex As Integer = MachGroupList.IndexOf(SelectedMachGroup)
       If nSelectedMachGroupIndex = 0 And MachGroupList.Count = 1 Then
          ' chiedo conferma prima di cancellare il gruppo di lavorazione
-         Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         'Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5502), "", MessageBoxButton.YesNo, MessageBoxImage.Question)    ' Sicuro di voler cancellare il Gruppo di Lavorazione?
             Case MessageBoxResult.Yes
                ' cancello il gruppo corrente
                EgtRemoveMachGroup(EgtGetMachGroupId(MachGroupList(nSelectedMachGroupIndex).Name))
@@ -329,7 +387,8 @@ Public Class MyMachGroupPanelVM
          End Select
       Else
          ' chiedo conferma prima di cancellare il gruppo di lavorazione
-         Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         'Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5502), "", MessageBoxButton.YesNo, MessageBoxImage.Question)    ' Sicuro di voler cancellare il Gruppo di Lavorazione?
             Case MessageBoxResult.Yes
                Dim nNewInd As Integer = -1
                If nSelectedMachGroupIndex = 0 And MachGroupList.Count > 1 Then
@@ -364,10 +423,11 @@ Public Class MyMachGroupPanelVM
          Map.refOperationsListExpanderVM.LoadOperationList(GDB_ID.NULL)
          Map.refMachinePanelVM.UpdateCurrentMachine()
          Map.refMachiningTreeExpanderVM.UpdateOperationMachiningList()
-         Map.refEstimationsExpanderVM.Estimation_IsEnabled =
-                     (EgtUILib.GetPrivateProfileInt(S_ESTIMATIONS, K_EST_ENABLE, 0, IniFile.m_sCurrMachIniFilePath) <> 0)
+         Map.refEstimationsExpanderVM.Estimation_IsEnabled = (EgtUILib.GetPrivateProfileInt(S_ESTIMATIONS, K_EST_ENABLE, 0, IniFile.m_sCurrMachIniFilePath) <> 0)
          ' Setto il Materiale in base alla Macchina associata al MachGroup corrente
          LoadMaterialType()
+         ' Zoom all
+         EgtZoom( ZM.ALL)
       End If
 
       Return True

MachOptionsWindow/MachOptionV.xaml

@@ -1,14 +1,14 @@
 <EgtWPFLib5:EgtCustomWindow x:Class="MachOptionV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:local="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
-   Title="{Binding Title}" Icon="/Resources/EgtCAM5.ico"
-   TitleBarBrush="{StaticResource EgaltechBlue1}"
-   BorderBrush="{StaticResource EgaltechBlue1}"
-   WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
-   IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False"
-   CloseCommand="{Binding CloseMachOptionsCommand, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}" SizeToContent="WidthAndHeight">
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:local="clr-namespace:EgtCAM5"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding Title}" Icon="/Resources/EgtCAM5.ico"
+                            TitleBarBrush="{StaticResource EgaltechBlue1}"
+                            BorderBrush="{StaticResource EgaltechBlue1}"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
+                            IsMinimizable="False" WindowStartupLocation="CenterOwner" ShowInTaskbar="False"
+                            CloseCommand="{Binding CloseMachOptionsCommand, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}" SizeToContent="WidthAndHeight">
 
    <EgtWPFLib5:EgtCustomWindow.Resources>
       <local:SplitArcTypeConverter x:Key="SplitArcTypeConverter"/>
@@ -27,6 +27,7 @@
          <RowDefinition Height="Auto"/>
          <RowDefinition Height="Auto"/>
          <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
       </Grid.RowDefinitions>
 
       <UniformGrid Grid.Row="0" Columns="2" Margin="0,0,0,5">
@@ -56,12 +57,17 @@
          </ComboBox>
       </UniformGrid>
 
-      <UniformGrid Grid.Row="4" Columns="2">
+      <UniformGrid Grid.Row="4" Columns="2" Margin="0,0,0,5">
+         <TextBlock Text="{Binding ApproxLinTolMsg}" VerticalAlignment="Center"/>
+         <TextBox Text="{Binding ApproxLinTol}" Height="25" Margin="10,0,0,0"/>
+      </UniformGrid>
+
+      <UniformGrid Grid.Row="5" Columns="2">
          <TextBlock Text="{Binding DefaultSetUpMsg}" VerticalAlignment="Center"/>
          <ComboBox ItemsSource="{Binding ArchivedSetUpList}" Height="25" Margin="10,0,0,0"
-            SelectedItem="{Binding SelectedDefaultSetUp}" IsEnabled="{Binding IsActiveDefaultSetUp}"/>
+                   SelectedItem="{Binding SelectedDefaultSetUp}" IsEnabled="{Binding IsActiveDefaultSetUp}"/>
       </UniformGrid>
 
    </Grid>
-   
+
 </EgtWPFLib5:EgtCustomWindow>

MachOptionsWindow/MachOptionVM.vb

@@ -48,6 +48,21 @@ Public Class MachOptionVM
       End Set
    End Property
 
+   Private m_sApproxLinTol As String
+   Public Property ApproxLinTol As String
+      Get
+         Return m_sApproxLinTol
+      End Get
+      Set(value As String)
+         Dim dApproxLinTol As Double = 0
+         If StringToLen(value, dApproxLinTol) Then
+            EgtMdbSetGeneralParam(MCH_GP.APPROXLINTOL, dApproxLinTol)
+            EgtMdbSave()
+            m_sApproxLinTol = value
+         End If
+      End Set
+   End Property
+
    Private m_SplitArcsList As New List(Of MCH_SA)({MCH_SA.NEVER, MCH_SA.GEN_PLANE, MCH_SA.NO_XY_PLANE, MCH_SA.ALWAYS})
    Public ReadOnly Property SplitArcsList As List(Of MCH_SA)
       Get
@@ -91,31 +106,36 @@ Public Class MachOptionVM
 
    Public ReadOnly Property SafeZMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 1)
+         Return EgtMsg(6401)     ' Z di sicurezza
       End Get
    End Property
 
    Public ReadOnly Property SafeAggrBottZMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 8)
+         Return EgtMsg(6408)     ' Sicurezza rinvio da sotto
       End Get
    End Property
 
    Public ReadOnly Property HolesToleranceMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 9)
+         Return EgtMsg(6409)     ' Tolleranza fori
+      End Get
+   End Property
+   Public ReadOnly Property ApproxLinTolMsg As String
+      Get
+         Return EgtMsg(6410)     ' Tolleranza di approssimazione
       End Get
    End Property
 
    Public ReadOnly Property SplitArcsMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 2)
+         Return EgtMsg(6402)     ' Spezzatura archi
       End Get
    End Property
 
    Public ReadOnly Property DefaultSetUpMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 7)
+         Return EgtMsg(6407)     ' Attrezzaggio predefinito
       End Get
    End Property
 
@@ -141,6 +161,10 @@ Public Class MachOptionVM
       Dim nVal As Integer = 0
       EgtMdbGetGeneralParam(MCH_GP.SPLITARCS, nVal)
       m_SelectedSplitArcs = DirectCast(nVal, MCH_SA)
+      ' Leggo tolleranza lineare di approssimazione
+      dVal = 0
+      EgtMdbGetGeneralParam(MCH_GP.APPROXLINTOL, dVal)
+      m_sApproxLinTol = LenToString(dVal, 4)
       ' Riempio lista attrezzaggi salvati
       m_ArchivedSetUpList.Add(String.Empty)
       If Directory.Exists(IniFile.m_sCurrMachSetUpDirPath) Then
@@ -202,13 +226,13 @@ Public Class SplitArcTypeConverter
    Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
       Select Case CInt(value)
          Case MCH_SA.NEVER
-            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 3)
+            Return EgtMsg(6403)     ' Mai
          Case MCH_SA.GEN_PLANE
-            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 4)
+            Return EgtMsg(6404)     ' Piano generico
          Case MCH_SA.NO_XY_PLANE
-            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 5)
+            Return EgtMsg(6405)     ' Piano diverso da XY
          Case Else
-            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 6)
+            Return EgtMsg(6406)     ' Sempre
       End Select
    End Function
 

MachinePanel/MachinePanelV.xaml

@@ -1,18 +1,20 @@
-<UserControl x:Class="MachinePanelV"
-             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+<EgtFloating:EgtFloatingPanel x:Class="MachinePanelV"
+                              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                              xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
+                              Visibility="{Binding MachinePanel_Visibility}">
 
    <StackPanel Orientation="Horizontal">
       <!--Combobox per selezionare la macchina corrente-->
       <ComboBox ItemsSource="{Binding Path=MachinesList}" DisplayMemberPath="Name"
-          SelectedItem="{Binding Path=SelectedMachine}" SelectedValuePath="Name"
-          Height="22" Width="150" IsEnabled="{Binding MachineListIsEnabled}" Margin="2,0"/>
+                SelectedItem="{Binding Path=SelectedMachine}" SelectedValuePath="Name"
+                Height="22" Width="150" IsEnabled="{Binding MachineListIsEnabled}" Margin="2,0"/>
       <Button Content="{Binding ToolDBMsg}"
-            Command="{Binding ToolDbCommand}"
-            IsEnabled="{Binding ToolDb_IsEnabled}"
-            Width="55"
-            ToolTip="{Binding ToolDBToolTip}"
-            Style="{StaticResource GridViewPanelButton}"/>
+              Command="{Binding ToolDbCommand}"
+              IsEnabled="{Binding ToolDb_IsEnabled}"
+              Width="55"
+              ToolTip="{Binding ToolDBToolTip}"
+              Style="{StaticResource GridViewPanelButton}"/>
       <Button Content="{Binding MachiningDbMsg}"
               Command="{Binding MachDbCommand}"
               IsEnabled="{Binding MachDb_IsEnabled}"
@@ -26,10 +28,10 @@
               ToolTip="{Binding SetUpDbToolTip}"
               Style="{StaticResource GridViewPanelButton}"/>
       <Button Command="{Binding MachOptionsCommand}"
-            ToolTip="{Binding MachOptionsToolTip}">
-          <Image Source="/Resources/MachinePanel/MachineOptions.png"
-              Height="22" />
+              ToolTip="{Binding MachOptionsToolTip}">
+         <Image Source="/Resources/MachinePanel/MachineOptions.png"
+                Height="22" />
       </Button>
-    </StackPanel>
+   </StackPanel>
 
-</UserControl>
+</EgtFloating:EgtFloatingPanel>

MachinePanel/MyMachinePanelVM.vb

@@ -64,8 +64,7 @@ Public Class MyMachinePanelVM
                IniFile.m_sCurrMachToolsDirPath = m_SelectedMachine.MachineDirPath & "\Tools"
                IniFile.m_sCurrMachSetUpDirPath = m_SelectedMachine.MachineDirPath & "\SetUp"
                IniFile.m_sCurrMachScriptsDirPath = m_SelectedMachine.MachineDirPath & "\Scripts"
-               UpdateToolAndMachDbParamVisibility()
-               NotifyPropertyChanged("SelectedMachine")
+               NotifyPropertyChanged(NameOf(SelectedMachine))
             End If
          End If
       End Set
@@ -78,25 +77,36 @@ Public Class MyMachinePanelVM
       End Get
       Set(value As Boolean)
          m_MachineListIsEnabled = value
-         NotifyPropertyChanged("MachineListIsEnabled")
+         NotifyPropertyChanged(NameOf(MachineListIsEnabled))
       End Set
    End Property
 
+   Private m_MachinePanel_Visibility As Visibility
+   Public ReadOnly Property MachinePanel_Visibility As Visibility
+      Get
+         Return m_MachinePanel_Visibility
+      End Get
+   End Property
+   Friend Sub SetMachinePanelVisibility(bValue As Boolean)
+      m_MachinePanel_Visibility = If(bValue, Visibility.Visible, Visibility.Collapsed)
+      NotifyPropertyChanged(NameOf(MachinePanel_Visibility))
+   End Sub
+
 #Region "Messages"
 
    Public ReadOnly Property ToolDBMsg As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 6)
+         Return EgtMsg(5006)     ' Db Ut.
       End Get
    End Property
    Public ReadOnly Property MachiningDbMsg As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 7)
+         Return EgtMsg(5007)     ' Db Lav.
       End Get
    End Property
    Public ReadOnly Property SetUpDbMsg As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 9)
+         Return EgtMsg(5009)     ' Db Att.
       End Get
    End Property
 
@@ -106,22 +116,22 @@ Public Class MyMachinePanelVM
 
    Public ReadOnly Property ToolDBToolTip As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 3)
+         Return EgtMsg(5003)     ' Db Utensili
       End Get
    End Property
    Public ReadOnly Property MachiningDbToolTip As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 4)
+         Return EgtMsg(5004)     ' Db Lavorazioni
       End Get
    End Property
    Public ReadOnly Property SetUpDbToolTip As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 10)
+         Return EgtMsg(5010)     ' Db Attrezzaggio
       End Get
    End Property
    Public ReadOnly Property MachOptionsToolTip As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 8)
+         Return EgtMsg(5008)     ' Opzioni Macchina
       End Get
    End Property
 
@@ -198,7 +208,8 @@ Public Class MyMachinePanelVM
       ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
       If Not EgtTdbReload() Then
          EgtOutLog("Impossible reloading tool Db")
-         MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6130), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Impossibile ricaricare il database utensili. Se la cartella delle macchine è su un server, verificare che la connessione sia attiva. Errore
          Return
       End If
 
@@ -221,15 +232,10 @@ Public Class MyMachinePanelVM
       ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
       If Not EgtTdbReload() Then
          EgtOutLog("Impossible reloading tool Db")
-         MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_TOOLSERRORS + 30), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6130), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Impossibile ricaricare il database utensili. Se la cartella delle macchine è su un server, verificare che la connessione sia attiva. Errore
          Return
       End If
-      'Dim ToolDbWindow As New ToolsDbV
-      'ToolDbWindow.Height = 640
-      'ToolDbWindow.Width = 1024
-      'ToolDbWindow.DataContext = New ToolsDbVM
-      'ToolDbWindow.Owner = Application.Current.MainWindow
-      'ToolDbWindow.ShowDialog()
 
       Dim sMachineDir As String = IniFile.m_sMachinesRoot & "\" & IniFile.m_sMachineName
       Dim ToolDbWindowVM As New MyToolDbWindowVM(sMachineDir, IniFile.m_sCurrMachIniFilePath, IniFile.m_ProjectSceneContext, "Wood", IniFile.m_nUserLevel > 9)
@@ -252,14 +258,15 @@ Public Class MyMachinePanelVM
       ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
       If Not EgtMdbReload() Then
          EgtOutLog("Impossible reloading machining Db")
-         MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6377), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Impossibile ricaricare database lavorazioni. Se la cartella delle macchine è su un server, verificare che la connessione sia attiva. Errore
          Return
       End If
       Dim MachDbWindowVM As New EgtWPFLib5.MachiningDbWindowVM(IniFile.m_sCurrMachIniFilePath, IniFile.m_ProjectSceneContext, "Wood", IniFile.m_nUserLevel > 9, True)
       Dim MachDbWindowV As New EgtWPFLib5.MachiningDbWindowV(Application.Current.MainWindow, MachDbWindowVM)
       If EgtWPFLib5.MachiningTreeViewItem.m_MatType <> 0 Then
-         MachDbWindowV.Height = 794 '674
-         MachDbWindowV.Width = 1024
+         MachDbWindowV.Height = 800 '674
+         MachDbWindowV.Width = 1150 '1024
          MachDbWindowV.Owner = Application.Current.MainWindow
          MachDbWindowV.ShowDialog()
       End If
@@ -273,16 +280,18 @@ Public Class MyMachinePanelVM
       ' ricarico il database per intercettare eventuali aggiornamenti fatti da altre istanze del programma (se la cartella Machines è condivisa)
       If Not EgtMdbReload() Then
          EgtOutLog("Impossible reloading machining Db")
-         MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_MACHININGSERRORS + 7), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6377), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Impossibile ricaricare database lavorazioni. Se la cartella delle macchine è su un server, verificare che la connessione sia attiva. Errore
          Return
       End If
       Dim MachDbWindowVM As New EgtWPFLib5.MachiningDbWindowVM(IniFile.m_sCurrMachIniFilePath, IniFile.m_ProjectSceneContext, "Wood", IniFile.m_nUserLevel > 9, True)
       Dim MachDbWindowV As New EgtWPFLib5.MachiningDbWindowV(Application.Current.MainWindow, MachDbWindowVM)
       If EgtWPFLib5.MachiningTreeViewItem.m_MatType <> 0 Then
-         MachDbWindowV.Height = 794 '674
-         MachDbWindowV.Width = 1024
+         MachDbWindowV.Height = 800 '674
+         MachDbWindowV.Width = 1150 '1024
          MachDbWindowV.Owner = Application.Current.MainWindow
          MachDbWindowV.ShowDialog()
+         If Not IsNothing(Map.refMachiningTreeExpanderVM) Then Map.refMachiningTreeExpanderVM.UpdateOperationMachiningList()
       End If
    End Sub
 
@@ -297,7 +306,8 @@ Public Class MyMachinePanelVM
       ' verifico che il file di configurazione attrezzaggio (lua) della macchina esista
       If Not File.Exists(IniFile.m_sCurrMachScriptsDirPath & "\" & SETUP_LUA) Then
          EgtOutLog("SetUp error: SetUp configuration file doesn't exist ")
-         MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6477), EgtMsg(6471), MessageBoxButton.OK, MessageBoxImage.Error)   ' Il file di configurazione non esiste! Errore
          Return
       End If
       ' carico Lua che contiene le funzioni per ottenere le posizioni valide dell'utensile selezionato,
@@ -316,7 +326,8 @@ Public Class MyMachinePanelVM
          EgtLuaGetGlobIntVar("STU.ERR", nErr)
          If nErr = 0 Then
             If EgtGetHeadExitCount(sHead) = 0 Then
-               MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6478), EgtMsg(6471), MessageBoxButton.OK, MessageBoxImage.Error)   ' L'attrezzaggio usa una testa che non esiste sulla macchina! Errore
                Return
             End If
          End If
@@ -346,11 +357,10 @@ Public Class MyMachinePanelVM
    ''' Execute the Exec.  This method is invoked by the ExecCommand.
    ''' </summary>
    Public Overrides Sub MachOptions(ByVal param As Object)
-      Dim MachOptionWindow As New MachOptionV
-      'MachOptionWindow.Height = 614
-      'MachOptionWindow.Width = 256
-      MachOptionWindow.DataContext = New MachOptionVM
-      MachOptionWindow.Owner = Application.Current.MainWindow
+      Dim MachOptionWindow As New MachOptionV With {
+         .DataContext = New MachOptionVM,
+         .Owner = Application.Current.MainWindow
+      }
       MachOptionWindow.ShowDialog()
    End Sub
 
@@ -368,7 +378,7 @@ Public Class MyMachinePanelVM
       If String.IsNullOrWhiteSpace(IniFile.m_sMachinesRoot) OrElse
          Not Directory.Exists(IniFile.m_sMachinesRoot) OrElse Directory.GetDirectories(IniFile.m_sMachinesRoot).Count = 0 Then
          IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW
-         EgtOutLog(EgtMsg(MSG_STATUSBAR + 1))
+         EgtOutLog(EgtMsg(6801))    ' Direttorio Machines non trovato. EgtCAM5 funzionerà in modo solo CAD.
          Return
       End If
       ' Cerco le macchine
@@ -378,7 +388,7 @@ Public Class MyMachinePanelVM
       Next
       If m_MachinesList.Count = 0 Then
          IniFile.m_ProjectMode = ProjectModeOpt.ONLYDRAW
-         EgtOutLog(EgtMsg(MSG_STATUSBAR + 1))
+         EgtOutLog(EgtMsg(6801))    ' Direttorio Machines non trovato. EgtCAM5 funzionerà in modo solo CAD.
          Return
       End If
    End Sub
@@ -436,14 +446,4 @@ Public Class MyMachinePanelVM
 
    End Class
 
-   Private Sub UpdateToolAndMachDbParamVisibility()
-      If EgtUILib.GetPrivateProfileInt(S_MACHININGS, K_SAWINGONARCS, 0, IniFile.m_sCurrMachIniFilePath) <> 0 Then
-         Sawing(39) = Visibility.Visible                               ' StepExtArc
-         Sawing(40) = Visibility.Visible                               ' StepIntArc
-      Else
-         Sawing(39) = Visibility.Collapsed                               ' StepExtArc
-         Sawing(40) = Visibility.Collapsed                               ' StepIntArc
-      End If
-   End Sub
-
 End Class

MachiningDbWindow/MyMachiningDbV.xaml

@@ -1,85 +1,22 @@
 <EgtWPFLib5:EgtCustomWindow x:Class="MyMachiningDbV"
-   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:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:local="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
-   Title="{Binding Title}" Icon="/Resources/EgtCAM5.ico"
-   TitleBarBrush="{StaticResource EgaltechBlue1}"
-   BorderBrush="{StaticResource EgaltechBlue1}"
-   WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
-   IsMinimizable="False" WindowStartupLocation="CenterScreen" ShowInTaskbar="False"
-   CloseCommand="{Binding CloseMachiningsDbCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}"
-   CloseCommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}">
-   
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            Title="{Binding Title}" Icon="/Resources/EgtCAM5.ico"
+                            TitleBarBrush="{StaticResource EgaltechBlue1}"
+                            BorderBrush="{StaticResource EgaltechBlue1}"
+                            WindowStyle="None" ResizeMode="NoResize" TitleBarHeight="30" IsResizable="False"
+                            IsMinimizable="False" WindowStartupLocation="CenterScreen" ShowInTaskbar="False"
+                            CloseCommand="{Binding CloseMachiningsDbCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}"
+                            CloseCommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}">
+
    <EgtWPFLib5:EgtCustomWindow.InputBindings>
       <KeyBinding Key="Escape" Command="{Binding ReloadMachiningCommand}"
-         CommandParameter="{Binding Path=SelectedItem,ElementName=MachiningsTreeView}"/>
+                  CommandParameter="{Binding Path=SelectedItem,ElementName=MachiningsTreeView}"/>
    </EgtWPFLib5:EgtCustomWindow.InputBindings>
 
-    <EgtWPFLib5:EgtCustomWindow.Resources>
+   <EgtWPFLib5:EgtCustomWindow.Resources>
       <EgtWPFLib5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <EgtWPFLib5:ErrorVisibilityConverter x:Key="ErrorVisibilityConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLap">47</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SelectedSolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
-
    </EgtWPFLib5:EgtCustomWindow.Resources>
 
    <Grid>
@@ -89,71 +26,70 @@
          <ColumnDefinition Width="1*"/>
       </Grid.ColumnDefinitions>
 
-        <Grid>
-            <Grid.RowDefinitions>
-                <RowDefinition Height="1*"/>
-                <RowDefinition Height="11*"/>
-            </Grid.RowDefinitions>
+      <Grid>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="11*"/>
+         </Grid.RowDefinitions>
 
-            <UniformGrid Grid.Row="0" Columns="3">
-                <Button Content="New" Command="{Binding NewCommand}"
-               CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
-               IsEnabled="{Binding IsEnabledNewBtn, Mode=OneWay}"/>
-                <Button Content="Save" Command="{Binding SaveCommand}"
-               CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
-               IsEnabled="{Binding IsEnabledSaveBtn, Mode=OneWay}"/>
-                <Button Content="Remove" Command="{Binding RemoveCommand}"
-               CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
-               IsEnabled="{Binding IsEnabledRemoveBtn, Mode=OneWay}"/>
-            </UniformGrid>
+         <UniformGrid Grid.Row="0" Columns="3">
+            <Button Content="New" Command="{Binding NewCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
+                    IsEnabled="{Binding IsEnabledNewBtn, Mode=OneWay}"/>
+            <Button Content="Save" Command="{Binding SaveCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
+                    IsEnabled="{Binding IsEnabledSaveBtn, Mode=OneWay}"/>
+            <Button Content="Remove" Command="{Binding RemoveCommand}"
+                    CommandParameter="{Binding Path=SelectedItem, ElementName=MachiningsTreeView}"
+                    IsEnabled="{Binding IsEnabledRemoveBtn, Mode=OneWay}"/>
+         </UniformGrid>
 
-            <TreeView Name="MachiningsTreeView" Grid.Row="1"
-            ItemsSource="{Binding Path=MachiningsList}">
+         <TreeView Name="MachiningsTreeView" Grid.Row="1"
+                   ItemsSource="{Binding Path=MachiningsList}">
 
-                <TreeView.ItemContainerStyle>
-                    <Style TargetType="{x:Type TreeViewItem}">
-                        <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.ItemContainerStyle>
+               <Style TargetType="{x:Type TreeViewItem}">
+                  <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:FamilyMachiningTreeViewItem}" ItemsSource="{Binding Items}">
+            <TreeView.Resources>
+               <HierarchicalDataTemplate DataType="{x:Type EgtWPFLib5:FamilyMachiningTreeViewItem}" ItemsSource="{Binding Items}">
 
-                        <Grid >
-                            <Grid.ColumnDefinitions>
-                                <ColumnDefinition Width="Auto"/>
-                                <ColumnDefinition Width="1*"/>
-                            </Grid.ColumnDefinitions>
+                  <Grid >
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="Auto"/>
+                        <ColumnDefinition Width="1*"/>
+                     </Grid.ColumnDefinitions>
 
-                            <Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Width="32" Margin="0,8,6,4" />
-                            <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="10" />
+                     <Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Width="32" Margin="0,8,6,4" />
+                     <TextBlock Grid.Column="1" Text="{Binding Name}" FontSize="15" Margin="10" />
 
-                        </Grid>
+                  </Grid>
 
-                    </HierarchicalDataTemplate>
+               </HierarchicalDataTemplate>
 
-                    <DataTemplate DataType="{x:Type EgtWPFLib5:MachiningTreeViewItem}">
-                        <Grid >
-                            <Grid.ColumnDefinitions>
-                                <ColumnDefinition Width="Auto"/>
-                                <ColumnDefinition Width="1*"/>
-                            </Grid.ColumnDefinitions>
+               <DataTemplate DataType="{x:Type EgtWPFLib5:MachiningTreeViewItem}">
+                  <Grid >
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="Auto"/>
+                        <ColumnDefinition Width="1*"/>
+                     </Grid.ColumnDefinitions>
 
-                            <!--<Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Margin="0,8,6,4" />-->
-                            <TextBlock Grid.Column="1" Text="{Binding NamePar}" Height="18" FontSize="15"  Margin="10"/>
+                     <TextBlock Grid.Column="1" Text="{Binding NamePar}" Height="18" FontSize="15"  Margin="10"/>
 
-                        </Grid>
-                    </DataTemplate>
-                </TreeView.Resources>
+                  </Grid>
+               </DataTemplate>
+            </TreeView.Resources>
 
-            </TreeView>
+         </TreeView>
 
-        </Grid>
+      </Grid>
+
+      <ContentControl Content="{Binding ParamPageV}" Grid.Column="1" Grid.ColumnSpan="2"/>
 
-        <ContentControl Content="{Binding ParamPageV}" Grid.Column="1" Grid.ColumnSpan="2"/>
-            
    </Grid>
 
 </EgtWPFLib5:EgtCustomWindow>

MainWindow/MainWindowV.xaml

@@ -1,16 +1,16 @@
 <EgtWPFLib5:EgtCustomWindow x:Class="MainWindowV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
-   xmlns:local="clr-namespace:EgtCAM5"
-   Title="{Binding Title}" Icon="/Resources/EgtCAM5.ico"
-   TitleBarBrush="{StaticResource EgaltechBlue1}" TitleBarHeight="32"
-   BorderBrush="{StaticResource EgaltechBlue1}" BorderThickness="2"
-   MinHeight="600" MinWidth="800" WindowStyle="None" ResizeMode="NoResize"
-   AboutBoxCommand="{Binding AboutBoxCommand}"
-   AllowDrop="True" Drop="MainWindow_Drop"
-   CloseCommand="{Binding CloseApplicationCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
+                            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+                            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+                            xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+                            xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
+                            xmlns:local="clr-namespace:EgtCAM5"
+                            Title="{Binding Title}" Icon="{Binding IconSource}"
+                            TitleBarBrush="{StaticResource EgaltechBlue1}" TitleBarHeight="32"
+                            BorderBrush="{StaticResource EgaltechBlue1}" BorderThickness="2"
+                            MinHeight="600" MinWidth="800" WindowStyle="None" ResizeMode="NoResize"
+                            AboutBoxCommand="{Binding AboutBoxCommand}"
+                            AllowDrop="True" Drop="MainWindow_Drop"
+                            CloseCommand="{Binding CloseApplicationCommand,Mode=OneWay,UpdateSourceTrigger=PropertyChanged}">
    <EgtWPFLib5:EgtCustomWindow.TitlePanel>
       <local:TopCommandBarV DataContext="{StaticResource TopCommandBarViewModel}"/>
    </EgtWPFLib5:EgtCustomWindow.TitlePanel>

MainWindow/MainWindowV.xaml.vb

@@ -1,5 +1,4 @@
-Imports System.ComponentModel
-Imports EgtWPFLib5
+Imports EgtWPFLib5
 
 Class MainWindowV
    Inherits EgtCustomWindow

MainWindow/MainWindowVM.vb

@@ -1,9 +1,7 @@
-Imports System.Collections.ObjectModel
-Imports System.Threading
-Imports System.Windows.Threading
-Imports System.Runtime.InteropServices
+Imports System.Threading
 Imports System.Math
 Imports EgtUILib
+Imports EgtWPFLib5
 
 Public Class MainWindowVM
    Inherits ViewModelBase
@@ -14,13 +12,16 @@ Public Class MainWindowVM
    Private m_objMutex As Mutex
    Private m_sDataRoot As String = String.Empty
    Private m_sConfigDir As String = String.Empty
-   Private m_nDebug As Integer = 0
+   Private m_OnTerminateProcessCallback As New OnTerminateProcessCallback(AddressOf OnTerminateProcess)
 
    ' EGALTECH ENVIRONMENT FIELDS WITH PROPERTY
 
-   ' GRAPHICAL FIELDS
-   ' Event commands
-   ' MainWindow ContentRendered Event
+   Private m_nDebug As Integer = 0
+   Public ReadOnly Property DebugLevel As Integer
+      Get
+         Return m_nDebug
+      End Get
+   End Property
 
    Private m_sVersion As String = "1.1a1"
    Public ReadOnly Property Version As String
@@ -37,7 +38,7 @@ Public Class MainWindowVM
       Set(value As String)
          If value <> m_Title Then
             m_Title = value
-            OnPropertyChanged("Title")
+            OnPropertyChanged(NameOf(Title))
          End If
       End Set
    End Property
@@ -57,23 +58,24 @@ Public Class MainWindowVM
    Public ReadOnly Property TopCommandBar As TopCommandBarV
       Get
          If IsNothing(m_TopCommandBar) Then
-            m_TopCommandBar = New TopCommandBarV
-            m_TopCommandBar.DataContext = New TopCommandBarVM
+            m_TopCommandBar = New TopCommandBarV With {
+               .DataContext = New TopCommandBarVM
+            }
          End If
          Return m_TopCommandBar
       End Get
    End Property
 
    ' GRAPHICAL FIELDS WITH PROPERTY
-
    Private m_StatusBar As StatusBarV
    Private m_bfirst As Boolean = True
    Public ReadOnly Property StatusBar As StatusBarV
       Get
          If m_bfirst Then
             m_bfirst = False
-            m_StatusBar = New StatusBarV
-            m_StatusBar.DataContext = New MyStatusBarVM
+            m_StatusBar = New StatusBarV With {
+               .DataContext = New MyStatusBarVM
+            }
          End If
          Return m_StatusBar
       End Get
@@ -85,13 +87,24 @@ Public Class MainWindowVM
       Get
          If m_bFirstProjectPage Then
             m_bFirstProjectPage = False
-            m_ProjectPage = New ProjectV
-            m_ProjectPage.DataContext = New ProjectVM
+            m_ProjectPage = New ProjectV With {
+               .DataContext = New ProjectVM
+            }
          End If
          Return m_ProjectPage
       End Get
    End Property
 
+   Public ReadOnly Property IconSource As String
+      Get
+#If PLATFORM = "x64" Then
+            Return "/Resources/EgtCAM5_64.ico"
+#Else
+         Return "/Resources/EgtCAM5.ico"
+#End If
+      End Get
+   End Property
+
 #End Region
 
 #Region "CONSTRUCTOR"
@@ -124,8 +137,9 @@ Public Class MainWindowVM
 
    ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
    Public Sub AboutBox(ByVal param As Object)
-      Dim AboutBoxWindow As New AboutBoxWndV
-      AboutBoxWindow.Owner = Application.Current.MainWindow
+      Dim AboutBoxWindow As New AboutBoxWndV With {
+         .Owner = Application.Current.MainWindow
+      }
       AboutBoxWindow.ShowDialog()
    End Sub
 
@@ -190,6 +204,19 @@ Public Class MainWindowVM
       End If
    End Sub
 
+   Private Function OnTerminateProcess( nExitCode As Integer) As Boolean
+      ' Aggiorno istanze usate
+      m_objMutex.WaitOne(1000)
+      Dim nTmp As Integer = GetPrivateProfileInt(S_GENERAL, K_INSTANCES, 0)
+      nTmp -= (1 << (IniFile.m_nInstance - 1))
+      WritePrivateProfileString(S_GENERAL, K_INSTANCES, nTmp.ToString())
+      m_objMutex.ReleaseMutex()
+      ' Rilascio mutex
+      If Not IsNothing(m_objMutex) Then m_objMutex.Close()
+      ' Dichiaro di procedere con la terminazione del programma
+      Return True
+   End Function
+
 #End Region ' CloseApplicationCommand
 
 #Region "cmdMainWindow_ContentRendered"
@@ -331,31 +358,40 @@ Public Class MainWindowVM
       ' Impostazione direttorio toolmakers
       Dim sToolMakersDir As String = String.Empty
       GetPrivateProfileString(S_MACH, K_TOOLMAKERSDIR, "", sToolMakersDir)
-      #If PLATFORM = "x64" Then
-         GetPrivateProfileString(S_MACH, K_TOOLMAKERSDIR64, sToolMakersDir, sToolMakersDir)
-      #End If
-      If Not String.IsNullOrWhiteSpace( sToolMakersDir) Then
+      If Not String.IsNullOrWhiteSpace(sToolMakersDir) Then
          IniFile.m_sToolMakersDir = sToolMakersDir
       Else
          IniFile.m_sToolMakersDir = m_sDataRoot & "\" & TOOLMAKER_DFL_DIR
-      End If 
+      End If
       ' Verifico indice di istanza
       ManageInstance()
       ' Imposto tipo di chiave
       EgtSetLockType(KEY_TYPE.HW)
       ' Leggo e imposto chiave di protezione ed eventuale chiave nesting
       Dim sLicFileName As String = ""
-      GetPrivateProfileString( S_GENERAL, K_LICENCE, LIC_FILE_NAME, sLicFileName)
+      GetPrivateProfileString(S_GENERAL, K_LICENCE, LIC_FILE_NAME, sLicFileName)
       Dim sLicFile As String = m_sConfigDir & "\" & sLicFileName
       Dim sKey As String = ""
-      EgtUILib.GetPrivateProfileString( S_LICENCE, K_KEY, "", sKey, sLicFile)
-      EgtSetKey( sKey)
+      EgtUILib.GetPrivateProfileString(S_LICENCE, K_KEY, "", sKey, sLicFile)
+      EgtSetKey(sKey)
       Dim sNestKey As String = ""
-      EgtUILib.GetPrivateProfileString( S_LICENCE, K_NESTKEY, "", sNestKey, sLicFile)
-      EgtSetNestKey( sNestKey)
+      EgtUILib.GetPrivateProfileString(S_LICENCE, K_NESTKEY, "", sNestKey, sLicFile)
+      EgtSetNestKey(sNestKey)
+      ' Impostazioni per chiave di rete
+      Dim bNetKey As Boolean = (GetPrivateProfileInt(S_GENERAL, K_NETKEY, 0) = 1)
+      EgtSetNetHwKey(bNetKey)
+      Dim sLockId As String = ""
+      EgtUILib.GetPrivateProfileString(S_LICENCE, K_LOCKID, "", sLockId, sLicFile)
+      If Not String.IsNullOrEmpty(sLockId) Then
+         EgtSetLockId(sLockId)
+      End If
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(3279, 2310, 1, IniFile.m_nKeyLevel) And
-                            EgtGetKeyOptions(3279, 2310, 1, IniFile.m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(3279, 2703, 1, IniFile.m_nKeyLevel) And
+                            EgtGetKeyOptions(3279, 2703, 1, IniFile.m_nKeyOptions)
+      ' Leggo e imposto livello utilizzatore
+      IniFile.m_nUserLevel = Math.Min(IniFile.m_nKeyLevel, GetPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1))
+      ' Imposto abilitazione lavorazioni avanzate
+      MachineUtility.EnableAdvMachinings = IniFile.IsKeyEnabledAdvancedMachining()
       ' Inizializzazione generale di EgtInterface
       m_nDebug = GetPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
       m_sVersion = My.Application.Info.Version.Major.ToString() & "." &
@@ -363,9 +399,13 @@ Public Class MainWindowVM
                    (ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
                    My.Application.Info.Version.Revision.ToString()
       IniFile.m_sLogFile = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", IniFile.m_nInstance.ToString())
-      Dim sLogMsg As String = "User " & Environment.MachineName & "\" & Environment.UserName & " (" & IniFile.m_nInstance.ToString() & ")" & vbLf &
+      Dim sLogMsg As String = "User " & Environment.MachineName & "\" & Environment.UserName &
+                              "  Inst" & IniFile.m_nInstance.ToString() &
+                              " Ulv" & IniFile.m_nUserLevel.ToString() & " Dbg" & DebugLevel().ToString() & vbLf &
                               My.Application.Info.Title.ToString() & " ver. " & m_sVersion
       EgtInit(m_nDebug, IniFile.m_sLogFile, sLogMsg)
+      EgtSetOnTerminateProcess( m_OnTerminateProcessCallback)
+      EgtSetUserLevel( IniFile.m_nUserLevel)
       ' Leggo direttorio dei messaggi (se manca uso direttorio di configurazione)
       Dim sMsgDir As String = String.Empty
       If GetPrivateProfileString(S_GENERAL, K_MESSAGESDIR, "", sMsgDir) = 0 Then
@@ -378,32 +418,31 @@ Public Class MainWindowVM
       If Not EgtLoadMessages(sMsgFilePath) Then
          EgtOutLog("Error in EgtLoadMessages")
       End If
-      ' Leggo e imposto livello utilizzatore
-      IniFile.m_nUserLevel = Math.Min(IniFile.m_nKeyLevel, GetPrivateProfileInt(S_GENERAL, K_USERLEVEL, 1))
-      ' imposto dir font Nfe e font default
+      ' Imposto dir font Nfe e font default
       Dim sNfeDir As String = String.Empty
       GetPrivateProfileString(S_GEOMDB, K_NFEFONTDIR, "", sNfeDir)
       GetPrivateProfileString(S_GEOMDB, K_DEFAULTFONT, "", OptionModule.m_sFontText)
       EgtSetFont(sNfeDir, OptionModule.m_sFontText)
-      ' imposto direttorio ausiliario per import/gestione BTL
-      Dim sBtlAuxDir As String = String.Empty
-      GetPrivateProfileString(S_IMPORT, K_BTLAUXDIR, "", sBtlAuxDir)
-      EgtSetBtlAuxDir(sBtlAuxDir)
-      ' imposto dir di default per libreria Lua e lancio libreria di base
+      ' Imposto dir di default per libreria Lua e lancio libreria di base
       Dim sLuaLibsDir As String = String.Empty
       GetPrivateProfileString(S_LUA, K_LIBSDIR, "", sLuaLibsDir)
-      #If PLATFORM = "x64" Then
-         GetPrivateProfileString(S_LUA, K_LIBSDIR64, sLuaLibsDir, sLuaLibsDir)
-      #End If
       EgtSetLuaLibs(sLuaLibsDir)
       Dim sLuaBaseLib As String = String.Empty
       GetPrivateProfileString(S_LUA, K_BASELIB, "EgtBase", sLuaBaseLib)
       EgtLuaRequire(sLuaBaseLib)
-      ' imposto direttorio temporaneo a EgtInterface
+      ' Imposto direttorio ausiliario per import/gestione BTL (sempre dopo impostazioni lua)
+      Dim sBtlAuxDir As String = String.Empty
+      GetPrivateProfileString(S_IMPORT, K_BTLAUXDIR, "", sBtlAuxDir)
+      EgtSetBtlAuxDir(sBtlAuxDir)
+      ' Imposto direttorio libreria per export ThreeJs
+      Dim sThreeJSLibDir As String = String.Empty
+      GetPrivateProfileString(S_EXPORT, K_THREEJSLIBDIR, "", sThreeJSLibDir)
+      EgtSetThreeJSLibDir(sThreeJSLibDir)
+      ' Imposto direttorio temporaneo a EgtInterface
       EgtSetTempDir(m_sTempDir)
-      ' imposto IniFile a EgtInterface
+      ' Imposto IniFile a EgtInterface
       EgtSetIniFile(m_sIniFile)
-      ' verifico se avviare programma in modalità CAD-ONLY
+      ' Verifico se avviare programma in modalità CAD-ONLY
       IniFile.m_ProjectMode = If(GetPrivateProfileInt(S_GENERAL, K_ONLYDRAW, 0) = 0, ProjectModeOpt.DRAW, ProjectModeOpt.ONLYDRAW)
       ' Impostazioni MruLists
       m_MruFiles.Init(S_MRUFILES, 8)
@@ -448,7 +487,7 @@ Public Class MainWindowVM
             Dim nTmp As Integer = GetPrivateProfileInt(S_GENERAL, K_INSTANCES, 0)
             IniFile.m_nInstance = 1
             Dim nMask As Integer = 1
-            While (nTmp And nMask) <> 0 And IniFile.m_nInstance < MAX_INST
+            While (nTmp And nMask) <> 0 And IniFile.m_nInstance <= MAX_INST
                IniFile.m_nInstance += 1
                nMask *= 2
             End While
@@ -536,7 +575,7 @@ Public Class MainWindowVM
          WritePrivateProfileString(S_GRID, K_SNAPSTEPINCH, DoubleToString(IniFile.dSnapStepInch, 4))
       End If
       ' gestisco la chiusura di DrawPanelVM
-      If Not IniFile.m_bFailedRun Then
+      If Not IniFile.m_bFailedRun AndAlso Not IsNothing(Map.refDrawPanelVM) Then
          WritePrivateProfileString(S_GENERAL, K_DRAW2D, If(Map.refDrawPanelVM.Draw2DIsExpanded, "1", "0"))
          WritePrivateProfileString(S_GENERAL, K_DRAW3D, If(Map.refDrawPanelVM.Draw3DIsExpanded, "1", "0"))
          WritePrivateProfileString(S_GENERAL, K_MODIFY, If(Map.refDrawPanelVM.ModifyIsExpanded, "1", "0"))
@@ -548,7 +587,7 @@ Public Class MainWindowVM
 
 #Region "Events"
 
-   Private Sub MainWindow_KeyDown(ByVal sender As System.Object, ByVal e As KeyEventArgs)
+   Private Sub MainWindow_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
       ' Con ESC esco dall'azione corrente
       If e.Key = Key.Escape Then
          ' reset Azione corrente
@@ -559,6 +598,18 @@ Public Class MainWindowVM
          ' pulisco output
          Map.refStatusBarVM.NotifyStatusOutput("")
          Map.refInputExpanderVM.ResetInputBox()
+         If not IsNothing( Map.refMachiningParameterExpanderVM) Then
+            ' Nascondo la combobox delle usernotes
+            Map.refMachiningParameterExpanderVM.CurrOperation.SetComboAddVisibility(Visibility.Collapsed)
+            'riattivo il pulsante per visualizzare la combobox delle note
+            Map.refMachiningParameterExpanderVM.CurrOperation.SetShowNoteListCombo_IsEnable(True)
+         End If
+      ElseIf e.Key = Key.Left OrElse e.Key = Key.Right OrElse e.Key = Key.Up OrElse e.Key = Key.Down AndAlso
+             Map.refTopCommandBarVM.MachiningIsChecked AndAlso Map.refOperationParametersExpanderVM.OperationParameters.IsEnabled Then
+         Map.refMachiningParameterExpanderVM.FocusSlider()
+         Dim nStep As Integer = If(e.Key = Key.Right OrElse e.Key = Key.Up, 1, -1)
+         Map.refMachiningParameterExpanderVM.SetSliderValue(nStep)
+         e.Handled = True
       End If
    End Sub
 
@@ -571,7 +622,55 @@ Public Class MainWindowVM
    ''' </summary>
    Private m_allowWindowToClose As Boolean = False
 
-
 #End Region
 
+#Region "MEF Plugin"
+
+   Private m_Loader As New MEFLoader()
+
+   Private Function GetPathByName(ByVal name As String) As String
+      Dim PluginNameSplit() As String = name.Split("."c)
+      Dim res = Map.refMainWindowVM.m_sDataRoot & "\Plugin\" & PluginNameSplit(0)
+      Return res
+   End Function
+
+   Friend Function GetControlByName(Of T)(Element As PluginControl) As Panel
+      Dim PlugInControl As Object = m_Loader.LoadByTag(Of T)(GetPathByName(Element.Name), Element.Name).FirstOrDefault()
+      Dim PluginPanel As Panel = Nothing
+      Select Case PlugInControl.GetType().BaseType.FullName
+         Case GetType(Panel).FullName, GetType(Grid).FullName
+            PluginPanel = TryCast(PlugInControl, Panel)
+         Case GetType(Forms.UserControl).FullName
+            Dim PluginUserControl As Forms.UserControl = TryCast(PlugInControl, Forms.UserControl)
+            Dim PluginControlInterface As IPluginControl = TryCast(PlugInControl, IPluginControl)
+            If Not IsNothing(PluginControlInterface) Then
+               AddHandler PluginControlInterface.UpdateProjectName, AddressOf UpdateProjectName
+               AddHandler PluginControlInterface.UpdateUI, AddressOf UpdateUI
+            End If
+            PluginPanel = New WinFormPluginControlV(New WinFormPluginControlVM(PluginUserControl, Element.ViewPanelState))
+      End Select
+      Return PluginPanel
+   End Function
+
+   Friend Function GetConfigData(Of T)(ByVal name As String) As IPluginConfigData
+      Dim PlugInControl As Object = m_Loader.LoadByTag(Of T)(GetPathByName(name), name).FirstOrDefault()
+      Dim PluginConfigData As IPluginConfigData = Nothing
+      Dim v = PlugInControl.GetType()
+      If PlugInControl.GetType().Name = PLUGIN_CONFIGURATION_DATA Then
+         Return TryCast(PlugInControl, IPluginConfigData)
+      Else
+         Return Nothing
+      End If
+   End Function
+
+   Private Sub UpdateProjectName(ProjectName As String)
+      Map.refMainWindowVM.Title = ProjectName & " - EgtCAM5"
+   End Sub
+
+   Private Sub UpdateUI()
+      Map.refProjectVM.UpdateProjectUI(True)
+   End Sub
+
+#End Region    ' MEF Plugin
+
 End Class

My Project/AssemblyInfo.vb

@@ -28,9 +28,9 @@ Imports System.Windows
 <Assembly: AssemblyDescription("EgtCAM5 32 bit")> 
 #End If
 #End If
-<Assembly: AssemblyCompany("EgalTech s.r.l.")> 
-<Assembly: AssemblyProduct("EgtCAM5")> 
-<Assembly: AssemblyCopyright("Copyright ©  2016-2021 by EgalTech s.r.l.")> 
+<Assembly: AssemblyCompany("Egalware s.r.l.")> 
+<Assembly: AssemblyProduct("EgtCAM5")>
+<Assembly: AssemblyCopyright("Copyright ©  2016-2025 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")> 
 <Assembly: ComVisible(false)>
 
@@ -70,6 +70,6 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.10.6")>
-<Assembly: AssemblyFileVersion("2.3.10.6")>
+<Assembly: AssemblyVersion("2.7.3.1")>
+<Assembly: AssemblyFileVersion("2.7.3.1")>
 

OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderV.xaml

@@ -3,7 +3,7 @@
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
 
    <Expander IsExpanded="{Binding IsEnabled}" IsEnabled="{Binding IsEnabled}"
-      Style="{StaticResource ExpanderStyle}">
+             Style="{StaticResource ExpanderStyle}">
       <Expander.Header>
          <TextBlock Text="{Binding PropertiesMsg}"/>
       </Expander.Header>

OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderVM.vb

@@ -7,7 +7,7 @@ Public Class InfoExpanderVM
 
    Public ReadOnly Property PropertiesMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 1)
+         Return EgtMsg(5351)     ' Proprietà
       End Get
    End Property
 
@@ -21,7 +21,7 @@ Public Class InfoExpanderVM
       Set(value As Boolean)
          If value <> m_IsExpanded Then
             m_IsExpanded = value
-            OnPropertyChanged("IsEnabled")
+            OnPropertyChanged(NameOf(IsEnabled))
          End If
       End Set
    End Property
@@ -39,7 +39,7 @@ Public Class InfoExpanderVM
             Else
                IsEnabled = False
             End If
-            OnPropertyChanged("InfoBox")
+            OnPropertyChanged(NameOf(InfoBox))
          End If
       End Set
    End Property

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml

@@ -3,9 +3,9 @@
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
 
    <Expander Header="{Binding Title}" IsExpanded="{Binding IsExpanded}" IsEnabled="{Binding IsEnabled}"
-      Style="{StaticResource ExpanderStyle}">
+             Style="{StaticResource ExpanderStyle}">
       <StackPanel>
-         <StackPanel.Style>
+         <!--<StackPanel.Style>
             <Style TargetType="{x:Type StackPanel}">
                <Style.Triggers>
                   <DataTrigger Binding="{Binding FocusTextBox}" Value="True">
@@ -13,29 +13,78 @@
                   </DataTrigger>
                </Style.Triggers>
             </Style>
-         </StackPanel.Style>
+         </StackPanel.Style>-->
          <TextBlock Text="{Binding TextBlock}"
                     Visibility="{Binding TextVisibility}" Margin="5,5,0,5"/>
-         <TextBox Text="{Binding TextBox,UpdateSourceTrigger=PropertyChanged}"
-                  Visibility="{Binding TextVisibility}" Margin="5,0,5,5">
-            <TextBox.InputBindings>
-               <KeyBinding Key="Enter" Command="{Binding DoneCommand}"/>
-               <KeyBinding Key="S" Modifiers="Control" Command="{Binding ShowCommand}"/>
-            </TextBox.InputBindings>
-         </TextBox>
+         <Grid>
+            <Grid.ColumnDefinitions>
+               <ColumnDefinition Width="1*"/>
+               <ColumnDefinition Width="Auto"/>
+            </Grid.ColumnDefinitions>
+            <TextBox x:Name="Txt" Text="{Binding TextBox,UpdateSourceTrigger=PropertyChanged}"  
+                     PreviewKeyDown="TextBox_PreviewKeyDown" Height="Auto"
+                     Visibility="{Binding TextVisibility}" Margin="5,0,5,5" IsEnabled="True" Focusable="True" >
+               <TextBox.InputBindings>
+                  <KeyBinding Key="Enter" Command="{Binding DoneCommand}"/>
+                  <KeyBinding Key="S" Modifiers="Control" Command="{Binding ShowCommand}"/>
+               </TextBox.InputBindings>
+            </TextBox>
+            <Button Grid.Column="1" 
+                    Content="+"
+                    Command="{Binding ShowInfoItemCommand}"
+                    Visibility="Collapsed"
+                    Width="20"
+                    Height="20"
+                    Margin="5,-1,5,0" 
+                    VerticalAlignment="Top"/>
+            <!--Visibility="{Binding ShowInfoItemVisibility}"-->
+         </Grid>
          <CheckBox Content="{Binding CheckBoxText}" IsChecked="{Binding IsChecked}"
                    Visibility="{Binding CheckVisibility}" Margin="5,0,5,5"/>
          <ComboBox ItemsSource="{Binding ComboItemsList}" SelectedIndex="{Binding ComboSelectedIndex}"
-                   Visibility="{Binding ComboVisibility}" Margin="5,0,5,5"/>
+                   Visibility="{Binding ComboVisibility}" Margin="5,5,5,5"/>
+
+         <ItemsControl ItemsSource="{Binding InfoList}"
+                       Visibility="{Binding InfoVisibility}"
+                       Margin="5,5,0,10">
+            <ItemsControl.ItemTemplate>
+               <DataTemplate>
+                  <Grid>
+                     <Grid.ColumnDefinitions>
+                        <ColumnDefinition Width="Auto"/>
+                        <ColumnDefinition Width="1*"/>
+                        <ColumnDefinition Width="Auto"/>
+                     </Grid.ColumnDefinitions>
+                     <TextBlock Text="{Binding Key}"
+                                Width="70"
+                                Margin="0,6,-15,0"/>
+                     <TextBox Grid.Column="1" 
+                              Text="{Binding Valour, UpdateSourceTrigger=PropertyChanged}"
+                              Margin="0,5,5,10">
+                        <TextBox.InputBindings>
+                           <KeyBinding Key="Enter" Command="{Binding DoneInfoCommand}"/>
+                        </TextBox.InputBindings>
+                     </TextBox>
+                     <Button Grid.Column="2" 
+                             Content="-"
+                             Command="{Binding RemoveInfoItemCommand}"
+                             Width="20"
+                             Height="20"
+                             Margin="5,-2,5,5"/>
+                  </Grid>
+               </DataTemplate>
+            </ItemsControl.ItemTemplate>
+         </ItemsControl>
+
          <Grid Margin="5,0,5,5">
             <Grid.ColumnDefinitions>
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <Button Command="{Binding ShowCommand}" Visibility="{Binding ShowBtnVisibility}"
-               Content="{Binding ShowMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>
+                    Content="{Binding ShowMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>
             <Button Command="{Binding DoneCommand}" Grid.Column="1"
-               Content="{Binding OkMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>
+                    Content="{Binding OkMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>
          </Grid>
       </StackPanel>
    </Expander>

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml.vb

@@ -1,3 +1,24 @@
 Public Class InputExpanderV
 
+   Sub New()
+
+      ' La chiamata è richiesta dalla finestra di progettazione.
+      InitializeComponent()
+
+      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
+      'TextBoxFocus.Focus()
+      AddHandler Map.refInputExpanderVM.m_FocusOnTextBox, AddressOf FocusOnText
+   End Sub
+
+   Friend Sub FocusOnText()
+      Me.Txt.Focus()
+   End Sub
+
+   Private Sub TextBox_PreviewKeyDown(sender As Object, e As KeyEventArgs)
+      If e.Key = Key.Enter And Keyboard.Modifiers = ModifierKeys.Shift Then
+         Txt.AcceptsReturn = True
+         Txt.TextWrapping = TextWrapping.Wrap
+      End If
+   End Sub
+
 End Class

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderVM.vb

@@ -1,11 +1,31 @@
 Imports System.Collections.ObjectModel
 Imports EgtUILib
+Imports MS.Internal
 
 Public Class InputExpanderVM
    Inherits ViewModelBase
 
 #Region "FIELDS & PROPERTIES"
 
+   Friend Event m_FocusOnTextBox()
+
+   ' Variabile temporanea per salvare bShow
+   Private m_tmpbShow As Boolean
+
+   Private m_tmpInfoList As New ObservableCollection(Of InfoItem)
+   ''' <summary>
+   ''' Lista temporanea delle info
+   ''' </summary>
+   Private Property tmpInfoList As ObservableCollection(Of InfoItem)
+      Get
+         Return m_tmpInfoList
+      End Get
+      Set(value As ObservableCollection(Of InfoItem))
+         m_tmpInfoList = value
+         OnPropertyChanged("tmpInfoList")
+      End Set
+   End Property
+
    ' Expander fields
    Private m_IsExpanded As Boolean
    Public Property IsExpanded As Boolean
@@ -14,7 +34,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As Boolean)
          m_IsExpanded = value
-         OnPropertyChanged("IsExpanded")
+         OnPropertyChanged(NameOf(IsExpanded))
       End Set
    End Property
 
@@ -25,7 +45,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As Boolean)
          m_IsEnabled = value
-         OnPropertyChanged("IsEnabled")
+         OnPropertyChanged(NameOf(IsEnabled))
       End Set
    End Property
 
@@ -36,7 +56,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As String)
          m_Title = value
-         OnPropertyChanged("Title")
+         OnPropertyChanged(NameOf(Title))
       End Set
    End Property
 
@@ -48,7 +68,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As String)
          m_TextBlock = value
-         OnPropertyChanged("TextBlock")
+         OnPropertyChanged(NameOf(TextBlock))
       End Set
    End Property
 
@@ -61,7 +81,7 @@ Public Class InputExpanderVM
       Set(value As String)
          m_TextBox = value
          Map.refProjectVM.NotifyInputText(value)
-         OnPropertyChanged("TextBox")
+         OnPropertyChanged(NameOf(TextBox))
       End Set
    End Property
 
@@ -73,7 +93,7 @@ Public Class InputExpanderVM
       Set(value As Visibility)
          If value <> m_TextVisibility Then
             m_TextVisibility = value
-            OnPropertyChanged("TextVisibility")
+            OnPropertyChanged(NameOf(TextVisibility))
          End If
       End Set
    End Property
@@ -85,7 +105,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As Boolean)
          m_FocusTextBox = value
-         OnPropertyChanged("FocusTextBox")
+         OnPropertyChanged(NameOf(FocusTextBox))
       End Set
    End Property
 
@@ -97,7 +117,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As String)
          m_CheckBoxText = value
-         OnPropertyChanged("CheckBoxText")
+         OnPropertyChanged(NameOf(CheckBoxText))
       End Set
    End Property
 
@@ -110,7 +130,7 @@ Public Class InputExpanderVM
          If value <> m_IsChecked Then
             Map.refProjectVM.SetLastBoolean(value)
             m_IsChecked = value
-            OnPropertyChanged("IsChecked")
+            OnPropertyChanged(NameOf(IsChecked))
          End If
       End Set
    End Property
@@ -123,7 +143,7 @@ Public Class InputExpanderVM
       Set(value As Visibility)
          If value <> m_CheckVisibility Then
             m_CheckVisibility = value
-            OnPropertyChanged("CheckVisibility")
+            OnPropertyChanged(NameOf(CheckVisibility))
          End If
       End Set
    End Property
@@ -136,7 +156,21 @@ Public Class InputExpanderVM
       End Get
       Set(value As ObservableCollection(Of String))
          m_ComboItemsList = value
-         OnPropertyChanged("ComboItemsList")
+         OnPropertyChanged(NameOf(ComboItemsList))
+      End Set
+   End Property
+
+   Private m_InfoList As New ObservableCollection(Of InfoItem)
+   ''' <summary>
+   ''' Lista delle info modificate
+   ''' </summary>
+   Public Property InfoList As ObservableCollection(Of InfoItem)
+      Get
+         Return m_InfoList
+      End Get
+      Set(value As ObservableCollection(Of InfoItem))
+         m_InfoList = value
+         OnPropertyChanged("InfoList")
       End Set
    End Property
 
@@ -146,9 +180,27 @@ Public Class InputExpanderVM
          Return m_ComboSelectedIndex
       End Get
       Set(value As Integer)
-         Map.refProjectVM.SetLastInteger(value)
+         If m_tmpbShow Then Map.refProjectVM.SetLastInteger(value)
          m_ComboSelectedIndex = value
-         OnPropertyChanged("ComboSelectedIndex")
+         ' Assegno l'indice selezionato ad una variabile temporanea per utilizzarlo quando rimuovo l'info dalla lista
+         Dim tmpComboSelectedIndex As Integer = ComboSelectedIndex
+         ' Controllo se l'indice è maggiore o uguale a zero e la lista tmp contiene valori
+         If m_ComboSelectedIndex >= 0 AndAlso tmpInfoList.Count > 0 Then
+            ' Controllo se la info è contenuta nella lista ComboItemsList
+            If ComboItemsList.Contains(tmpInfoList(m_ComboSelectedIndex).sKey) Then
+               ' Aggiungo la info alla lista per visualizzarla
+               InfoList.Add(New InfoItem(tmpInfoList(m_ComboSelectedIndex).nId, tmpInfoList(m_ComboSelectedIndex).sKey, m_tmpInfoList(m_ComboSelectedIndex).sValour))
+               ' Nascondo la combobox
+               ComboVisibility = Visibility.Collapsed
+               ' Rimuovo la info dalla ComboItemsList
+               ComboItemsList.Remove(tmpInfoList(m_ComboSelectedIndex).sKey)
+            End If
+            ' Rimuovo la info dalla tmpInfoList
+            tmpInfoList.Remove(tmpInfoList(tmpComboSelectedIndex))
+         End If
+         OnPropertyChanged(NameOf(ComboSelectedIndex))
+         OnPropertyChanged("ComboItemsList")
+         OnPropertyChanged("InfoList")
       End Set
    End Property
 
@@ -160,7 +212,7 @@ Public Class InputExpanderVM
       Set(value As Visibility)
          If value <> m_ComboVisibility Then
             m_ComboVisibility = value
-            OnPropertyChanged("ComboVisibility")
+            OnPropertyChanged(NameOf(ComboVisibility))
          End If
       End Set
    End Property
@@ -173,24 +225,58 @@ Public Class InputExpanderVM
       End Get
       Set(value As Visibility)
          m_ShowBtnVisibility = value
-         OnPropertyChanged("ShowBtnVisibility")
+         OnPropertyChanged(NameOf(ShowBtnVisibility))
+      End Set
+   End Property
+
+   Private m_ShowInfoItemVisibility As Visibility
+   ''' <summary>
+   ''' Propietà visibilità bottone +
+   ''' </summary>
+   Public Property ShowInfoItemVisibility As Visibility
+      Get
+         Return m_ShowInfoItemVisibility
+      End Get
+      Set(value As Visibility)
+         If value <> m_ShowInfoItemVisibility Then
+            m_ShowInfoItemVisibility = value
+            OnPropertyChanged("ShowInfoItemVisibility")
+         End If
+      End Set
+   End Property
+
+   Private m_InfoVisibility As Visibility
+   ''' <summary>
+   ''' Propietà visibilità lista info modificate
+   ''' </summary>
+   Public Property InfoVisibility As Visibility
+      Get
+         Return m_InfoVisibility
+      End Get
+      Set(value As Visibility)
+         If value <> m_InfoVisibility Then
+            m_InfoVisibility = value
+            OnPropertyChanged("InfoVisibility")
+         End If
       End Set
    End Property
 
    ' Commands definition
    Private m_cmdShow As ICommand
    Private m_cmdDone As ICommand
+   Private m_cmdShowInfoItem As ICommand
+   Private m_cmdRemoveInfoItem As ICommand
 
 #Region "Messages"
 
    Public ReadOnly Property ShowMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 14)
+         Return EgtMsg(5364)     ' Mostra
       End Get
    End Property
    Public ReadOnly Property OkMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 15)
+         Return EgtMsg(5365)     ' Conferma
       End Get
    End Property
 
@@ -257,6 +343,15 @@ Public Class InputExpanderVM
    ''' Execute the Point.  This method is invoked by the PointCommand.
    ''' </summary>
    Public Sub Done(ByVal param As Object)
+      ' Controllo se la lista contenente la info modificata sia presente
+      If InfoList.Count > 0 Then
+         ' Ciclo sulla lista
+         For Each Item As InfoItem In InfoList
+            Map.refProjectVM.NotifyInputText((Item.Key & "=" & Item.Valour).Trim())
+            ' Assegno a m_TextBox la info modificata
+            m_TextBox &= vbCrLf & (Item.Key & "=" & Item.Valour).Trim() & vbCrLf
+         Next
+      End If
       Map.refProjectVM.Done(m_TextBox)
    End Sub
 
@@ -269,23 +364,75 @@ Public Class InputExpanderVM
 
 #End Region ' DoneCommand
 
+#Region "ShowInfoItemCommand"
+
+   ''' <summary>
+   ''' Comando per la visualizzazione della combobox
+   ''' </summary>
+   Public ReadOnly Property ShowInfoItemCommand As ICommand
+      Get
+         If m_cmdShowInfoItem Is Nothing Then
+            m_cmdShowInfoItem = New Command(AddressOf ShowInfoItem)
+         End If
+         Return m_cmdShowInfoItem
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Funzione per la visualizzazione della combobox
+   ''' </summary>
+   ''' <param name="param"></param>
+   Public Sub ShowInfoItem(ByVal param As Object)
+      ComboVisibility = Visibility.Visible
+   End Sub
+
+#End Region    ' ShowInfoItemCommand
+
 #End Region
 
 #Region "METHODS"
 
+   Friend Sub FocusText()
+      RaiseEvent m_FocusOnTextBox()
+   End Sub
+
    Friend Sub PrepareInputBox(PrepareInputBoxParam As PrepareInputBoxParam)
       Title = PrepareInputBoxParam.sTitle
       If PrepareInputBoxParam.sLabel <> "" Then
          TextBlock = PrepareInputBoxParam.sLabel
          TextBox = ""
          TextVisibility = Visibility.Visible
+         ' Controllo se il titolo è uguale a INFO se si
+         If Title = EgtMsg(5359).ToUpper() Then
+            ' Metto tmpbShow a false
+            m_tmpbShow = False
+            ' Rendo visibile il pulsante che mostra la lista delle info
+            ShowInfoItemVisibility = Visibility.Visible
+            ' Rendo visibile la lista delle info selezionate
+            InfoVisibility = Visibility.Visible
+            ' Pulisco la lista tmpInfoList
+            tmpInfoList.Clear()
+            ' Pulisco la lista InfoList
+            InfoList.Clear()
+            ' Pulisco la lista ComboItemsList
+            ComboItemsList.Clear()
+            ' Popolo la lista ComboItemsList
+            ComboInfo()
+         End If
       End If
       If PrepareInputBoxParam.sCheckLabel <> "" Then
          CheckBoxText = PrepareInputBoxParam.sCheckLabel
          CheckVisibility = Visibility.Visible
       End If
       If PrepareInputBoxParam.bShowCombo Then
+         ' Assegno a tmpbShow PrepareInputBoxParam.bShowCombo
+         m_tmpbShow = PrepareInputBoxParam.bShowCombo
+         ' Pulisco la lista ComboItemsList
          ComboItemsList.Clear()
+         ' Pulisco la lista tmpInfoList
+         tmpInfoList.Clear()
+         ' Pulisco la lista InfoList
+         InfoList.Clear()
          ComboVisibility = Visibility.Visible
       End If
       If PrepareInputBoxParam.bShowBtn Then
@@ -294,14 +441,17 @@ Public Class InputExpanderVM
       IsEnabled = True
       IsExpanded = True
       FocusTextBox = True
+      FocusText()
    End Sub
 
    Friend Sub ResetInputBox()
-      Title = EgtMsg(MSG_DRAWOPTION + 5)
+      Title = EgtMsg(5355)    ' Parametri di disegno
       TextVisibility = Visibility.Collapsed
       CheckVisibility = Visibility.Collapsed
       ComboVisibility = Visibility.Collapsed
       ShowBtnVisibility = Visibility.Collapsed
+      ShowInfoItemVisibility = Visibility.Collapsed
+      InfoVisibility = Visibility.Collapsed
       IsExpanded = False
       IsEnabled = False
    End Sub
@@ -309,6 +459,7 @@ Public Class InputExpanderVM
    Friend Function SetInputBoxText(ByVal sVal As String) As Boolean
       TextBox = sVal
       FocusTextBox = True
+      FocusText()
       Return True
    End Function
 
@@ -329,12 +480,44 @@ Public Class InputExpanderVM
 
    Private Function AddInputBoxCombo(ByVal sText As String, ByVal bSelected As Boolean) As Boolean
       ComboItemsList.Add(sText)
+
       If bSelected Then
          ComboSelectedIndex = ComboItemsList.Count - 1
       End If
       Return True
    End Function
 
+   ''' <summary>
+   ''' Rimovi nota da info lista
+   ''' </summary>
+   ''' <param name="InfoItem">Informazione da eliminare</param>
+   Friend Sub RemoveItemInfo(InfoItem As InfoItem)
+      ' Rimuovo info da lista modifica
+      InfoList.Remove(InfoItem)
+      ' Riaggiungo la info eliminata
+      ComboItemsList.Add(InfoItem.sKey)
+      ' Riaggiungo la info eliminata
+      tmpInfoList.Add(InfoItem)
+   End Sub
+
+   ''' <summary>
+   ''' Funzione che popola la lista ComboItemsList
+   ''' </summary>
+   Private Sub ComboInfo()
+      '''''''''''''''''''''''''''''' Recuperare funzione egtgetallinfo quando sarà pronta
+      Dim val As Integer
+      If Not m_tmpbShow Then
+         For Ind As Integer = 0 To 6
+            val += Ind
+            tmpInfoList.Add(New InfoItem(Ind, "A" & +Ind, val.ToString()))
+         Next
+
+         For Each InfoItem As InfoItem In tmpInfoList
+            ComboItemsList.Add(InfoItem.sKey)
+         Next
+      End If
+   End Sub
+
 #End Region    ' Methods
 
 End Class

OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb

@@ -69,6 +69,7 @@ Public Class LayerTreeViewItem
          Return m_bOnOff
       End Get
       Set(value As Boolean)
+         'If Map.refProjectVM.GetController().GetStep() <> 0 Then Return
          If m_bOnOff <> value Then
             m_bOnOff = value
             ' se abilitato, eseguo operazione
@@ -82,20 +83,24 @@ Public Class LayerTreeViewItem
             End If
             Dim bOnOffGroup As Boolean = ((Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift) AndAlso Items.Count > 0
             If bOnOffGroup Then
+               EgtEnableCommandLogger()
                ' abilito/disabilito tutti i nodi del livello sotto di esso (e non oltre)
                For Each Node In Items
                   Node.m_bOnOff = value
                   ' se abilitato, eseguo operazione
                   If m_SendCmd Then
-                     Map.refProjectVM.SetLastInteger(Node.Id)
-                     If value Then
-                        Map.refProjectVM.ExecuteCommand(Controller.CMD.SHOW)
-                     Else
-                        Map.refProjectVM.ExecuteCommand(Controller.CMD.HIDE)
+                     Dim nStat As Integer
+                     EgtGetStatus(Node.Id, nStat)
+                     If value AndAlso nStat <> GDB_ST.ON_ Then
+                        EgtSetStatus(Node.Id, GDB_ST.ON_)
+                     ElseIf Not value AndAlso nStat <> GDB_ST.OFF Then
+                        EgtSetStatus(Node.Id, GDB_ST.OFF)
                      End If
                   End If
                   Node.NotifyPropertyChanged(NameOf(OnOff))
                Next
+               EgtDisableCommandLogger()
+               EgtDraw()
             End If
          End If
       End Set
@@ -110,7 +115,7 @@ Public Class LayerTreeViewItem
    Public Sub SetHidden(bVal As Boolean)
       If bVal <> m_bHidden Then
          m_bHidden = bVal
-         NotifyPropertyChanged("IsHidden")
+         NotifyPropertyChanged(Name(IsHidden))
       End If
    End Sub
 
@@ -122,7 +127,7 @@ Public Class LayerTreeViewItem
       Set(value As String)
          If value <> m_sPictureString Then
             m_sPictureString = value
-            NotifyPropertyChanged("PictureString")
+            NotifyPropertyChanged(NameOf(PictureString))
          End If
       End Set
    End Property

OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderV.xaml

@@ -1,9 +1,9 @@
 <UserControl x:Class="ManageLayerExpanderV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:expression="clr-namespace:Microsoft.Expression.Interactivity.Core;assembly=Microsoft.Expression.Interactions"
-   xmlns:local="clr-namespace:EgtCAM5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:expression="clr-namespace:Microsoft.Expression.Interactivity.Core;assembly=Microsoft.Expression.Interactions"
+             xmlns:local="clr-namespace:EgtCAM5">
 
    <Expander IsExpanded="True" Style="{StaticResource ExpanderStyle}">
       <Expander.Header>
@@ -20,11 +20,12 @@
             <Button Content="{Binding NewLayerMsg}" Command="{Binding NewLayerCommand}"  Height="30"/>
             <Button Content="{Binding ColorMsg}" Command="{Binding LayerColorCommand}"  Height="30"/>
          </UniformGrid>
-         
-         <TreeView Name="LayerTreeView" MinHeight="150" MaxHeight="250" 
-            ItemsSource="{Binding Path=LayerList}"
-            VirtualizingStackPanel.IsVirtualizing = "True"
-            VirtualizingStackPanel.VirtualizationMode = "Recycling">
+
+         <TreeView x:Name="LayerTreeView" MinHeight="150" MaxHeight="250" 
+                   ItemsSource="{Binding Path=LayerList}"
+                   SelectedItemChanged="LayerTreeView_SelectedItemChanged"
+                   VirtualizingStackPanel.IsVirtualizing = "True"
+                   VirtualizingStackPanel.VirtualizationMode = "Recycling">
             <interactivity:Interaction.Triggers>
                <interactivity:EventTrigger EventName="MouseDoubleClick">
                   <interactivity:InvokeCommandAction Command="{Binding TreeViewDoubleClickCommand}"/>
@@ -50,18 +51,17 @@
                         <ColumnDefinition Width="Auto"/>
                      </Grid.ColumnDefinitions>
 
-                     <ToggleButton Style="{StaticResource EgtCAM5_LampToggleButton}" Grid.Column="0"
-                                   IsChecked="{Binding OnOff}" Visibility="{Binding IsHidden}" Focusable="False" Height="15" Width="15" Margin="0,0,5,0"/>
+                     <ToggleButton Style="{StaticResource EgtCAM5_LampToggleButton}" Grid.Column="0" 
+                                   IsChecked="{Binding OnOff}" Visibility="{Binding IsHidden}" Focusable="True" Height="15" Width="15" Margin="0,0,5,0"/>
                      <Image Grid.Column="1" Source="{Binding PictureString}" Height="15" Margin="0,0,5,0"/>
-                     <TextBlock Grid.Column="2" Text="{Binding Name}" Margin="0,0,5,0"/>
+                     <TextBlock Grid.Column="2" Text="{Binding Name}" Margin="0,0,5,0" Name="Pippo"/>
                      <Ellipse Grid.Column="3" Height="10" Width="10" Fill="{Binding LayerColor}" />
-
                   </Grid>
                </HierarchicalDataTemplate>
             </TreeView.Resources>
 
             <!--Style dei nodi CathegoryItem che li riquadra di azzurro quando clicckati ed elimina l'ombra grigia 
-            che si presenta quando la categoria rimane vuota (ombra causata dal multibinding).--> 
+            che si presenta quando la categoria rimane vuota (ombra causata dal multibinding).-->
             <TreeView.ItemContainerStyle>
                <Style TargetType="{x:Type TreeViewItem}">
                   <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}" />

OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderV.xaml.vb

@@ -1,3 +1,10 @@
 Public Class ManageLayerExpanderV
 
+   Private Sub LayerTreeView_SelectedItemChanged(sender As Object, e As RoutedPropertyChangedEventArgs(Of Object))
+      If Not IsNothing(LayerTreeView.SelectedItem) Then
+         ' Metti il focus sul TreeView e sul nodo
+         LayerTreeView.Focus()
+      End If
+   End Sub
+
 End Class

OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderVM.vb

@@ -1,6 +1,6 @@
 Imports System.Collections.ObjectModel
+Imports System.Security.Cryptography
 Imports EgtUILib
-Imports EgtCAM5.IniFile
 
 Public Class ManageLayerExpanderVM
    Inherits ViewModelBase
@@ -15,7 +15,7 @@ Public Class ManageLayerExpanderVM
       End Get
       Set(value As String)
          m_HeaderName = value
-         OnPropertyChanged("HeaderName")
+         OnPropertyChanged(NameOf(HeaderName))
       End Set
    End Property
 
@@ -26,7 +26,7 @@ Public Class ManageLayerExpanderVM
       End Get
       Set(value As SolidColorBrush)
          m_HeaderColor = value
-         OnPropertyChanged("HeaderColor")
+         OnPropertyChanged(NameOf(HeaderColor))
       End Set
    End Property
 
@@ -75,57 +75,57 @@ Public Class ManageLayerExpanderVM
 
    Public ReadOnly Property NewPartMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 2)
+         Return EgtMsg(5352)     ' Nuovo Pezzo
       End Get
    End Property
    Public ReadOnly Property NewLayerMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 3)
+         Return EgtMsg(5353)     ' Nuovo Layer
       End Get
    End Property
    Public ReadOnly Property ColorMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 4)
+         Return EgtMsg(5354)     ' Colore
       End Get
    End Property
    Public ReadOnly Property SelectMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 6)
+         Return EgtMsg(5356)     ' Seleziona
       End Get
    End Property
    Public ReadOnly Property DeselectMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 7)
+         Return EgtMsg(5357)     ' Deseleziona
       End Get
    End Property
    Public ReadOnly Property NameMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 8)
+         Return EgtMsg(5358)     ' Nome
       End Get
    End Property
    Public ReadOnly Property InfoMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 9)
+         Return EgtMsg(5359)     ' Info
       End Get
    End Property
    Public ReadOnly Property RelocateMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 10)
+         Return EgtMsg(5360)     ' Sposta
       End Get
    End Property
    Public ReadOnly Property CopyMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 11)
+         Return EgtMsg(5361)     ' Copia
       End Get
    End Property
    Public ReadOnly Property DeleteMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 12)
+         Return EgtMsg(5362)     ' Elimina
       End Get
    End Property
    Public ReadOnly Property SaveMsg As String
       Get
-         Return EgtMsg(MSG_DRAWOPTION + 13)
+         Return EgtMsg(5363)     ' Salva
       End Get
    End Property
 
@@ -480,9 +480,8 @@ Public Class ManageLayerExpanderVM
       ' Se è un pezzo con lavorazioni, devo chiedere conferma della cancellazione
       If EgtIsPart(RightClickedTreeItemId) And EgtExistsInfo(RightClickedTreeItemId, GDB_SI_LIST) Then
          ' Pezzo in lavorazione, vuoi cancellarlo lo stesso ? - Erase Confirm
-         If MessageBox.Show(EgtMsg(MSG_DRAWOPTION + 17), EgtMsg(MSG_DRAWOPTION + 16), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then
-            Return
-         End If
+         'If MessageBox.Show(EgtMsg(MSG_DRAWOPTION + 17), EgtMsg(MSG_DRAWOPTION + 16), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return
+         If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5367), EgtMsg(5366), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.No Then Return  ' Pezzo in lavorazione, vuoi cancellarlo lo stesso ? Conferma Cancellazione
       End If
       ' Recupero Id vicino per prossimo selezionato in albero
       Dim nNewId As Integer = EgtGetNext(RightClickedTreeItemId)
@@ -528,7 +527,7 @@ Public Class ManageLayerExpanderVM
 #Region "METHODS"
 
    Private WithEvents ObjTreeTimer As New System.Windows.Threading.DispatcherTimer
-   Private m_nObjTreeOldId As Integer = GDB_ID.NULL
+   Friend m_nObjTreeOldId As Integer = GDB_ID.NULL
    Private m_nObjTreeMenuId As Integer = GDB_ID.NULL
    Private m_bEnableUpdateObjInObjTree As Boolean = True
 
@@ -679,7 +678,7 @@ Public Class ManageLayerExpanderVM
          'se gruppo
          If nType = GDB_TY.GROUP Then
             AddGroupInObjTree(nId, nLevel, nMode, nDepth + 1, CurrNodColl)
-         'se oggetto geometrico
+            'se oggetto geometrico
          ElseIf nType >= GDB_TY.GEO_VECTOR Then
             Dim sTitle As String = String.Empty
             EgtGetTitle(nId, sTitle)
@@ -808,7 +807,7 @@ Public Class ManageLayerExpanderVM
       If Not IsNothing(tNode) Then
          If Not bMark Then LayerTreeViewItem.m_MarkOnSel = False
          tNode.IsSelected = True
-         tNode.NotifyPropertyChanged("IsSelected")
+         tNode.NotifyPropertyChanged(NameOf(tNode.IsSelected))
          If Not bMark Then LayerTreeViewItem.m_MarkOnSel = True
          tNode.IsExpanded = True
          m_nObjTreeOldId = nId

OptionPanel/DrawOptionPanelV.xaml

@@ -1,10 +1,9 @@
 <UserControl x:Class="DrawOptionPanelV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Width="250"
-   xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
-   xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Width="250"
+             xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5">
 
-   <StackPanel Name="ciao" Background="Transparent" MaxHeight="{Binding MaxHeight,RelativeSource={RelativeSource AncestorType={x:Type EgtFloating:EgtFloatingPanel}}}">
+   <StackPanel Name="ciao" Background="Transparent" Margin="0,0,3.5001,0" MaxHeight="{Binding MaxHeight,RelativeSource={RelativeSource AncestorType={x:Type EgtFloating:EgtFloatingPanel}}}">
       <!--ContentPresenter that contains the ManageLayerExpander-->
       <ContentPresenter Content="{Binding ManageLayerExpander,Mode=OneWay}"/>
       <!--ContentPresenter that contains the InfoExpander-->

OptionPanel/DrawOptionPanelVM.vb

@@ -1,15 +1,16 @@
-Imports EgtUILib
-
-Public Class DrawOptionPanelVM
+Public Class DrawOptionPanelVM
    Inherits ViewModelBase
 
+   Private m_InputExpanderVM As InputExpanderVM
+
    ' GRAPHICAL ELEMENTS
    Private m_ManageLayerExpander As ManageLayerExpanderV
    Public ReadOnly Property ManageLayerExpander As ContentControl
       Get
          If IsNothing(m_ManageLayerExpander) Then
-            m_ManageLayerExpander = New ManageLayerExpanderV
-            m_ManageLayerExpander.DataContext = New ManageLayerExpanderVM
+            m_ManageLayerExpander = New ManageLayerExpanderV With {
+               .DataContext = New ManageLayerExpanderVM
+            }
          End If
          Return m_ManageLayerExpander
       End Get
@@ -19,8 +20,9 @@ Public Class DrawOptionPanelVM
    Public ReadOnly Property InfoExpander As ContentControl
       Get
          If IsNothing(m_InfoExpander) Then
-            m_InfoExpander = New InfoExpanderV
-            m_InfoExpander.DataContext = New InfoExpanderVM
+            m_InfoExpander = New InfoExpanderV With {
+               .DataContext = New InfoExpanderVM
+            }
          End If
          Return m_InfoExpander
       End Get
@@ -30,8 +32,13 @@ Public Class DrawOptionPanelVM
    Public ReadOnly Property InputExpander As ContentControl
       Get
          If IsNothing(m_InputExpander) Then
-            m_InputExpander = New InputExpanderV
-            m_InputExpander.DataContext = New InputExpanderVM
+            'm_InputExpander = New InputExpanderV With {
+            '   .DataContext = New InputExpanderVM
+            '}
+            m_InputExpanderVM = New InputExpanderVM()
+            m_InputExpander = New InputExpanderV With {
+               .DataContext = m_InputExpanderVM
+            }
          End If
          Return m_InputExpander
       End Get
@@ -49,12 +56,10 @@ Public Class DrawOptionPanelVM
 #Region "METHODS"
 
    Friend Function InitDrawOptionPanel() As Boolean
-      'EgtZoom(ZM.ALL)
       Return True
    End Function
 
    Friend Function ExitDrawOptionPanel() As Boolean
-
       Return True
    End Function
 

OptionPanel/MachiningOptionPanel/EstimationsExpander/EstimationsExpander.vb

@@ -1,5 +1,4 @@
-Imports System.Collections.ObjectModel
-Imports System.IO
+Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -29,7 +28,7 @@ Public Class EstimationsExpanderVM
       End Get
       Set(value As Boolean)
          m_Estimation_IsEnabled = value
-         NotifyPropertyChanged("Estimation_IsEnabled")
+         NotifyPropertyChanged(NameOf(Estimation_IsEnabled))
       End Set
    End Property
 
@@ -55,7 +54,8 @@ Public Class EstimationsExpanderVM
       ' Verifico che il file esista
       If Not File.Exists(sEstFile) Then
          ' File delle stime non trovato
-         MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5318), EgtMsg(5315), MessageBoxButton.OK, MessageBoxImage.Warning) ' File delle stime non trovato AVVERTIMENTO
          Return
       End If
       ' Visualizzazione
@@ -77,14 +77,14 @@ Public Class EstimationsExpanderVM
       ' Abilito la selezione di tutti i tipi di geometria
       Map.refProjectVM.SceneSelMode = SceneSelModeOpt.PARTCURVESANDSURFACES
       CalcEstimation()
-      NotifyPropertyChanged("Time")
-      NotifyPropertyChanged("CutLen")
+      NotifyPropertyChanged(NameOf(Time))
+      NotifyPropertyChanged(NameOf(CutLen))
 
       m_Estimation_IsExpanded = True
       Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = False
       Map.refOperationsListExpanderVM.EstimationExpander_Get_IsExpanded(True)
-      NotifyPropertyChanged("Estimation_IsExpanded")
-      Map.refMachiningOptionPanelVM.OnPropertyChanged("GenerateIsEnabled")
+      NotifyPropertyChanged(NameOf(Estimation_IsExpanded))
+      Map.refMachiningOptionPanelVM.OnPropertyChanged(NameOf(Map.refMachiningOptionPanelVM.GenerateIsEnabled))
       ' disattivo database utensili, lavorazioni e setup se vado in stima
       Map.refMachinePanelVM.ToolMachSetUpIsEnabled(False, False, False)
       ' disattivo MTable e SpecialPanel se vado in stima
@@ -97,8 +97,8 @@ Public Class EstimationsExpanderVM
       m_Estimation_IsExpanded = False
       Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = True
       Map.refOperationsListExpanderVM.EstimationExpander_Get_IsExpanded(False)
-      NotifyPropertyChanged("Estimation_IsExpanded")
-      Map.refMachiningOptionPanelVM.OnPropertyChanged("GenerateIsEnabled")
+      NotifyPropertyChanged(NameOf(Estimation_IsExpanded))
+      Map.refMachiningOptionPanelVM.OnPropertyChanged(NameOf(Map.refMachiningOptionPanelVM.GenerateIsEnabled))
       ' attivo database utensili, lavorazioni e setup se esco dalla stima
       Map.refMachinePanelVM.ToolMachSetUpIsEnabled(True, True, True)
       ' attivo MTable e SpecialPanel se esco dalla stima
@@ -107,24 +107,6 @@ Public Class EstimationsExpanderVM
       Return True
    End Function
 
-
-   Private Function UpdateAllMachinings() As Boolean
-      ' Eseguo ricalcolo
-      Dim bModified As Boolean = EgtGetModified()
-      Dim sErr As String = String.Empty
-      Dim bOk As Boolean = EgtApplyAllMachinings(False, False, sErr)
-      ' In caso di errori, li segnalo
-      If Not bOk Then
-         If Not String.IsNullOrEmpty(sErr) Then
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
-         Else
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
-         End If
-      End If
-      If Not bModified Then EgtResetModified()
-      Return bOk
-   End Function
-
    Public Overrides Function GetEstimationFileName(bAskSave As Boolean, ByRef sEstFile As String, ByRef sInfo As String) As Boolean
       Dim bOk As Boolean = True
       ' Recupero e verifico la path del progetto corrente
@@ -133,7 +115,8 @@ Public Class EstimationsExpanderVM
       If bAskSave Then
          If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
             ' Il progetto deve essere salvato prima di poter essere generato. Vuoi farlo ?
-            If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            'If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5331), EgtMsg(5315), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then ' Il progetto deve essere salvato prima della generazione CN. Vuoi farlo ? AVVERTIMENTO
                ' Abbandono
                bOk = False
             Else
@@ -148,7 +131,8 @@ Public Class EstimationsExpanderVM
       Else
          If String.IsNullOrEmpty(sCurrFilePath) Then
             ' File delle stime non trovato
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5318), EgtMsg(5315), MessageBoxButton.OK, MessageBoxImage.Warning) ' File delle stime non trovato AVVERTIMENTO
             bOk = False
          End If
       End If
@@ -177,7 +161,7 @@ Public Class EstimationsExpanderVM
       ' Recupero la fase corrente
       Dim nPhase As Integer = EgtGetCurrPhase()
       ' Aggiorno le lavorazioni
-      If Not UpdateAllMachinings() Then
+      If Not Map.refSimulationExpanderVM.UpdateAllMachinings() Then
          EgtSetCurrPhase(If(nPhase = 0, 1, nPhase), True)
          Return False
       End If
@@ -195,12 +179,17 @@ Public Class EstimationsExpanderVM
       If Not bOk Then Return False
       ' Calcolo della stima
       If Not EgtEstimate(sEstFile, sInfo) Then
-         If EgtGetLastMachMgrErrorId() <> 0 Then
+         Dim nErr As Integer = EgtGetLastMachMgrErrorId()
+         If nErr = 1000 Then
+            MessageBox.Show(EgtMsg(5333), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)
+         ElseIf nErr = 1001 Then
+            MessageBox.Show(EgtMsg(5334), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)
+         ElseIf nErr <> 0 Then
             Dim sErr As String = EgtGetLastMachMgrErrorString()
             sErr = sErr.Replace("Cnc", "Est")
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
          Else
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 17), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            MessageBox.Show(EgtMsg(5317), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
          End If
          bOk = False
       End If

OptionPanel/MachiningOptionPanel/EstimationsExpander/EstimationsExpanderV.xaml

@@ -1,9 +1,7 @@
 <UserControl x:Class="EstimationsExpanderV"
-   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">
-   
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
+
    <StackPanel>
 
       <Expander Header="{Binding EstimationMsg}"

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderV.xaml

@@ -1,19 +1,13 @@
 <UserControl x:Class="MachiningTreeExpanderV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:local="clr-namespace:EgtCAM5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:local="clr-namespace:EgtCAM5">
 
    <Expander Header="{Binding MachListHdr}" IsExpanded="{Binding IsEnabled}" IsEnabled="{Binding IsEnabled}"
-      Style="{StaticResource ExpanderStyle}">
+             Style="{StaticResource ExpanderStyle}">
       <UniformGrid MaxHeight="300">
          <TreeView Name="MachiningsTreeView" Grid.Row="1"
             ItemsSource="{Binding Path=MachiningsList}">
-            <!--<interactivity:Interaction.Triggers>
-               <interactivity:EventTrigger EventName="MouseDoubleClick">
-                  <interactivity:InvokeCommandAction Command="{Binding TreeViewDoubleClickCommand}" CommandParameter="{Binding ElementName=MachiningsTreeView,Path=SelectedItem}"/>
-               </interactivity:EventTrigger>
-            </interactivity:Interaction.Triggers>-->
             <TreeView.InputBindings>
                <KeyBinding Key="Escape" Command="{Binding CancelNewCommand}" CommandParameter="Escape"/>
             </TreeView.InputBindings>
@@ -34,7 +28,7 @@
                   </Grid>
 
                   <!--Assegna ai nodi ToolItem lo Style normale dei TreeViewItem, eliminando l'ombra, data dal 
-                   multibinding quando sono attivi.-->
+                      multibinding quando sono attivi.-->
                   <HierarchicalDataTemplate.ItemContainerStyle>
                      <Style TargetType="{x:Type TreeViewItem}" >
                         <Setter Property="IsSelected" Value="{Binding IsSelected, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}" />

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderV.xaml.vb

@@ -2,12 +2,6 @@
 
    ' Evento necessario per impedire che venga creata la lavorazione quando si fa doppio click sulla ScrollBar
    Private Sub MachiningsTreeView_MouseDoubleClick(sender As Object, e As System.Windows.Input.MouseButtonEventArgs)
-      'Dim src As DependencyObject = VisualTreeHelper.GetParent(DirectCast(e.OriginalSource, DependencyObject))
-
-      '' Your logic here
-      'If TypeOf src Is Control AndAlso src.[GetType]() <> GetType(Grid) Then
-      '   e.Handled = True
-      'End If
       ' recupero il viewmodel associato a questa view in cui è presente la funzione che l'evento deve lanciare
       Dim MachiningTreeExpanderViewModel As MachiningTreeExpanderVM = DirectCast(Me.DataContext, MachiningTreeExpanderVM)
       ' recupero il treeviewitem clickato(sorgente dell'evento)

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderVM.vb

@@ -36,7 +36,7 @@ Public Class MachiningTreeExpanderVM
 
    Public ReadOnly Property MachListHdr As String
       Get
-         Return EgtMsg(MSG_OPERATION + 12)                      ' Nuove Lavorazioni
+         Return EgtMsg(5412)     ' Nuove Lavorazioni
       End Get
    End Property
 
@@ -85,7 +85,8 @@ Public Class MachiningTreeExpanderVM
          ' Se l'operazione non è andata a buon fine
          If MachiningId = GDB_ID.NULL Then
             ' Inserimento lavorazione non riuscito    ERRORE
-            MessageBox.Show(EgtMsg(MSG_OPERATION + 19), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_OPERATION + 19), EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5419), EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)  ' Inserimento lavorazione non riuscito Errore
             Map.refOperationsListExpanderVM.CancelOperationCmd()
             Return
          End If
@@ -127,29 +128,31 @@ Public Class MachiningTreeExpanderVM
    Private Function MachiningTypeToString(Type As Integer) As String
       Select Case Type
          Case MCH_MY.DRILLING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 1)
+            Return EgtMsg(6201)     ' Foratura
          Case MCH_MY.SAWING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 2)
+            Return EgtMsg(6202)     ' Taglio di lama
          Case MCH_MY.MILLING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 3)
+            Return EgtMsg(6203)     ' Fresatura
          Case MCH_MY.POCKETING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 4)
+            Return EgtMsg(6204)     ' Svuotatura
          Case MCH_MY.MORTISING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 5)
+            Return EgtMsg(6205)     ' Mortasatura
          Case MCH_MY.SAWROUGHING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 6)
+            Return EgtMsg(6206)     ' Sgrossatura con lama
          Case MCH_MY.SAWFINISHING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 7)
+            Return EgtMsg(6207)     ' Finitura con lama
          Case MCH_MY.GENMACHINING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 8)
+            Return EgtMsg(6208)     ' Lav. generica
          Case MCH_MY.CHISELING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 9)
+            Return EgtMsg(6209)     ' Scalpellatura
          Case MCH_MY.SURFROUGHING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 10)
+            Return EgtMsg(6210)     ' Sgrossatura superfici
          Case MCH_MY.SURFFINISHING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 11)
+            Return EgtMsg(6211)     ' Finitura superfici
          Case MCH_MY.WATERJETTING
-            Return EgtMsg(MSG_MACHININGSDBPAGE + 12)
+            Return EgtMsg(6212)     ' WaterJet
+         Case MCH_MY.FIVEAXISMILLING
+            Return EgtMsg(31213)    ' Lav. 5 assi
          Case Else
             Return "Mach"
       End Select
@@ -197,7 +200,7 @@ Public Class MachiningTreeExpanderVM
       Map.refProjectVM.SceneSelMode = SceneSelModeOpt.ALL
 
       CodeCommand = False
-      OnPropertyChanged("IsEnabled")
+      OnPropertyChanged(NameOf(IsEnabled))
       Return True
    End Function
 
@@ -211,11 +214,11 @@ Public Class MachiningTreeExpanderVM
       If Not CodeCommand Then
          Map.refOperationsListExpanderVM.CancelOperationCmd()
          CodeCommand = False
-         OnPropertyChanged("IsEnabled")
+         OnPropertyChanged(NameOf(IsEnabled))
          Return False
       End If
       CodeCommand = False
-      OnPropertyChanged("IsEnabled")
+      OnPropertyChanged(NameOf(IsEnabled))
       Return True
    End Function
 

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeViewExpander.vb

@@ -63,7 +63,6 @@ Public Class MachiningTreeViewExpanderItem
 
 End Class
 
-
 ''' <summary>
 ''' Class that represent a FamilyMachining in the treeview.
 ''' It's an element in the treeview that represent a folder, but also a machining family

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderV.xaml

@@ -1,7 +1,7 @@
 <UserControl x:Class="DispositionParameterExpanderV"
-   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="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:sys="clr-namespace:System;assembly=mscorlib">
 
    <UserControl.Resources>
       <sys:Int32 x:Key="TL">1</sys:Int32>
@@ -13,30 +13,28 @@
    <StackPanel>
 
       <Expander Header="RawPart" IsExpanded="{Binding RawPartIsExpanded}"
-         Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+                Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
          <StackPanel>
-            <!--<CheckBox Content="Move with Fixture" IsChecked="{Binding MoveWithFixture, Mode=TwoWay}"/>-->
-            <!--ContentPresenter that contains the RawPart options -->
             <ContentPresenter Name="RawPartOptions" Content="{Binding RawPartOptions ,Mode=OneWay}"/>
          </StackPanel>
       </Expander>
 
       <Expander Header="Part" IsExpanded="{Binding PartIsExpanded}"
-         Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+                Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
          
       </Expander>
 
       <Expander Header="Fixture" IsExpanded="{Binding FixtureIsExpanded}"
-         Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+                Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
          <!--ContentPresenter that contains the Fixture options -->
          <ContentPresenter Name="FixtureParameters" Content="{Binding FixtureParameters ,Mode=OneWay}"/>
       </Expander>
 
       <UniformGrid Columns="2">
          <RadioButton Content="Move" IsChecked="{Binding MoveIsChecked}"
-            Style="{StaticResource {x:Type ToggleButton}}" Height="30"/>
+                      Style="{StaticResource {x:Type ToggleButton}}" Height="30"/>
          <RadioButton Content="Rotate"
-            Style="{StaticResource {x:Type ToggleButton}}" Height="30"/>
+                      Style="{StaticResource {x:Type ToggleButton}}" Height="30"/>
       </UniformGrid>
 
       <Grid Margin="0,5,0,5" Visibility="{Binding RawRefGroupVisibility}">
@@ -54,28 +52,28 @@
 
          <TextBlock Grid.ColumnSpan="4" Text="Move Raw Reference"/>
          <RadioButton Grid.Column="1" Grid.Row="1" Command="{Binding CheckedRawRefCommand}"
-            CommandParameter="{StaticResource TL}"
-            Style="{StaticResource {x:Type ToggleButton}}" Height="40" Width="40">
+                      CommandParameter="{StaticResource TL}"
+                      Style="{StaticResource {x:Type ToggleButton}}" Height="40" Width="40">
             <Border BorderBrush="{StaticResource EgaltechBlue1}" BorderThickness="5,5,0,0"
-               Height="30" Width="30"/>
+                    Height="30" Width="30"/>
          </RadioButton>
          <RadioButton Grid.Column="2" Grid.Row="1" Command="{Binding CheckedRawRefCommand}"
-            CommandParameter="{StaticResource TR}"
-            Style="{StaticResource {x:Type ToggleButton}}" Height="40" Width="40">
+                      CommandParameter="{StaticResource TR}"
+                      Style="{StaticResource {x:Type ToggleButton}}" Height="40" Width="40">
             <Border BorderBrush="{StaticResource EgaltechBlue1}" BorderThickness="0,5,5,0"
-               Height="30" Width="30"/>
+                    Height="30" Width="30"/>
          </RadioButton>
          <RadioButton Grid.Column="1" Grid.Row="2" Command="{Binding CheckedRawRefCommand}"
-            CommandParameter="{StaticResource BL}" IsChecked="{Binding BLIsChecked,Mode=OneWay}"
-            Style="{StaticResource {x:Type ToggleButton}}" Height="40" Width="40">
+                      CommandParameter="{StaticResource BL}" IsChecked="{Binding BLIsChecked,Mode=OneWay}"
+                      Style="{StaticResource {x:Type ToggleButton}}" Height="40" Width="40">
             <Border BorderBrush="{StaticResource EgaltechBlue1}" BorderThickness="5,0,0,5"
-               Height="30" Width="30"/>
+                    Height="30" Width="30"/>
          </RadioButton>
          <RadioButton Grid.Column="2" Grid.Row="2" Command="{Binding CheckedRawRefCommand}"
-            CommandParameter="{StaticResource BR}"
-            Style="{StaticResource {x:Type ToggleButton}}" Height="40" Width="40">
+                      CommandParameter="{StaticResource BR}"
+                      Style="{StaticResource {x:Type ToggleButton}}" Height="40" Width="40">
             <Border BorderBrush="{StaticResource EgaltechBlue1}" BorderThickness="0,0,5,5"
-               Height="30" Width="30"/>
+                    Height="30" Width="30"/>
          </RadioButton>
 
       </Grid>
@@ -84,21 +82,18 @@
       <TextBox Text="{Binding InputValue,UpdateSourceTrigger=PropertyChanged}" Margin="5,0,5,5">
          <TextBox.InputBindings>
             <KeyBinding Key="Enter" Command="{Binding DoneCommand}"/>
-            <!--<KeyBinding Key="S" Modifiers="Control" Command="{Binding ShowCommand}"/>-->
          </TextBox.InputBindings>
       </TextBox>
       <TextBlock Text="{Binding InputErrorMsg,Mode=OneWay}" Margin="5,5,5,5"
-         Style="{StaticResource ValidationErrorTextBlock}"/>
+                 Style="{StaticResource ValidationErrorTextBlock}"/>
 
       <Grid Margin="5,0,5,5">
          <Grid.ColumnDefinitions>
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
-         <!--<Button Command="{Binding ShowCommand}" Visibility="{Binding ShowBtnVisibility}"
-               Content="{Binding ShowMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>-->
          <Button Command="{Binding DoneCommand}" Grid.Column="1"
-               Content="{Binding OkMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>
+                 Content="{Binding OkMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>
       </Grid>
 
    </StackPanel>

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderVM.vb

@@ -59,7 +59,7 @@ Public Class DispositionParameterExpanderVM
                PartIsExpanded = False
                FixtureIsExpanded = False
                ' verifico se è attiva l'opzione muovi con ventose
-               If m_MoveWithFixture Then
+               If Map.refRawPartOptionVM.MoveWithFixture() Then
                   ' Abilito la selezione dei RawPart con ventose
                   Map.refProjectVM.SceneSelType = SceneSelTypeOpt.RAWPARTWITHFIXTURE
                Else
@@ -68,12 +68,12 @@ Public Class DispositionParameterExpanderVM
                End If
                If m_MoveIsChecked Then
                   m_RawRefGroupVisibility = Visibility.Visible
-                  OnPropertyChanged("RawRefGroupVisibility")
+                  OnPropertyChanged(NameOf(RawRefGroupVisibility))
                End If
             Else
                ' Nascondo i bottoni per impostare la posizione di riferimento del grezzo
                m_RawRefGroupVisibility = Visibility.Collapsed
-               OnPropertyChanged("RawRefGroupVisibility")
+               OnPropertyChanged(NameOf(RawRefGroupVisibility))
                ' smarco la prima entità selezionata
                EgtResetMark(EgtGetFirstSelectedObj)
                EgtDeselectAll()
@@ -81,7 +81,7 @@ Public Class DispositionParameterExpanderVM
             End If
             m_RawPartIsExpanded = value
             ActiveObject = ObjectType.RAWPART
-            OnPropertyChanged("RawPartIsExpanded")
+            OnPropertyChanged(NameOf(RawPartIsExpanded))
          End If
       End Set
    End Property
@@ -105,7 +105,7 @@ Public Class DispositionParameterExpanderVM
             End If
             m_PartIsExpanded = value
             ActiveObject = ObjectType.PART
-            OnPropertyChanged("PartIsExpanded")
+            OnPropertyChanged(NameOf(PartIsExpanded))
          End If
       End Set
    End Property
@@ -133,7 +133,7 @@ Public Class DispositionParameterExpanderVM
             End If
             m_FixtureIsExpanded = value
             ActiveObject = ObjectType.FIXTURE
-            OnPropertyChanged("FixtureIsExpanded")
+            OnPropertyChanged(NameOf(FixtureIsExpanded))
          End If
       End Set
    End Property
@@ -147,63 +147,27 @@ Public Class DispositionParameterExpanderVM
          If value <> m_MoveIsChecked Then
             Map.refProjectVM.SetMoveInDisposition(value)
             InputValue = String.Empty
-            OnPropertyChanged("InputValue")
+            OnPropertyChanged(NameOf(InputValue))
             If value Then
                If m_RawPartIsExpanded Then
                   m_RawRefGroupVisibility = Visibility.Visible
-                  OnPropertyChanged("RawRefGroupVisibility")
+                  OnPropertyChanged(NameOf(RawRefGroupVisibility))
                Else
                   m_RawRefGroupVisibility = Visibility.Collapsed
-                  OnPropertyChanged("RawRefGroupVisibility")
+                  OnPropertyChanged(NameOf(RawRefGroupVisibility))
                End If
                m_InputMsg = "Move to:"
             Else
                m_RawRefGroupVisibility = Visibility.Collapsed
-               OnPropertyChanged("RawRefGroupVisibility")
+               OnPropertyChanged(NameOf(RawRefGroupVisibility))
                m_InputMsg = "Rotate of:"
             End If
-            OnPropertyChanged("InputMsg")
+            OnPropertyChanged(NameOf(InputMsg))
             m_MoveIsChecked = value
          End If
       End Set
    End Property
 
-   Private m_MoveWithFixture As Boolean = False
-   Public Property MoveWithFixture As Boolean
-      Get
-         Return m_MoveWithFixture
-      End Get
-      Set(value As Boolean)
-         If value <> m_MoveWithFixture Then
-            If value Then
-               ' Abilito la selezione di RawPart con autoselezione delle sue ventose
-               Map.refProjectVM.SceneSelType = SceneSelTypeOpt.RAWPARTWITHFIXTURE
-               ' Seleziono le ventose associate ad uno dei grezzi selezionati
-               ' ciclo sui grezzi selezionati
-               Dim nSelRawPartId As Integer = EgtGetFirstSelectedObj()
-               While nSelRawPartId <> GDB_ID.NULL
-                  ' seleziono i sottopezzi del grezzo
-                  DispositionUtility.SelectRawPartFixture(nSelRawPartId)
-                  nSelRawPartId = EgtGetNextSelectedObj()
-               End While
-            Else
-               ' Abilito la selezione di RawPart
-               Map.refProjectVM.SceneSelType = SceneSelTypeOpt.RAWPART
-               ' ciclo sui grezzi selezionati
-               Dim nSelRawPartId As Integer = EgtGetFirstSelectedObj()
-               While nSelRawPartId <> GDB_ID.NULL
-                  ' deseleziono i sottopezzi del grezzo
-                  DispositionUtility.DeselectRawPartFixture(nSelRawPartId)
-                  nSelRawPartId = EgtGetNextSelectedObj()
-               End While
-            End If
-            EgtDraw()
-            m_MoveWithFixture = value
-            OnPropertyChanged("MoveWithFixture")
-         End If
-      End Set
-   End Property
-
    Private m_InputValue As String
    Public Property InputValue As String
       Get
@@ -212,7 +176,7 @@ Public Class DispositionParameterExpanderVM
       Set(value As String)
          If Not String.IsNullOrEmpty(m_InputErrorMsg) Then
             m_InputErrorMsg = String.Empty
-            OnPropertyChanged("InputErrorMsg")
+            OnPropertyChanged(NameOf(InputErrorMsg))
          End If
          m_InputValue = value
       End Set
@@ -241,8 +205,9 @@ Public Class DispositionParameterExpanderVM
    Public ReadOnly Property FixtureParameters As ContentControl
       Get
          If IsNothing(m_FixtureParameters) Then
-            m_FixtureParameters = New FixtureParametersV
-            m_FixtureParameters.DataContext = New FixtureParametersVM(m_ExpandFixtureFunction)
+            m_FixtureParameters = New FixtureParametersV With {
+               .DataContext = New FixtureParametersVM(m_ExpandFixtureFunction)
+            }
          End If
          Return m_FixtureParameters
       End Get
@@ -252,8 +217,9 @@ Public Class DispositionParameterExpanderVM
    Public ReadOnly Property RawPartOptions As ContentControl
       Get
          If IsNothing(m_RawPartOptions) Then
-            m_RawPartOptions = New RawPartOptionV
-            m_RawPartOptions.DataContext = New RawPartOptionVM
+            m_RawPartOptions = New RawPartOptionV With {
+               .DataContext = New RawPartOptionVM
+            }
          End If
          Return m_RawPartOptions
       End Get
@@ -277,7 +243,7 @@ Public Class DispositionParameterExpanderVM
 
    Public ReadOnly Property OkMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 1)
+         Return EgtMsg(5431)     ' Ok
       End Get
    End Property
 
@@ -293,7 +259,7 @@ Public Class DispositionParameterExpanderVM
       OpenDispositionFunction = AddressOf OpenDispositionParameters
       MoveIsChecked = True
       m_BLIsChecked = True
-      OnPropertyChanged("BLIsChecked")
+      OnPropertyChanged(NameOf(BLIsChecked))
       m_RawRefPosition = MCH_CR.BL
    End Sub
 
@@ -309,15 +275,15 @@ Public Class DispositionParameterExpanderVM
       End If
       Select Case m_ActiveObject
          Case ObjectType.RAWPART
-            ' Abilito la selezione delle Fixture
+            ' Abilito la selezione dei Grezzi
             Map.refProjectVM.SceneSelType = SceneSelTypeOpt.RAWPART
          Case ObjectType.FIXTURE
             ' Abilito la selezione delle Fixture
             Map.refProjectVM.SceneSelType = SceneSelTypeOpt.FIXTURE
       End Select
-      m_MoveWithFixture = False
-      OnPropertyChanged("MoveWithFixture")
+      Map.refRawPartOptionVM.SetMoveWithFixture(False)
       Map.refFixtureParametersVM.UpdateFixtureTypeList()
+      DispositionUtility.InitHookData()
    End Sub
 
 #End Region    ' METHODS
@@ -353,7 +319,7 @@ Public Class DispositionParameterExpanderVM
                StringToLen(Values(1), InputPoint.y)
             Else
                m_InputErrorMsg = "Il valore non è una cordinata XY"
-               OnPropertyChanged("InputErrorMsg")
+               OnPropertyChanged(NameOf(InputErrorMsg))
                Return
             End If
             ' Vettore di movimento
@@ -420,7 +386,7 @@ Public Class DispositionParameterExpanderVM
             Dim InputAngle As Double = 0
             If Not StringToDouble(sVal, InputAngle) Then
                m_InputErrorMsg = "Il valore non è un angolo valido"
-               OnPropertyChanged("InputErrorMsg")
+               OnPropertyChanged(NameOf(InputErrorMsg))
                Return
             End If
             ' eseguo rotazione
@@ -433,14 +399,14 @@ Public Class DispositionParameterExpanderVM
                         DispositionUtility.VerifyRawPosition(nSelId, vtOrigMove, vtRefMove)
                      Else
                         m_InputErrorMsg = "Impossibile ruotare il grezzo."
-                        OnPropertyChanged("InputErrorMsg")
+                        OnPropertyChanged(NameOf(InputErrorMsg))
                      End If
                   Case ObjectType.PART
                      'EgtMove...
                   Case ObjectType.FIXTURE
                      If Not EgtRotateFixture(nSelId, InputAngle) Then
                         m_InputErrorMsg = "Impossibile ruotare la ventosa"
-                        OnPropertyChanged("InputErrorMsg")
+                        OnPropertyChanged(NameOf(InputErrorMsg))
                      End If
                End Select
                nSelId = EgtGetNextSelectedObj()

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersV.xaml

@@ -1,12 +1,12 @@
 <UserControl x:Class="FixtureParametersV"
-   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5">
 
    <StackPanel>
 
       <ListBox Name="FixtureListBox" ItemsSource="{Binding FixtureTypeList}"
-         Height="150" IsSynchronizedWithCurrentItem="True" SelectedItem="{Binding SelectedFixtureType}">
+               Height="150" IsSynchronizedWithCurrentItem="True" SelectedItem="{Binding SelectedFixtureType}">
          <ListBox.Resources>
             <DataTemplate DataType="{x:Type EgtCAM5:FixtureType}">
                <Grid>
@@ -24,7 +24,7 @@
                <Border CornerRadius="1" Background="{StaticResource EgaltechBlue3}" FocusVisualStyle="{x:Null}">
                   <StackPanel Orientation="Horizontal">
                      <TextBlock Text="{Binding Name}" Foreground="White" Margin="5,0,0,0"
-                              FontSize="15" FontWeight="SemiBold"/>
+                                FontSize="15" FontWeight="SemiBold"/>
                   </StackPanel>
                </Border>
             </DataTemplate>
@@ -38,15 +38,15 @@
             </Style>
          </ListBox.ItemContainerStyle>
       </ListBox>
-      
+
       <TextBlock Text="{Binding FixtureErrorMsg,Mode=OneWay}" Margin="5,5,5,5"
-         Style="{StaticResource ValidationErrorTextBlock}"/>
-      
+                 Style="{StaticResource ValidationErrorTextBlock}"/>
+
       <UniformGrid Columns="2">
          <Button Content="Add" Height="30" Command="{Binding AddCommand}" CommandParameter="{Binding Path=SelectedItem, ElementName=FixtureListBox}"/>
          <Button Content="Remove" Height="30" Command="{Binding RemoveCommand}" CommandParameter="{Binding Path=SelectedItem, ElementName=FixtureListBox}"/>
       </UniformGrid>
-      
+
    </StackPanel>
-   
+
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/FixtureParameters/FixtureParametersVM.vb

@@ -5,8 +5,6 @@ Imports EgtUILib
 Public Class FixtureParametersVM
    Inherits ViewModelBase
 
-   Friend Const USED As String = "USED"
-
    Private m_FixtureTypeList As ObservableCollection(Of FixtureListItem)
    Public ReadOnly Property FixtureTypeList As ObservableCollection(Of FixtureListItem)
       Get
@@ -38,7 +36,7 @@ Public Class FixtureParametersVM
 
    Public ReadOnly Property OkMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 1)
+         Return EgtMsg(5431)     ' Ok
       End Get
    End Property
 
@@ -64,8 +62,8 @@ Public Class FixtureParametersVM
       Dim nUsedFixtureId As Integer = EgtGetFirstFixture()
       While nUsedFixtureId <> GDB_ID.NULL
          Dim sUsedFixtureName As String = String.Empty
+         EgtGetName(nUsedFixtureId, sUsedFixtureName)
          For Index = 0 To m_FixtureTypeList.Count - 1
-            EgtGetName(nUsedFixtureId, sUsedFixtureName)
             If sUsedFixtureName = m_FixtureTypeList(Index).Name Then
                Dim CurrFixtureType As FixtureType = DirectCast(m_FixtureTypeList(Index), FixtureType)
                CurrFixtureType.UsedNumber += 1
@@ -78,7 +76,8 @@ Public Class FixtureParametersVM
 
    Friend Sub UpdateFixtureTypeList()
       m_FixtureTypeList = New ObservableCollection(Of FixtureListItem)(FixtureType.ReadFixtureTypeFromMachIni())
-      OnPropertyChanged("FixtureTypeList")
+      UpdateFixtureCount()
+      OnPropertyChanged(NameOf(FixtureTypeList))
    End Sub
 
    ' Definizione comandi
@@ -117,32 +116,41 @@ Public Class FixtureParametersVM
       ' recupero area della tavola
       Dim ptTableMin As Point3d
       Dim ptTableMax As Point3d
-      if Not EgtGetTableArea(1, ptTableMin, ptTableMax) Then
+      If Not EgtGetTableArea(1, ptTableMin, ptTableMax) Then
          m_FixtureErrorMsg = "Tavola non definita"
-         OnPropertyChanged("FixtureErrorMsg")
+         OnPropertyChanged(NameOf(FixtureErrorMsg))
          Return
       End If
+      ' dimensioni tavola
+      Dim vtTabDim As Vector3d = ptTableMax - ptTableMin
       ' calcolo il centro della tavola
-      Dim ptTableMid As New Point3d((ptTableMax.x - ptTableMin.x) / 2, (ptTableMax.y - ptTableMin.y) / 2, (ptTableMax.z - ptTableMin.z) / 2)
+      Dim ptTableMid As Point3d = Point3d.ORIG() + 0.5 * vtTabDim
       ' posiziono il nuovo sottopezzo al centro della tavola
-      Dim nAddedFixtureId As Integer = EgtAddFixture(SelectedFixture.Name, ptTableMid, 0, 0)
+      Dim nAddedFixtureId As Integer = EgtAddFixture(SelectedFixture.Name, ptTableMid, 0, 20)
       If nAddedFixtureId = GDB_ID.NULL Then
          m_FixtureErrorMsg = "Impossibile posizionare la ventosa sulla tavola"
-         OnPropertyChanged("FixtureErrorMsg")
+         OnPropertyChanged(NameOf(FixtureErrorMsg))
          Return
       End If
-      ' verifico se la ventosa ha punti di hook da ancorare
+      ' Se la ventosa ha punti di hook da ancorare
       If IsFixtureWithHook(nAddedFixtureId) Then
          If Not PositionFixtureOnNearestHook(nAddedFixtureId) Then
-            ' non ci sono punti liberi, quindi rimuovo la ventosa e segnalo
-            EgtRemoveFixture(nAddedFixtureId)
-            MessageBox.Show("No free hook point!", "ERROR")
-            Return
+            EgtMoveFixture( nAddedFixtureId, 0.2 * vtTabDim.y * Vector3d.Y_AX())
+            If Not PositionFixtureOnNearestHook(nAddedFixtureId) Then
+               EgtMoveFixture( nAddedFixtureId, 0.2 * vtTabDim.y * Vector3d.Y_AX())
+               If Not PositionFixtureOnNearestHook(nAddedFixtureId) Then
+                  ' non ci sono punti liberi, quindi rimuovo la ventosa e segnalo
+                  EgtRemoveFixture(nAddedFixtureId)
+                  EgtSetFixtureLink( nAddedFixtureId, "")
+                  MessageBox.Show("No free hook point!", "ERROR")
+                  Return
+               End If
+            End If
          End If
+      ' altrimenti ventosa con movimento continuo
       Else
-         ' se non ha punti di ancoraggio
-      ' verifico se è in una posizione valida
-      If Not DispositionUtility.VerifyFixturePosition(nAddedFixtureId, New Vector3d) Then
+         ' verifico se è in una posizione valida
+         If Not DispositionUtility.VerifyFixturePosition(nAddedFixtureId, New Vector3d) Then
             ' se non trovo una posizione valida, esco
             If Not SearchOkFixturePosition(nAddedFixtureId, ptTableMin, ptTableMax, ptTableMid) Then
                Return
@@ -152,81 +160,81 @@ Public Class FixtureParametersVM
       ' sottraggo la ventosa aggiunta dal conto di quelle disponibili
       SelectedFixture.UsedNumber += 1
       EgtDraw()
-      OnPropertyChanged("FixtureErrorMsg")
+      OnPropertyChanged(NameOf(FixtureErrorMsg))
    End Sub
 
    ' Funzione che cerca una posizione valida per la ventosa libera di muoversi
    Private Function SearchOkFixturePosition(nAddedFixtureId As Integer, ptTableMin As Point3d, ptTableMax As Point3d, ptTableMid As Point3d) As Boolean
-         ' creo un gruppo temporaneo
-         Dim nTempGroupId As Integer = EgtCreateGroup(GDB_ID.ROOT)
-         EgtSetLevel(nTempGroupId, GDB_LV.USER)
-         EgtSetMode(nTempGroupId, GDB_MD.STD)
-         ' calcolo ingombro sottopezzo aggiunto
-         Dim bboxAddedFixture As New BBox3d
-         EgtGetBBoxGlob(nAddedFixtureId, GDB_BB.STANDARD, bboxAddedFixture)
-         ' calcolo bbox tavolo
-         Dim bboxTableArea As New BBox3d(ptTableMin, ptTableMax)
-         bboxTableArea.Expand(-bboxAddedFixture.DimX / 2, -bboxAddedFixture.DimY / 2, 0)
-         ' creo superficie delle misure della tavola
-         Dim nTableFrId As Integer = EgtCreateSurfFrRectangle(nTempGroupId, bboxTableArea.Min, bboxTableArea.Max)
-         ' ciclo su tutti i pezzi di questa fase
-         Dim nFixtureId As Integer = EgtGetFirstFixture()
-         While nFixtureId <> GDB_ID.NULL
-            ' creo il bbox del sottopezzo
-            Dim bboxFixture As New BBox3d
-            EgtGetBBoxGlob(nFixtureId, GDB_BB.STANDARD, bboxFixture)
-            ' faccio offset del bbox del sottopezzo per includere metà del sottopezzo da aggiungere
-            bboxFixture.Expand(bboxAddedFixture.DimX / 2, bboxAddedFixture.DimY / 2, 0)
-            ' lo porto all'altezza della tavola
-            Dim ptMinFixtureFr As New Point3d(bboxFixture.Min)
-            Dim ptMaxFixtureFr As New Point3d(bboxFixture.Max)
-            ptMinFixtureFr.z = ptTableMin.z
-            ptMaxFixtureFr.z = ptTableMin.z
-            ' creo la regione occupata dal bbox del sottopezzo
-            Dim nFixtureFrId As Integer = EgtCreateSurfFrRectangle(nTempGroupId, ptMinFixtureFr, ptMaxFixtureFr)
-            ' sottraggo la regione del sottopezzo da quella della tavola
-            Dim x = EgtSurfFrSubtract(nTableFrId, nFixtureFrId)
-            nFixtureId = EgtGetNextFixture(nFixtureId)
-         End While
-         ' creo gruppo con i bordi della regione di tavola avanzata
-         Dim TableFrBorderGroupId As Integer = EgtCreateGroup(nTempGroupId)
-         Dim nTableFrBorderCount As Integer = 0
-         Dim nChunk As Integer = EgtSurfFrChunkCount(nTableFrId)
-         For Index = 0 To nChunk - 1
-            EgtExtractSurfFrChunkLoops(nTableFrId, Index, TableFrBorderGroupId, nTableFrBorderCount)
-         Next
-         ' verifico se c'è almeno un bordo
-         If nTableFrBorderCount = 0 Then
-            m_FixtureErrorMsg = "Impossibile posizionare la ventosa sulla tavola"
-            OnPropertyChanged("FixtureErrorMsg")
-         Return False
+      ' creo un gruppo temporaneo
+      Dim nTempGroupId As Integer = EgtCreateGroup(GDB_ID.ROOT)
+      EgtSetLevel(nTempGroupId, GDB_LV.USER)
+      EgtSetMode(nTempGroupId, GDB_MD.STD)
+      ' calcolo ingombro sottopezzo aggiunto
+      Dim bboxAddedFixture As New BBox3d
+      EgtGetBBoxGlob(nAddedFixtureId, GDB_BB.STANDARD, bboxAddedFixture)
+      ' calcolo bbox tavolo
+      Dim bboxTableArea As New BBox3d(ptTableMin, ptTableMax)
+      bboxTableArea.Expand(-bboxAddedFixture.DimX / 2, -bboxAddedFixture.DimY / 2, 0)
+      ' creo superficie delle misure della tavola
+      Dim nTableFrId As Integer = EgtCreateSurfFrRectangle(nTempGroupId, bboxTableArea.Min, bboxTableArea.Max)
+      ' ciclo su tutti i pezzi di questa fase
+      Dim nFixtureId As Integer = EgtGetFirstFixture()
+      While nFixtureId <> GDB_ID.NULL
+         ' creo il bbox del sottopezzo
+         Dim bboxFixture As New BBox3d
+         EgtGetBBoxGlob(nFixtureId, GDB_BB.STANDARD, bboxFixture)
+         ' faccio offset del bbox del sottopezzo per includere metà del sottopezzo da aggiungere
+         bboxFixture.Expand(bboxAddedFixture.DimX / 2, bboxAddedFixture.DimY / 2, 0)
+         ' lo porto all'altezza della tavola
+         Dim ptMinFixtureFr As New Point3d(bboxFixture.Min)
+         Dim ptMaxFixtureFr As New Point3d(bboxFixture.Max)
+         ptMinFixtureFr.z = ptTableMin.z
+         ptMaxFixtureFr.z = ptTableMin.z
+         ' creo la regione occupata dal bbox del sottopezzo
+         Dim nFixtureFrId As Integer = EgtCreateSurfFrRectangle(nTempGroupId, ptMinFixtureFr, ptMaxFixtureFr)
+         ' sottraggo la regione del sottopezzo da quella della tavola
+         Dim x = EgtSurfFrSubtract(nTableFrId, nFixtureFrId)
+         nFixtureId = EgtGetNextFixture(nFixtureId)
+      End While
+      ' creo gruppo con i bordi della regione di tavola avanzata
+      Dim TableFrBorderGroupId As Integer = EgtCreateGroup(nTempGroupId)
+      Dim nTableFrBorderCount As Integer = 0
+      Dim nChunk As Integer = EgtSurfFrChunkCount(nTableFrId)
+      For Index = 0 To nChunk - 1
+         EgtExtractSurfFrChunkLoops(nTableFrId, Index, TableFrBorderGroupId, nTableFrBorderCount)
+      Next
+      ' verifico se c'è almeno un bordo
+      If nTableFrBorderCount = 0 Then
+         m_FixtureErrorMsg = "Impossibile posizionare la ventosa sulla tavola"
+         OnPropertyChanged("FixtureErrorMsg")
+      Return False
+      End If
+      ' converto il punto medio della tavola in coordinate globali
+      Dim PtTableRef As Point3d
+      EgtGetTableRef(1, PtTableRef)
+      Dim frTableRef As New Frame3d(PtTableRef)
+      ptTableMid.ToGlob(frTableRef)
+      ' ciclo sui bordi per trovare il punto più vicino
+      Dim dMinDist As Double = (bboxTableArea.Max - bboxTableArea.Min).SqLenXY
+      Dim ptMinAbs As Point3d
+      Dim BorderId As Integer = EgtGetFirstInGroup(TableFrBorderGroupId)
+      While BorderId <> GDB_ID.NULL
+         Dim dDist As Double = 0
+         Dim ptMinRel As Point3d
+         Dim nSide As Integer = 0
+         EgtPointCurveDistSide(ptTableMid, BorderId, Vector3d.Z_AX, GDB_ID.ROOT, dDist, ptMinRel, nSide)
+         If dDist < dMinDist Then
+            dMinDist = dDist
+            ptMinAbs = ptMinRel
          End If
-         ' converto il punto medio della tavola in coordinate globali
-         Dim PtTableRef As Point3d
-         EgtGetTableRef(1, PtTableRef)
-         Dim frTableRef As New Frame3d(PtTableRef)
-         ptTableMid.ToGlob(frTableRef)
-         ' ciclo sui bordi per trovare il punto più vicino
-         Dim dMinDist As Double = (bboxTableArea.Max - bboxTableArea.Min).SqLenXY
-         Dim ptMinAbs As Point3d
-         Dim BorderId As Integer = EgtGetFirstInGroup(TableFrBorderGroupId)
-         While BorderId <> GDB_ID.NULL
-            Dim dDist As Double = 0
-            Dim ptMinRel As Point3d
-            Dim nSide As Integer = 0
-            EgtPointCurveDistSide(ptTableMid, BorderId, Vector3d.Z_AX, GDB_ID.ROOT, dDist, ptMinRel, nSide)
-            If dDist < dMinDist Then
-               dMinDist = dDist
-               ptMinAbs = ptMinRel
-            End If
-            BorderId = EgtGetNext(BorderId)
-         End While
-         ' sposto il sottopezzo nel punto trovato
-         Dim vtFixtureMove As Vector3d = ptMinAbs - ptTableMid
-         vtFixtureMove.z = 0
-         EgtMoveFixture(nAddedFixtureId, vtFixtureMove)
-         ' cancello il gruppo temporaneo
-         EgtErase(nTempGroupId)
+         BorderId = EgtGetNext(BorderId)
+      End While
+      ' sposto il sottopezzo nel punto trovato
+      Dim vtFixtureMove As Vector3d = ptMinAbs - ptTableMid
+      vtFixtureMove.z = 0
+      EgtMoveFixture(nAddedFixtureId, vtFixtureMove)
+      ' cancello il gruppo temporaneo
+      EgtErase(nTempGroupId)
       Return True
    End Function
 
@@ -239,9 +247,7 @@ Public Class FixtureParametersVM
       ' leggo tipo 
       Dim sType As String = ""
       EgtGetInfo(nFixtHookId, DispositionUtility.TYPE, sType)
-      If sType.Equals(DispositionUtility.FREE) Then
-         Return False
-      ElseIf sType.Equals(DispositionUtility.POINT) Then
+      If sType.Equals(DispositionUtility.POINT) Then
          Return True
       ElseIf sType.Equals(DispositionUtility.LINE) Then
          Return True
@@ -250,7 +256,7 @@ Public Class FixtureParametersVM
       End If
    End Function
 
-   ' Funzione che aggancia la ventosa al più vicino hook libero
+   ' Funzione che cerca un hook libero adatto alla ventosa e se trovato la posiziona
    Friend Shared Function PositionFixtureOnNearestHook(nFixtureId As Integer) As Boolean
       ' cerco punto hook sulla ventosa
       Dim nFixtSolidId As Integer = EgtGetFirstNameInGroup(nFixtureId, SOLID)
@@ -262,26 +268,21 @@ Public Class FixtureParametersVM
       Dim nFixtHookType As DispositionUtility.HOOKTYPE = DispositionUtility.HOOKTYPE.FREE
       Dim sType As String = ""
       EgtGetInfo(nFixtHookId, DispositionUtility.TYPE, sType)
-      If sType.Equals(DispositionUtility.FREE) Then
-         nFixtHookType = DispositionUtility.HOOKTYPE.FREE
-         ' esco perchè non devo cercare alcun punto
-         Return True
-      ElseIf sType.Equals(DispositionUtility.POINT) Then
+      If sType.Equals(DispositionUtility.POINT) Then
          nFixtHookType = DispositionUtility.HOOKTYPE.POINT
       ElseIf sType.Equals(DispositionUtility.LINE) Then
          nFixtHookType = DispositionUtility.HOOKTYPE.LINE
       Else
-         nFixtHookType = DispositionUtility.HOOKTYPE.FREE
          ' esco perchè non devo cercare alcun punto
          Return True
       End If
       Dim nFixtHookClass As Integer = 0
       EgtGetInfo(nFixtHookId, DispositionUtility.CLASS_, nFixtHookClass)
-      ' cerco id tavola
+      ' Recupero Id tavola corrente
       Dim sTableName As String = ""
       EgtGetTableName(sTableName)
       Dim nTableId As Integer = EgtGetTableId(sTableName)
-      ' cerco hook su tavola macchina
+      ' *** Cerco hook su tavola ***
       Dim nTableSolidId As Integer = EgtGetFirstNameInGroup(nTableId, SOLID)
       Dim nCurrHookId As Integer = EgtGetFirstNameInGroup(nTableSolidId, DispositionUtility.HOOK)
       ' Punto di hook a cui spostare la ventosa
@@ -293,33 +294,23 @@ Public Class FixtureParametersVM
             EgtMoveFixture(nFixtureId, ptCurrHook - ptFixtHook)
             ' verifico se è in una posizione valida
             If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
-               EgtSetInfo(nCurrHookId, used, nFixtureId)
+               If nFixtHookType = DispositionUtility.HOOKTYPE.POINT then
+                  DispositionUtility.SetHookUsed( nCurrHookId, nFixtureId)
+               Else
+                  DispositionUtility.AddHookUsed( nCurrHookId, nFixtureId)
+               End If
+               EgtSetFixtureLink( nFixtureId, "")
                Return True
+            Else
+               EgtStartPoint(nFixtHookId, GDB_ID.ROOT, ptFixtHook)
             End If
          End If
          nCurrHookId = EgtGetNextName(nCurrHookId, DispositionUtility.HOOK)
       End While
-      ' cerco hook su barra fissa
+      ' *** Cerco hook su barre fisse ***
       Dim nTableFixedId As Integer = EgtGetFirstNameInGroup(nTableId, DispositionUtility.FIXED)
-      nCurrHookId = EgtGetFirstNameInGroup(nTableFixedId, DispositionUtility.HOOK)
-      While nCurrHookId <> GDB_ID.NULL
-         ' se punto di aggancio valido
-         If HookAnalyzer(nCurrHookId, nFixtHookType, nFixtHookClass, ptFixtHook, ptCurrHook) Then
-            ' sposto la ventosa
-            EgtMoveFixture(nFixtureId, ptCurrHook - ptFixtHook)
-            ' verifico se è in una posizione valida
-            If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
-               EgtSetInfo(nCurrHookId, USED, nFixtureId)
-               Return True
-            End If
-         End If
-         nCurrHookId = EgtGetNextName(nCurrHookId, DispositionUtility.HOOK)
-      End While
-      ' cerco hook su barre mobili
-      Dim nMobileInd As Integer = 1
-      Dim nMobile As Integer = EgtGetFirstNameInGroup(nTableId, DispositionUtility.MOBILE & nMobileInd)
-      While nMobile <> GDB_ID.NULL
-         nCurrHookId = EgtGetFirstNameInGroup(nMobile, DispositionUtility.HOOK)
+      While nTableFixedId <> GDB_ID.NULL
+         nCurrHookId = EgtGetFirstNameInGroup(nTableFixedId, DispositionUtility.HOOK)
          While nCurrHookId <> GDB_ID.NULL
             ' se punto di aggancio valido
             If HookAnalyzer(nCurrHookId, nFixtHookType, nFixtHookClass, ptFixtHook, ptCurrHook) Then
@@ -327,46 +318,114 @@ Public Class FixtureParametersVM
                EgtMoveFixture(nFixtureId, ptCurrHook - ptFixtHook)
                ' verifico se è in una posizione valida
                If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
-                  EgtSetInfo(nCurrHookId, USED, nFixtureId)
+                  If nFixtHookType = DispositionUtility.HOOKTYPE.POINT then
+                     DispositionUtility.SetHookUsed( nCurrHookId, nFixtureId)
+                  Else
+                     DispositionUtility.AddHookUsed( nCurrHookId, nFixtureId)
+                  End If
+                  EgtSetFixtureLink( nFixtureId, "")
                   Return True
+               Else
+                  EgtStartPoint(nFixtHookId, GDB_ID.ROOT, ptFixtHook)
                End If
             End If
             nCurrHookId = EgtGetNextName(nCurrHookId, DispositionUtility.HOOK)
          End While
-         nMobileInd += 1
-         nMobile = EgtGetFirstNameInGroup(nTableId, DispositionUtility.MOBILE & nMobileInd)
+         nTableFixedId = EgtGetNextName( nTableFixedId, DispositionUtility.FIXED)
+      End While
+      ' *** Cerco hook su barre mobili ***
+      Dim nBarId As Integer = EgtGetFirstGroupInGroup(nTableId)
+      While nBarId <> GDB_ID.NULL
+         Dim sBarName As String = ""
+         If EgtGetName( nBarId, sBarName) AndAlso EgtGetAxisId( sBarName) <> GDB_ID.NULL Then
+            nCurrHookId = EgtGetFirstNameInGroup(nBarId, DispositionUtility.HOOK)
+            While nCurrHookId <> GDB_ID.NULL
+               ' se punto di aggancio valido
+               If HookAnalyzer(nCurrHookId, nFixtHookType, nFixtHookClass, ptFixtHook, ptCurrHook) Then
+                  ' sposto la ventosa
+                  Dim vtMove As Vector3d = ptCurrHook - ptFixtHook
+                  EgtMoveFixture(nFixtureId, vtMove)
+                  ' verifico se è in una posizione valida
+                  If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
+                     If nFixtHookType = DispositionUtility.HOOKTYPE.POINT then
+                        DispositionUtility.SetHookUsed( nCurrHookId, nFixtureId)
+                     Else
+                        DispositionUtility.AddHookUsed( nCurrHookId, nFixtureId)
+                     End If
+                     EgtSetFixtureLink( nFixtureId, sBarName)
+                     Return True
+                  Else
+                     EgtStartPoint(nFixtHookId, GDB_ID.ROOT, ptFixtHook)
+                  End If
+               End If
+               nCurrHookId = EgtGetNextName(nCurrHookId, DispositionUtility.HOOK)
+            End While
+            ' Cerco su eventuali carrelli
+            Dim nCharId As Integer = EgtGetFirstGroupInGroup(nBarId)
+            While nCharId <> GDB_ID.NULL
+               Dim sCharName As String = ""
+               If EgtGetName( nCharId, sCharName) AndAlso EgtGetAxisId( sCharName) <> GDB_ID.NULL Then 
+                  nCurrHookId = EgtGetFirstNameInGroup(nCharId, DispositionUtility.HOOK)
+                  While nCurrHookId <> GDB_ID.NULL
+                     ' se punto di aggancio valido
+                     If HookAnalyzer(nCurrHookId, nFixtHookType, nFixtHookClass, ptFixtHook, ptCurrHook) Then
+                        ' sposto la ventosa
+                        EgtMoveFixture(nFixtureId, ptCurrHook - ptFixtHook)
+                        ' verifico se è in una posizione valida
+                        If DispositionUtility.VerifyFixturePosition(nFixtureId, New Vector3d) Then
+                           If nFixtHookType = DispositionUtility.HOOKTYPE.POINT then
+                              DispositionUtility.SetHookUsed( nCurrHookId, nFixtureId)
+                           Else
+                              DispositionUtility.AddHookUsed( nCurrHookId, nFixtureId)
+                           End If
+                           EgtSetFixtureLink( nFixtureId, sCharName)
+                           Return True
+                        Else
+                           EgtStartPoint(nFixtHookId, GDB_ID.ROOT, ptFixtHook)
+                        End If
+                     End If
+                     nCurrHookId = EgtGetNextName(nCurrHookId, DispositionUtility.HOOK)
+                  End While
+               End If
+               nCharId = EgtGetNextGroup(nCharId)
+            End While
+         End If
+         nBarId = EgtGetNextGroup(nBarId)
       End While
       Return False
    End Function
 
-   ' Funzione che analizza l'hook e se valido ne prestituisce lo posizione(punto)
-   Private Shared Function HookAnalyzer(nCurrHookId As Integer, nFixtHookType As Integer, nFixtHookClass As Integer, ptFixtHook As Point3d, ByRef ptCurrHook As Point3d) As Boolean
-      ' verifico se del tipo giusto
+   ' Funzione che analizza l'hook e se valido ne restituisce la posizione (punto)
+   Private Shared Function HookAnalyzer(nCurrHookId As Integer, nFixtHookType As Integer, nFixtHookClass As Integer,
+                                        ptFixtHook As Point3d, ByRef ptCurrHook As Point3d) As Boolean
+      ' Verifico se del tipo giusto
       Dim nTableHookType As GDB_TY = EgtGetType(nCurrHookId)
-      If (nTableHookType = GDB_TY.GEO_POINT And nFixtHookType = DispositionUtility.HOOKTYPE.POINT) OrElse (nTableHookType = GDB_TY.CRV_LINE And nFixtHookType = DispositionUtility.HOOKTYPE.LINE) Then
-         ' verifico se della stessa classe
-         Dim nTableHookClass As Integer = 0
-         EgtGetInfo(nCurrHookId, DispositionUtility.CLASS_, nTableHookClass)
-         If nTableHookClass = nFixtHookClass Then
-            Dim dDist As Double = 0
-            ' punto a distanza minima sull'hook
-            If nTableHookType = GDB_TY.GEO_POINT Then
-               ' verifico se utilizzato
-               Dim nTableHookUsed As Boolean = False
-               If Not EgtGetInfo(nCurrHookId, DispositionUtility.USED, nTableHookUsed) Then
-                  ' calcolo distanza punto hook tavola dal punto hook della ventosa
-                  EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
-                  Return True
-               End If
-            ElseIf nTableHookType = GDB_TY.CRV_LINE Then
-               ' calcolo distanza linea hook tavola dal punto hook della ventosa
-               Dim nRefId As Integer = 0
-               Dim dU As Double = 0
-               EgtPointCurveDist(ptFixtHook, nCurrHookId, nRefId, dDist, dU)
-               EgtAtParamPoint(nCurrHookId, dU, GDB_ID.ROOT, ptCurrHook)
-               Return True
-            End If
+      If Not (nTableHookType = GDB_TY.GEO_POINT And nFixtHookType = DispositionUtility.HOOKTYPE.POINT) AndAlso
+         Not (nTableHookType = GDB_TY.CRV_LINE And nFixtHookType = DispositionUtility.HOOKTYPE.LINE) Then
+         Return False
+      End If
+
+      ' Verifico se della stessa classe
+      Dim nTableHookClass As Integer = DispositionUtility.GetHookClass( nCurrHookId)
+      If nTableHookClass <> nFixtHookClass Then
+         Return False
+      End If
+
+      Dim dDist As Double = 0
+      ' punto a distanza minima sull'hook
+      If nTableHookType = GDB_TY.GEO_POINT Then
+         ' verifico se utilizzato
+         If Not DispositionUtility.GetIsHookUsed( nCurrHookId) Then
+            ' calcolo distanza punto hook tavola dal punto hook della ventosa
+            EgtStartPoint(nCurrHookId, GDB_ID.ROOT, ptCurrHook)
+            Return True
          End If
+      ElseIf nTableHookType = GDB_TY.CRV_LINE Then
+         ' calcolo distanza linea hook tavola dal punto hook della ventosa
+         Dim ptL1 As Point3d : EgtStartPoint( nCurrHookId, GDB_ID.ROOT, ptL1)
+         Dim ptL2 As Point3d : EgtEndPoint( nCurrHookId, GDB_ID.ROOT, ptL2)
+         ptCurrHook = DispositionUtility.DistPointSegment( ptFixtHook, ptL1, ptL2)
+         Return True
       End If
       Return False
    End Function
@@ -396,6 +455,7 @@ Public Class FixtureParametersVM
          Dim NextSelectedId As Integer = EgtGetNextSelectedObj()
          If EgtVerifyFixture(SelectedFixtureId) Then
             EgtRemoveFixture(SelectedFixtureId)
+            DispositionUtility.RemoveFixtureFromHook( SelectedFixtureId)
             For Index = 0 To FixtureTypeList.Count - 1
                Dim SelFixtureName As String = String.Empty
                EgtGetName(SelectedFixtureId, SelFixtureName)
@@ -431,7 +491,7 @@ Public Class FixtureType
       Set(value As Integer)
          If value <> m_TotalNumber Then
             m_TotalNumber = value
-            NotifyPropertyChanged("UsedTotalRatio")
+            NotifyPropertyChanged(NameOf(UsedTotalRatio))
          End If
       End Set
    End Property
@@ -442,15 +502,15 @@ Public Class FixtureType
       Set(value As Integer)
          If value <> m_UsedNumber Then
             m_UsedNumber = value
-            NotifyPropertyChanged("UsedTotalRatio")
+            NotifyPropertyChanged(NameOf(UsedTotalRatio))
             If UsedNumber >= TotalNumber Then
                m_IsEnabled = False
                m_IsSelected = False
-               NotifyPropertyChanged("IsSelected")
+               NotifyPropertyChanged(NameOf(IsSelected))
             Else
                m_IsEnabled = True
             End If
-            NotifyPropertyChanged("IsEnabled")
+            NotifyPropertyChanged(NameOf(IsEnabled))
          End If
       End Set
    End Property

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/RawPartOption/RawPartOptionV.xaml

@@ -7,7 +7,7 @@
       <CheckBox Content="Move with Fixture" IsChecked="{Binding MoveWithFixture, Mode=TwoWay}"/>
       <UniformGrid Columns="2" Margin="0,5,0,0">
          <Button Content="New" Command="{Binding NewRawPartCommand}"/>
-         <Button Content="Remove"/> <!--Command="{Binding RemoveRawPartCommand}"-->
+         <Button Content="Remove" Command="{Binding RemoveRawPartCommand}"/>
       </UniformGrid>
       <Grid Visibility="{Binding RawPartParamVisibility, Mode=OneWay}">
          <Grid.RowDefinitions>

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/RawPartOption/RawPartOptionVM.vb

@@ -34,10 +34,15 @@ Public Class RawPartOptionVM
             End If
             EgtDraw()
             m_MoveWithFixture = value
-            OnPropertyChanged("MoveWithFixture")
+            OnPropertyChanged(NameOf(MoveWithFixture))
          End If
       End Set
    End Property
+   friend Sub SetMoveWithFixture(value As Boolean)
+      m_MoveWithFixture=value
+      OnPropertyChanged(NameOf(MoveWithFixture))
+   End Sub
+
 
    Private m_bRawPartParamVisibility As Visibility
    Public ReadOnly Property RawPartParamVisibility As Visibility
@@ -50,32 +55,32 @@ Public Class RawPartOptionVM
 
    Public ReadOnly Property NewMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 3)
+         Return EgtMsg(5433)     ' Nuovo
       End Get
    End Property
    Public ReadOnly Property RemoveMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 4)
+         Return EgtMsg(5434)     ' Rimuovi
       End Get
    End Property
    Public ReadOnly Property LenghtMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 5)
+         Return EgtMsg(5435)     ' Lunghezza
       End Get
    End Property
    Public ReadOnly Property WidthMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 6)
+         Return EgtMsg(5436)     ' Larghezza
       End Get
    End Property
    Public ReadOnly Property HeightMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 7)
+         Return EgtMsg(5437)     ' Altezza
       End Get
    End Property
    Public ReadOnly Property PositionMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 8)
+         Return EgtMsg(5438)     ' Posizione
       End Get
    End Property
 
@@ -86,6 +91,7 @@ Public Class RawPartOptionVM
    Private m_cmdRemoveRawPart As ICommand
 
    Sub New()
+      Map.SetRefRawPartOptionVM(Me) 
       If EgtGetFirstSelectedObj() <> GDB_ID.NULL Then
          m_bRawPartParamVisibility = Visibility.Visible
       Else
@@ -110,16 +116,46 @@ Public Class RawPartOptionVM
    End Property
 
    ''' <summary>
-   ''' Execute the Point.  This method is invoked by the DoneCommand.
+   ''' Execute NewRawPart.  This method is invoked by the DoneCommand.
    ''' </summary>
    Public Sub NewRawPart()
       DispositionUtility.ShowParts()
       m_bRawPartParamVisibility = Visibility.Visible
-      OnPropertyChanged("RawPartParamVisibility")
+      OnPropertyChanged(NameOf(RawPartParamVisibility))
    End Sub
 
 #End Region ' NewRawPartCommand
 
+#Region "RemoveRawPartCommand"
+
+   ''' <summary>
+   ''' Returns a command that do Done.
+   ''' </summary>
+   Public ReadOnly Property RemoveRawPartCommand As ICommand
+      Get
+         If m_cmdRemoveRawPart Is Nothing Then
+            m_cmdRemoveRawPart = New RelayCommand(AddressOf RemoveRawPart)
+         End If
+         Return m_cmdRemoveRawPart
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Execute RemoveRawPart.  This method is invoked by the DoneCommand.
+   ''' </summary>
+   Public Sub RemoveRawPart()
+      ' ciclo sui grezzi selezionati
+      Dim nSelRawPartId As Integer = EgtGetFirstSelectedObj()
+      While nSelRawPartId <> GDB_ID.NULL
+         ' rimuovo il grezzo dalla disposizione
+         EgtRemoveRawPart(nSelRawPartId)
+         nSelRawPartId = EgtGetNextSelectedObj()
+      End While
+      EgtDraw()
+   End Sub
+
+#End Region ' RemoveRawPartCommand
+
 #End Region    ' Commands
 
 End Class

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/BeamMillingParameterExpanderV.xaml

@@ -1,384 +1,368 @@
 <UserControl x:Class="BeamMillingParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
-    <UserControl.Resources>
-        <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
-        <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-        <sys:Int32 x:Key="Invert">0</sys:Int32>
-        <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-        <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-        <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-        <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-        <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-        <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-        <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-        <sys:Int32 x:Key="StepType">8</sys:Int32>
-        <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-        <sys:Int32 x:Key="Speed">10</sys:Int32>
-        <sys:Int32 x:Key="Feed">11</sys:Int32>
-        <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-        <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-        <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-        <sys:Int32 x:Key="OffSr">15</sys:Int32>
-        <sys:Int32 x:Key="OffSl">16</sys:Int32>
-        <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-        <sys:Int32 x:Key="Approx">18</sys:Int32>
-        <sys:Int32 x:Key="StartPos">19</sys:Int32>
-        <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-        <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-        <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-        <sys:Int32 x:Key="StepPar">23</sys:Int32>
-        <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-        <sys:Int32 x:Key="TabLen">25</sys:Int32>
-        <sys:Int32 x:Key="TabDist">26</sys:Int32>
-        <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-        <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-        <sys:Int32 x:Key="LiTang">29</sys:Int32>
-        <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-        <sys:Int32 x:Key="LiElev">31</sys:Int32>
-        <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-        <sys:Int32 x:Key="LoTang">33</sys:Int32>
-        <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-        <sys:Int32 x:Key="LoElev">35</sys:Int32>
-        <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-        <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-        <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-        <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-        <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-        <sys:Int32 x:Key="SideStep">41</sys:Int32>
-        <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-        <sys:Int32 x:Key="NamePar">43</sys:Int32>
-        <sys:Int32 x:Key="Tool">44</sys:Int32>
-        <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-        <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-        <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-        <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-        <sys:Int32 x:Key="SubType">49</sys:Int32>
-        <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-        <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-        <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-        <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-        <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-        <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-        <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-        <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-        <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-        <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-        <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-        <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
-    </UserControl.Resources>
+   <UserControl.Resources>
+      <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
+   </UserControl.Resources>
 
-    <StackPanel Name="OperationParametersStackPanel">
-        <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+   <StackPanel Name="OperationParametersStackPanel">
+      <StackPanel Name="OperationFirstParametersStackPanel">
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
-            <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertTxBl}" 
-                                     ParamChBx="{Binding Path=Invert,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-            <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding WorkSideTxBl}" 
-                                  ParamCmBxList="{Binding Path=WorkSideList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedWorkSide}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
          </UniformGrid>
-        </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartPosTxBl}" 
-                               ParamTxBx="{Binding Path=StartPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OverLapTxBl}" 
-                               ParamTxBx="{Binding Path=OverLap,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding StepTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=StepTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedStepType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StepParTxBl}" 
-                               ParamTxBx="{Binding Path=StepPar,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSrTxBl}" 
-                               ParamTxBx="{Binding Path=OffSr,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSlTxBl}" 
-                               ParamTxBx="{Binding Path=OffSl,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertTxBl}" 
+                                 ParamChBx="{Binding Path=Invert,
+                                                     UpdateSourceTrigger=PropertyChanged,
+                                                     ValidatesOnDataErrors=True}" 
+                                 Style="{DynamicResource CheckParamV_Margin}"/>
+         <EgtWPFLib5:ComboParamV ParamTxBl="{Binding WorkSideTxBl}" 
+                                 ParamCmBxList="{Binding Path=WorkSideList,
+                                                         UpdateSourceTrigger=PropertyChanged,
+                                                         ValidatesOnDataErrors=True}"
+                                 ParamCmBxSelIndex="{Binding Path=SelectedWorkSide}" 
+                                 Style="{DynamicResource ComboParamV_Margin}"/>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
+         </UniformGrid>
+      </StackPanel>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OverLapTxBl}" 
+                                        ParamTxBx="{Binding Path=OverLap,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding StepTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=StepTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedStepType}"
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StepParTxBl}" 
+                                        ParamTxBx="{Binding Path=StepPar,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSrTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSr,
+                                         UpdateSourceTrigger=PropertyChanged,
+                                         ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSlTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSl,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertToolDirTxBl}" 
-                                     ParamChBx="{Binding Path=InvertToolDir,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding FaceUseTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=FaceUseTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedFaceUseType}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertToolDirTxBl}" 
+                                          ParamChBx="{Binding Path=InvertToolDir,
+                                                              UpdateSourceTrigger=PropertyChanged,
+                                                              ValidatesOnDataErrors=True}" 
+                                          Style="{DynamicResource CheckParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding FaceUseTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=FaceUseTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedFaceUseType}" 
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding LeadInTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=LeadInTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedLeadInType}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartAddLenTxBl}" 
-                               ParamTxBx="{Binding Path=StartAddLen,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LiTangTxBl}" 
-                                     ParamTxBx="{Binding Path=LiTang,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LiPerpTxBl}" 
-                                     ParamTxBx="{Binding Path=LiPerp,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LiElevTxBl}" 
-                                     ParamTxBx="{Binding Path=LiElev,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LiCompLenTxBl}" 
-                                     ParamTxBx="{Binding Path=LiCompLen,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding LeadInTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=LeadInTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedLeadInType}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartAddLenTxBl}" 
+                                        ParamTxBx="{Binding Path=StartAddLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LiTangTxBl}" 
+                                        ParamTxBx="{Binding Path=LiTang,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LiPerpTxBl}" 
+                                        ParamTxBx="{Binding Path=LiPerp,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LiElevTxBl}" 
+                                        ParamTxBx="{Binding Path=LiElev,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LiCompLenTxBl}" 
+                                        ParamTxBx="{Binding Path=LiCompLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding LeadOutTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=LeadOutTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedLeadOutType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding EndAddLenTxBl}" 
-                               ParamTxBx="{Binding Path=EndAddLen,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LoTangTxBl}" 
-                                     ParamTxBx="{Binding Path=LoTang,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LoPerpTxBl}" 
-                                     ParamTxBx="{Binding Path=LoPerp,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LoElevTxBl}" 
-                                     ParamTxBx="{Binding Path=LoElev,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LoCompLenTxBl}" 
-                                     ParamTxBx="{Binding Path=LoCompLen,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding LeadOutTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=LeadOutTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedLeadOutType}"
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndAddLenTxBl}" 
+                                        ParamTxBx="{Binding Path=EndAddLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LoTangTxBl}" 
+                                        ParamTxBx="{Binding Path=LoTang,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LoPerpTxBl}" 
+                                        ParamTxBx="{Binding Path=LoPerp,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LoElevTxBl}" 
+                                        ParamTxBx="{Binding Path=LoElev,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LoCompLenTxBl}" 
+                                        ParamTxBx="{Binding Path=LoCompLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding LeaveTabTxBl}" 
-                                     ParamChBx="{Binding Path=LeaveTab,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-                </Expander.Header>
-                <StackPanel Margin="2">
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding TabLenTxBl}" 
-                                     ParamTxBx="{Binding Path=TabLen,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        ParamErrorMsg="{Binding Path=TabLenErrorMsg}"
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding TabHeightTxBl}" 
-                                     ParamTxBx="{Binding Path=TabHeight,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        ParamErrorMsg="{Binding Path=TabHeightErrorMsg}"
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding TabAngleTxBl}" 
-                                     ParamTxBx="{Binding Path=TabAngle,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        ParamErrorMsg="{Binding Path=TabAngleErrorMsg}"
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding TabDistTxBl}" 
-                                     ParamTxBx="{Binding Path=TabDist,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                        ParamErrorMsg="{Binding Path=TabDistErrorMsg}"
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding TabMinTxBl}" 
-                                     ParamTxBx="{Binding Path=TabMin,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                        ParamErrorMsg="{Binding Path=TabMinErrorMsg}"
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding TabMaxTxBl}" 
-                                     ParamTxBx="{Binding Path=TabMax,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                        ParamErrorMsg="{Binding Path=TabMaxErrorMsg}"
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <EgtWPFLib5:CheckParamV ParamTxBl="{Binding LeaveTabTxBl}" 
+                                       ParamChBx="{Binding Path=LeaveTab,
+                                                           UpdateSourceTrigger=PropertyChanged,
+                                                           ValidatesOnDataErrors=True}" 
+                                       Style="{DynamicResource CheckParamV_Margin}"/>
+            </Expander.Header>
+            <StackPanel Margin="2">
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TabLenTxBl}" 
+                                        ParamTxBx="{Binding Path=TabLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        ParamErrorMsg="{Binding Path=TabLenErrorMsg}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TabHeightTxBl}" 
+                                        ParamTxBx="{Binding Path=TabHeight,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        ParamErrorMsg="{Binding Path=TabHeightErrorMsg}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TabAngleTxBl}" 
+                                        ParamTxBx="{Binding Path=TabAngle,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        ParamErrorMsg="{Binding Path=TabAngleErrorMsg}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TabDistTxBl}" 
+                                        ParamTxBx="{Binding Path=TabDist,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}"
+                                        ParamErrorMsg="{Binding Path=TabDistErrorMsg}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TabMinTxBl}" 
+                                        ParamTxBx="{Binding Path=TabMin,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}"
+                                        ParamErrorMsg="{Binding Path=TabMinErrorMsg}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TabMaxTxBl}" 
+                                        ParamTxBx="{Binding Path=TabMax,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}"
+                                        ParamErrorMsg="{Binding Path=TabMaxErrorMsg}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding FeedTxBl}" 
-                          ParamTxBx="{Binding Path=Feed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding TipFeedTxBl}" 
-                          ParamTxBx="{Binding Path=TipFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding StartFeedTxBl}" 
-                          ParamTxBx="{Binding Path=StartFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding EndFeedTxBl}" 
-                          ParamTxBx="{Binding Path=EndFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/BeamMillingParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class BeamMillingParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class BeamMillingParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class BeamMillingParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class BeamMillingParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/ChiselingParameterExpanderV.xaml

@@ -1,239 +1,243 @@
 <UserControl x:Class="ChiselingParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">
       <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
-            <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertTxBl}" 
-                                     ParamChBx="{Binding Path=Invert,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-            <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding WorkSideTxBl}" 
-                                  ParamCmBxList="{Binding Path=WorkSideList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedWorkSide}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
+         </UniformGrid>
+         <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertTxBl}" 
+                                 ParamChBx="{Binding Path=Invert,
+                                                     UpdateSourceTrigger=PropertyChanged,
+                                                     ValidatesOnDataErrors=True}" 
+                                 Style="{DynamicResource CheckParamV_Margin}"/>
+         <EgtWPFLib5:ComboParamV ParamTxBl="{Binding WorkSideTxBl}" 
+                                 ParamCmBxList="{Binding Path=WorkSideList,
+                                                         UpdateSourceTrigger=PropertyChanged,
+                                                         ValidatesOnDataErrors=True}"
+                                 ParamCmBxSelIndex="{Binding Path=SelectedWorkSide}" 
+                                 Style="{DynamicResource ComboParamV_Margin}"/>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
          </UniformGrid>
       </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartPosTxBl}" 
-                               ParamTxBx="{Binding Path=StartPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding ReturnPosTxBl}" 
-                               ParamTxBx="{Binding Path=ReturnPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StepParTxBl}" 
-                               ParamTxBx="{Binding Path=StepPar,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSrTxBl}" 
-                               ParamTxBx="{Binding Path=OffSr,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSlTxBl}" 
-                               ParamTxBx="{Binding Path=OffSl,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding ReturnPosTxBl}" 
+                                        ParamTxBx="{Binding Path=ReturnPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StepParTxBl}" 
+                                        ParamTxBx="{Binding Path=StepPar,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSrTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSr,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSlTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSl,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertToolDirTxBl}" 
-                                     ParamChBx="{Binding Path=InvertToolDir,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertToolDirTxBl}" 
+                                          ParamChBx="{Binding Path=InvertToolDir,
+                                                              UpdateSourceTrigger=PropertyChanged,
+                                                              ValidatesOnDataErrors=True}" 
+                                          Style="{DynamicResource CheckParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
 
-            <Expander Header="{Binding LeadOutTypeMsg}" Name="LeadOutType"
-                Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding EndAddLenTxBl}" 
-                               ParamTxBx="{Binding Path=EndAddLen,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Header="{Binding LeadOutTypeMsg}" Name="LeadOutType"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndAddLenTxBl}" 
+                                        ParamTxBx="{Binding Path=EndAddLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                         UpdateSourceTrigger=PropertyChanged,
+                                         ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding FeedTxBl}" 
-                          ParamTxBx="{Binding Path=Feed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding TipFeedTxBl}" 
-                          ParamTxBx="{Binding Path=TipFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding StartFeedTxBl}" 
-                          ParamTxBx="{Binding Path=StartFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding EndFeedTxBl}" 
-                          ParamTxBx="{Binding Path=EndFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
-   
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/ChiselingParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class ChiselingParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class ChiselingParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class ChiselingParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class ChiselingParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/FiveAxisMachinigParameterExpanderV.xaml

@@ -0,0 +1,222 @@
+<UserControl x:Class="FiveAxisMachinigParameterExpanderV"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+   
+   <UserControl.Resources>
+      <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
+   </UserControl.Resources>
+
+   <StackPanel Name="OperationParametersStackPanel">
+      <StackPanel Name="OperationFirstParametersStackPanel">
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+                                                  Converter={StaticResource DepthUnitConverter}}"
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
+         </UniformGrid>
+         <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertTxBl}" 
+                                 ParamChBx="{Binding Path=Invert,
+                                                     UpdateSourceTrigger=PropertyChanged,
+                                                     ValidatesOnDataErrors=True}" 
+                                 Style="{DynamicResource CheckParamV_Margin}"/>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
+         </UniformGrid>
+      </StackPanel>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SubTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=SubTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedSubType}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSrTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSr,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSlTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSl,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertToolDirTxBl}" 
+                                          ParamChBx="{Binding Path=InvertToolDir,
+                                                              UpdateSourceTrigger=PropertyChanged,
+                                                              ValidatesOnDataErrors=True}" 
+                                          Style="{DynamicResource CheckParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
+
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        ParamErrorMsg="{Binding Path=SpeedErrorMsg}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
+
+</UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/FiveAxisMachinigParameterExpanderV.xaml.vb

@@ -0,0 +1,83 @@
+Imports EgtWPFLib5.EgtFloating
+
+Public Class FiveAxisMachinigParameterExpanderV
+
+   Private m_RightTrayV As RightTrayV
+   Private EgtFloatingPanel As EgtFloatingPanel
+
+   Private m_bFirst As Boolean = True
+
+   Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
+      If m_bFirst Then
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
+         EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
+         Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
+         m_bFirst = False
+      End If
+      CalculateOperationParametersStackPanelMaxHeight()
+   End Sub
+
+   Dim m_bSizeChanging As Boolean = False
+
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+      If m_bSizeChanging Then Return
+      m_bSizeChanging = True
+      CalculateOperationParametersStackPanelMaxHeight()
+      m_bSizeChanging = False
+   End Sub
+
+   Dim PanelHeight As Double = 0
+   Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
+
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
+   Private Sub CalculateOperationParametersStackPanelMaxHeight()
+      Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
+      Dim OpenedExpanderList As New List(Of Boolean)
+      For Index = 0 To AutomaticCloseExpanderStackPanel.Children.Count - 1
+         If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then
+            Dim IndexedExpander As Expander = DirectCast(AutomaticCloseExpanderStackPanel.Children(Index), Expander)
+            If IndexedExpander.IsExpanded Then
+               OpenedExpanderList.Add(True)
+               IndexedExpander.IsExpanded = False
+               Dim CurrExpanderContent As FrameworkElement = DirectCast(IndexedExpander.Content, FrameworkElement)
+               CurrExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
+               AutomaticCloseExpanderStackPanelHeight -= CurrExpanderContent.DesiredSize.Height
+               ' Sottraggo anche i padding
+               AutomaticCloseExpanderStackPanelHeight -= (IndexedExpander.Padding.Top + IndexedExpander.Padding.Bottom)
+            Else
+               OpenedExpanderList.Add(False)
+            End If
+         Else
+            OpenedExpanderList.Add(False)
+         End If
+      Next
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
+      AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
+      For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
+         If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then
+            Dim IndexedExpander As Expander = DirectCast(AutomaticCloseExpanderStackPanel.Children(Index), Expander)
+            If OpenedExpanderList(Index) Then
+               IndexedExpander.IsExpanded = True
+            End If
+         End If
+      Next
+   End Sub
+
+   ' Funzione che permette di trovare il primo contenitore di tipo T di un elemento grafico dependencyObject 
+   Public Function FindAncestor(Of T As Class)(dependencyObject As DependencyObject) As T
+      Dim target As DependencyObject = dependencyObject
+      Do
+         target = LogicalTreeHelper.GetParent(target)
+      Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
+      If IsNothing(target) Then
+         target = dependencyObject
+         Do
+            target = VisualTreeHelper.GetParent(target)
+         Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
+      End If
+      Return TryCast(target, T)
+   End Function
+
+End Class

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/GenMachiningParameterExpanderV.xaml

@@ -1,216 +1,222 @@
 <UserControl x:Class="GenMachiningParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">
       <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
-            <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertTxBl}" 
-                                     ParamChBx="{Binding Path=Invert,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
+         </UniformGrid>
+         <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertTxBl}" 
+                                 ParamChBx="{Binding Path=Invert,
+                                                     UpdateSourceTrigger=PropertyChanged,
+                                                     ValidatesOnDataErrors=True}" 
+                                 Style="{DynamicResource CheckParamV_Margin}"/>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
          </UniformGrid>
       </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartPosTxBl}" 
-                               ParamTxBx="{Binding Path=StartPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                               ParamTxBl="{Binding SubTypeTxBl}" 
-                               ParamCmBxList="{Binding Path=SubTypeList,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}"
-                               ParamCmBxSelIndex="{Binding Path=SelectedSubType}" 
-                               Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSrTxBl}" 
-                               ParamTxBx="{Binding Path=OffSr,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSlTxBl}" 
-                               ParamTxBx="{Binding Path=OffSl,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SubTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=SubTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedSubType}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSrTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSr,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSlTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSl,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:CheckParamV 
-                               ParamTxBl="{Binding InvertToolDirTxBl}" 
-                               ParamChBx="{Binding Path=InvertToolDir,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource CheckParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertToolDirTxBl}" 
+                                          ParamChBx="{Binding Path=InvertToolDir,
+                                                              UpdateSourceTrigger=PropertyChanged,
+                                                              ValidatesOnDataErrors=True}" 
+                                          Style="{DynamicResource CheckParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
+
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        ParamErrorMsg="{Binding Path=SpeedErrorMsg}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               ParamErrorMsg="{Binding Path=SpeedErrorMsg}"
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding FeedTxBl}" 
-                          ParamTxBx="{Binding Path=Feed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding TipFeedTxBl}" 
-                          ParamTxBx="{Binding Path=TipFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding StartFeedTxBl}" 
-                          ParamTxBx="{Binding Path=StartFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding EndFeedTxBl}" 
-                          ParamTxBx="{Binding Path=EndFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
-   
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/GenMachiningParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class GenMachiningParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class GenMachiningParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class GenMachiningParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class GenMachiningParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderV.xaml

@@ -1,98 +1,42 @@
 <UserControl x:Class="MachiningParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
-      <sys:Int32 x:Key="TabMax">62</sys:Int32>
-      <sys:Int32 x:Key="TabMin">63</sys:Int32>
-    </UserControl.Resources>
+   </UserControl.Resources>
 
-    <StackPanel>
-        <ContentControl Content="{Binding Path=ParamExpanderPageV}" />
+   <StackPanel>
+      <ContentControl Content="{Binding Path=ParamExpanderPageV}" />
 
-        <Button Name="ApplyMachBtn" Height="30" Content="{Binding UpdateMachiningBtnMsg}"
-             Command="{Binding UpdateMachiningCommand}" Background="{Binding UpdateMachiningBtn_Background}"/>
-        <Grid>
-            <Grid.ColumnDefinitions>
-                <ColumnDefinition Width="2*"/>
-                <ColumnDefinition Width="1*"/>
-                <ColumnDefinition Width="1*"/>
-            </Grid.ColumnDefinitions>
-            <ToggleButton Name="ViewToolBtn" Grid.Column="0" Height="30" Content="{Binding ViewToolBtnMsg}"
-                IsChecked="{Binding ViewTool}" />
-            <Button Name="NextStepToolBtn" Grid.Column="1" Height="30" Content="{Binding NextStepToolBtnMsg}"
-                Command="{Binding NextStepToolCommand}" IsEnabled="{Binding IsChecked, ElementName=ViewToolBtn}"/>
-            <Button Name="PrevStepToolBtn" Grid.Column="2" Height="30" Content="{Binding PrevStepToolBtnMsg}"
-                Command="{Binding PrevStepToolCommand}" IsEnabled="{Binding IsChecked, ElementName=ViewToolBtn}"/>
-        </Grid>
-    </StackPanel>
+      <Button Name="ApplyMachBtn" Height="30" Content="{Binding UpdateMachiningBtnMsg}"
+              Command="{Binding UpdateMachiningCommand}" Background="{Binding UpdateMachiningBtn_Background}"/>
+      <Grid>
+         <Grid.RowDefinitions>
+            <RowDefinition Height="1*"/>
+            <RowDefinition Height="Auto"/>
+         </Grid.RowDefinitions>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="1*"/>
+         </Grid.ColumnDefinitions>
+
+         <CheckBox Name="ViewToolBtn"
+                   Content="{Binding ViewToolBtnMsg}"
+                   IsChecked="{Binding ViewTool}"
+                   Style="{StaticResource ViewTool_CheckBox}"/>
+
+         <Slider Grid.Row="1" 
+                 x:Name="SliderV"
+                 Value="{Binding SliderValue}"
+                 IsEnabled="{Binding IsChecked, ElementName=ViewToolBtn}"
+                 TickFrequency="{Binding SliderTick}"
+                 Minimum="1"
+                 Maximum="{Binding SliderScale}"
+                 IsSnapToTickEnabled="False"
+                 Style="{StaticResource SliderValue_Slider}"/>
+
+      </Grid>
+   </StackPanel>
 
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderV.xaml.vb

@@ -1,83 +1,21 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
-
 Public Class MachiningParameterExpanderV
 
-   'Private EgtFloatingTray As EgtFloatingTray
-   'Private EgtFloatingPanel As EgtFloatingPanel
+   Sub New()
 
-   'Private m_bFirst As Boolean = True
+      ' La chiamata è richiesta dalla finestra di progettazione.
+      InitializeComponent()
 
-   'Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
-   '   If m_bFirst Then
-   '      EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
-   '      EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-   '      AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-   '      PanelHeight = EgtFloatingPanel.ActualHeight
-   '      Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
-   '      m_bFirst = False
-   '   End If
-   '   CalculateOperationParametersStackPanelMaxHeight()
-   'End Sub
+      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
 
-   'Dim m_bSizeChanging As Boolean = False
+      ' Associo il gestore evento m_EventFocusOnSlider all'evento generato da FocusOnSlider
+      AddHandler Map.refMachiningParameterExpanderVM.m_EventFocusOnSlider, AddressOf FocusOnSlider
+   End Sub
 
-   'Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
-   '   If m_bSizeChanging Then Return
-   '   m_bSizeChanging = True
-   '   CalculateOperationParametersStackPanelMaxHeight()
-   '   m_bSizeChanging = False
-   'End Sub
-
-   'Dim PanelHeight As Double = 0
-   'Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
-
-   'Private Sub CalculateOperationParametersStackPanelMaxHeight()
-   '   Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
-   '   Dim OpenedExpanderList As New List(Of Boolean)
-   '   For Index = 0 To AutomaticCloseExpanderStackPanel.Children.Count - 1
-   '      If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then
-   '         Dim IndexedExpander As Expander = DirectCast(AutomaticCloseExpanderStackPanel.Children(Index), Expander)
-   '         If IndexedExpander.IsExpanded Then
-   '            OpenedExpanderList.Add(True)
-   '            IndexedExpander.IsExpanded = False
-   '            Dim CurrExpanderContent As FrameworkElement = DirectCast(IndexedExpander.Content, FrameworkElement)
-   '            CurrExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '            AutomaticCloseExpanderStackPanelHeight -= CurrExpanderContent.DesiredSize.Height
-   '            ' Sottraggo anche i padding
-   '            AutomaticCloseExpanderStackPanelHeight -= (IndexedExpander.Padding.Top + IndexedExpander.Padding.Bottom)
-   '         Else
-   '            OpenedExpanderList.Add(False)
-   '         End If
-   '      Else
-   '         OpenedExpanderList.Add(False)
-   '      End If
-   '   Next
-   '   Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
-   '   AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
-   '   For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
-   '      If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then
-   '         Dim IndexedExpander As Expander = DirectCast(AutomaticCloseExpanderStackPanel.Children(Index), Expander)
-   '         If OpenedExpanderList(Index) Then
-   '            IndexedExpander.IsExpanded = True
-   '         End If
-   '      End If
-   '   Next
-   'End Sub
-
-   '' Funzione che permette di trovare il primo contenitore di tipo T di un elemento grafico dependencyObject 
-   'Public Function FindAncestor(Of T As Class)(dependencyObject As DependencyObject) As T
-   '   Dim target As DependencyObject = dependencyObject
-   '   Do
-   '      target = LogicalTreeHelper.GetParent(target)
-   '   Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
-   '   If IsNothing(target) Then
-   '      target = dependencyObject
-   '      Do
-   '         target = VisualTreeHelper.GetParent(target)
-   '      Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
-   '   End If
-   '   Return TryCast(target, T)
-   'End Function
+   ''' <summary>
+   ''' Funzione che mette il focus allo slider
+   ''' </summary>
+   Friend Sub FocusOnSlider()
+      Me.SliderV.Focus()
+   End Sub
 
 End Class

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderVM.vb

@@ -1,11 +1,14 @@
-Imports System.ComponentModel
-Imports System.Collections.ObjectModel
-Imports EgtUILib
+Imports EgtUILib
 Imports EgtWPFLib5
 
 Public Class MachiningParameterExpanderVM
    Inherits VMBase
 
+   ''' <summary>
+   ''' Evento che permette di mettere il focus sullo slider
+   ''' </summary>
+   Friend Event m_EventFocusOnSlider()
+
    Private WithEvents m_CurrOperation As MachiningTreeViewItem
    Public Property CurrOperation As MachiningTreeViewItem
       Get
@@ -50,7 +53,6 @@ Public Class MachiningParameterExpanderVM
    End Property
 
    Private m_bPreviewTool As Boolean = False
-   Private m_nPtEntId As Integer = GDB_ID.NULL
    Public Property ViewTool As Boolean
       Get
          Return m_bPreviewTool
@@ -58,16 +60,80 @@ Public Class MachiningParameterExpanderVM
       Set(value As Boolean)
          If value Then
             EgtPreparePreviewMachiningTool()
-            m_nPtEntId = EgtPreviewMachiningTool(GDB_ID.NULL, MCH_PTM.AFTER)
             m_bPreviewTool = True
+            ResetSliderValue()
          Else
             EgtRemovePreviewMachiningTool()
             m_bPreviewTool = False
+            ResetSliderValue()
          End If
          EgtDraw()
-         NotifyPropertyChanged("ViewTool")
       End Set
    End Property
+   Friend Sub SetViewTool(value As Boolean)
+      ViewTool = value
+      NotifyPropertyChanged(NameOf(ViewTool))
+   End Sub
+
+   ' Slider per muovere l'utensile in aggiunta ai pulsanti indietro e avanti
+   Private m_SliderScale As Integer = 100
+   Public ReadOnly Property SliderScale As Integer
+      Get
+         Return m_SliderScale
+      End Get
+   End Property
+   Friend Sub SetSliderScale(value As Integer)
+      m_SliderScale = Math.Max(value, 1)
+      If m_SliderScale <= 10 Then
+         m_SliderTick = 1
+      Else
+         m_SliderTick = CInt(m_SliderScale / 10)
+      End If
+      NotifyPropertyChanged(NameOf(SliderScale))
+      NotifyPropertyChanged(NameOf(SliderTick))
+   End Sub
+
+   Private m_SliderTick As Integer = 10
+   Public ReadOnly Property SliderTick As Integer
+      Get
+         Return m_SliderTick
+      End Get
+   End Property
+
+   Private m_nPtEntId As Integer = GDB_ID.NULL
+   Private m_SliderValue As Integer = 1
+   Public Property SliderValue As Integer
+      Get
+         Return m_SliderValue
+      End Get
+      Set(value As Integer)
+         If m_bPreviewTool Then
+            Dim nId As Integer = EgtPreviewMachiningTool(m_nPtEntId, value - m_SliderValue)
+            If nId <> GDB_ID.NULL Then m_nPtEntId = nId
+            EgtDraw()
+         End If
+         m_SliderValue = value
+      End Set
+   End Property
+   Friend Sub ResetSliderValue()
+      If m_bPreviewTool Then
+         m_nPtEntId = EgtPreviewMachiningTool(GDB_ID.NULL, MCH_PTM.AFTER)
+      Else
+         m_nPtEntId = GDB_ID.NULL
+      End If
+      m_SliderValue = 1
+      NotifyPropertyChanged(NameOf(SliderValue))
+   End Sub
+   Friend Sub SetSliderValue(value As Integer)
+      Dim nOldSliderValue As Integer = m_SliderValue
+      m_SliderValue = Math.Min( Math.Max( m_SliderValue + value, 1), m_SliderScale)
+      Dim nStep As Integer = m_SliderValue - nOldSliderValue
+      If nStep = 0 Then Return
+      Dim nId As Integer = EgtPreviewMachiningTool(m_nPtEntId, nStep)
+      If nId <> GDB_ID.NULL Then m_nPtEntId = nId
+      EgtDraw()
+      NotifyPropertyChanged(NameOf(SliderValue))
+   End Sub
 
    Dim WoodDrillParamExpanderV As WoodDrillingParameterExpanderV
    Dim WoodSawParamExpanderV As WoodSawingParameterExpanderV
@@ -84,6 +150,8 @@ Public Class MachiningParameterExpanderVM
    Dim StoneDrillParamExpanderV As StoneDrillingParameterExpanderV
    Dim SurfFinishParamExpanderV As SurfFinishingParameterExpanderV
    Dim WjParamExpanderV As WaterjettingParameterExpanderV
+   Dim FiveAxExpanderV As FiveAxisMachinigParameterExpanderV
+   Dim SurfRoughExpanderV As SurfRoughingParameterExpanderV
 
    Private Sub Dummy()
 
@@ -106,24 +174,11 @@ Public Class MachiningParameterExpanderVM
          EgtGetMachiningParam(MCH_MP.TYPE, nType)
          m_CurrOperation = New MachiningTreeViewItem(sName, DirectCast(nType, MCH_MY))
 
-         WoodDrillParamExpanderV.DataContext = Nothing
-         WoodSawParamExpanderV.DataContext = Nothing
-         WoodMillParamExpanderV.DataContext = Nothing
-         BeamMillParamExpanderV.DataContext = Nothing
-         PocketParamExpanderV.DataContext = Nothing
-         MortiseParamExpanderV.DataContext = Nothing
-         GenMachinParamExpanderV.DataContext = Nothing
-         ChiselParamExpanderV.DataContext = Nothing
-         StoneSawParamExpanderV.DataContext = Nothing
-         StoneSawFinishParamExpanderV.DataContext = Nothing
-         StoneSawRoughParamExpanderV.DataContext = Nothing
-         StoneMillParamExpanderV.DataContext = Nothing
-         StoneDrillParamExpanderV.DataContext = Nothing
-         SurfFinishParamExpanderV.DataContext = Nothing
-         WjParamExpanderV.DataContext = Nothing
-
          m_CurrOperation.ReadOperationParam()
 
+         ' Riferimento a operazione selezionata 
+         EgtWPFLib5.MachiningTreeViewItem.sh_SelMach = m_CurrOperation
+
          IsModified(False)
          ErrorOnOperation(False)
 
@@ -136,59 +191,91 @@ Public Class MachiningParameterExpanderVM
          Select Case nType
             Case MCH_OY.DRILLING
                If MatType = MaterialType.STONE Then
+                  If IsNothing(StoneDrillParamExpanderV) Then StoneDrillParamExpanderV = New StoneDrillingParameterExpanderV
                   StoneDrillParamExpanderV.DataContext = m_CurrOperation
                   Return StoneDrillParamExpanderV
                Else
+                  If IsNothing(WoodDrillParamExpanderV) Then WoodDrillParamExpanderV = New WoodDrillingParameterExpanderV
                   WoodDrillParamExpanderV.DataContext = m_CurrOperation
                   Return WoodDrillParamExpanderV
                End If
             Case MCH_OY.SAWING
                If MatType = MaterialType.STONE Then
+                  If IsNothing(StoneSawParamExpanderV) Then StoneSawParamExpanderV = New StoneSawingParameterExpanderV
                   StoneSawParamExpanderV.DataContext = m_CurrOperation
                   Return StoneSawParamExpanderV
                Else
+                  If IsNothing(WoodSawParamExpanderV) Then WoodSawParamExpanderV = New WoodSawingParameterExpanderV
                   WoodSawParamExpanderV.DataContext = m_CurrOperation
                   Return WoodSawParamExpanderV
                End If
             Case MCH_OY.MILLING
                If MatType = MaterialType.BEAM Then
+                  If IsNothing(BeamMillParamExpanderV) Then BeamMillParamExpanderV = New BeamMillingParameterExpanderV
                   BeamMillParamExpanderV.DataContext = m_CurrOperation
                   Return BeamMillParamExpanderV
                ElseIf MatType = MaterialType.STONE Then
+                  If IsNothing(StoneMillParamExpanderV) Then StoneMillParamExpanderV = New StoneMillingParameterExpanderV
                   StoneMillParamExpanderV.DataContext = m_CurrOperation
                   Return StoneMillParamExpanderV
                Else
+                  If IsNothing(WoodMillParamExpanderV) Then WoodMillParamExpanderV = New WoodMillingParameterExpanderV
                   WoodMillParamExpanderV.DataContext = m_CurrOperation
                   Return WoodMillParamExpanderV
                End If
             Case MCH_OY.SAWROUGHING
+               If IsNothing(StoneSawRoughParamExpanderV) Then StoneSawRoughParamExpanderV = New StoneSawRoughingParameterExpanderV
                StoneSawRoughParamExpanderV.DataContext = m_CurrOperation
                Return StoneSawRoughParamExpanderV
             Case MCH_OY.SAWFINISHING
+               If IsNothing(StoneSawFinishParamExpanderV) Then StoneSawFinishParamExpanderV = New StoneSawFinishingParameterExpanderV
                StoneSawFinishParamExpanderV.DataContext = m_CurrOperation
                Return StoneSawFinishParamExpanderV
             Case MCH_OY.POCKETING
+               If MatType = MaterialType.STONE Or MatType = MaterialType.STONE5 Then
+                  ' se macchina di tipo STONE ricavo il tipo di utensile
+                  Dim sMachiningToolName = String.Empty
+                  EgtMdbSetCurrMachining(sName)
+                  EgtMdbGetCurrMachiningParam(MCH_MP.TOOL, sMachiningToolName)
+                  EgtTdbSetCurrTool(sMachiningToolName)
+                  Dim dValue As Double = 0
+                  Dim nToolType As Integer
+                  EgtTdbGetCurrToolParam(MCH_TP.TYPE, nToolType)
+                  ' se utensile di tipo POLISHING rendo visibili i campi sugli epicicli
+                  If nToolType = MCH_TY.MILL_POLISHING Then m_CurrOperation.Epicycles_Visibility = Visibility.Visible
+               End If
+               If IsNothing(PocketParamExpanderV) Then PocketParamExpanderV = New PocketingParameterExpanderV
                PocketParamExpanderV.DataContext = m_CurrOperation
                Return PocketParamExpanderV
             Case MCH_OY.MORTISING
+               If IsNothing(MortiseParamExpanderV) Then MortiseParamExpanderV = New MortisingParameterExpanderV
                MortiseParamExpanderV.DataContext = m_CurrOperation
                Return MortiseParamExpanderV
             Case MCH_OY.GENMACHINING
+               If IsNothing(GenMachinParamExpanderV) Then GenMachinParamExpanderV = New GenMachiningParameterExpanderV
                GenMachinParamExpanderV.DataContext = m_CurrOperation
                Return GenMachinParamExpanderV
             Case MCH_OY.CHISELING
+               If IsNothing(ChiselParamExpanderV) Then ChiselParamExpanderV = New ChiselingParameterExpanderV
                ChiselParamExpanderV.DataContext = m_CurrOperation
                Return ChiselParamExpanderV
             Case MCH_OY.SURFFINISHING
+               If IsNothing(SurfFinishParamExpanderV) Then SurfFinishParamExpanderV = New SurfFinishingParameterExpanderV
                SurfFinishParamExpanderV.DataContext = m_CurrOperation
                Return SurfFinishParamExpanderV
             Case MCH_OY.WATERJETTING
+               If IsNothing(WjParamExpanderV) Then WjParamExpanderV = New WaterjettingParameterExpanderV
                WjParamExpanderV.DataContext = m_CurrOperation
                Return WjParamExpanderV
+            Case MCH_OY.FIVEAXISMILLING
+               If IsNothing(FiveAxExpanderV) Then FiveAxExpanderV = New FiveAxisMachinigParameterExpanderV
+               FiveAxExpanderV.DataContext = m_CurrOperation
+               Return FiveAxExpanderV
+            Case MCH_OY.SURFROUGHING
+               If IsNothing(SurfRoughExpanderV) Then SurfRoughExpanderV = New SurfRoughingParameterExpanderV
+               SurfRoughExpanderV.DataContext = m_CurrOperation
+               Return SurfRoughExpanderV
          End Select
-
-         'MachiningParameterExpanderItem.ReadOperationParam()
-
          Return Nothing
       End Get
    End Property
@@ -197,25 +284,25 @@ Public Class MachiningParameterExpanderVM
 
    Public ReadOnly Property UpdateMachiningBtnMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 3)        'Applica Lavorazione
+         Return EgtMsg(5403)     ' Applica Lavorazione
       End Get
    End Property
 
    Public ReadOnly Property ViewToolBtnMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 13)       'Anteprima Utensile
+         Return EgtMsg(5413)     ' Anteprima Utensile
       End Get
    End Property
 
    Public ReadOnly Property NextStepToolBtnMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 14)       'Avanti
+         Return EgtMsg(5414)     ' Avanti
       End Get
    End Property
 
    Public ReadOnly Property PrevStepToolBtnMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 15)       'Indietro
+         Return EgtMsg(5415)     ' Indietro
       End Get
    End Property
 
@@ -230,84 +317,25 @@ Public Class MachiningParameterExpanderVM
 
    Sub New()
       EgtWPFLib5.MachiningDbWindowVM.m_sMachineIniPath = IniFile.m_sCurrMachIniFilePath
-
-      WoodDrillParamExpanderV = New WoodDrillingParameterExpanderV
-      WoodSawParamExpanderV = New WoodSawingParameterExpanderV
-      WoodMillParamExpanderV = New WoodMillingParameterExpanderV
-      BeamMillParamExpanderV = New BeamMillingParameterExpanderV
-      PocketParamExpanderV = New PocketingParameterExpanderV
-      MortiseParamExpanderV = New MortisingParameterExpanderV
-      GenMachinParamExpanderV = New GenMachiningParameterExpanderV
-      ChiselParamExpanderV = New ChiselingParameterExpanderV
-      StoneSawParamExpanderV = New StoneSawingParameterExpanderV
-      StoneSawFinishParamExpanderV = New StoneSawFinishingParameterExpanderV
-      StoneSawRoughParamExpanderV = New StoneSawRoughingParameterExpanderV
-      StoneMillParamExpanderV = New StoneMillingParameterExpanderV
-      StoneDrillParamExpanderV = New StoneDrillingParameterExpanderV
-      SurfFinishParamExpanderV = New SurfFinishingParameterExpanderV
-      WjParamExpanderV = New WaterjettingParameterExpanderV
-
-      NotifyPropertyChanged("ParamExpanderPageV")
+      Map.SetRefMachiningParameterExpanderVM(Me)
+      NotifyPropertyChanged(NameOf(ParamExpanderPageV))
    End Sub
 
 #End Region    ' Constructor
 
+#Region "METHODS"
+
+   ''' <summary>
+   ''' Funzione che attiva l'evento che mette il focus sullo slider
+   ''' </summary>
+   Public Sub FocusSlider()
+      RaiseEvent m_EventFocusOnSlider()
+   End Sub
+
+#End Region    ' Methods
+
 #Region "COMMANDS"
 
-#Region "NextStepToolCommand"
-
-   ''' <summary>
-   ''' Restituisce funzione per ricalcolo lavorazione.
-   ''' </summary>
-   Public ReadOnly Property NextStepToolCommand As ICommand
-      Get
-         If m_cmdNextStepTool Is Nothing Then
-            m_cmdNextStepTool = New RelayCommand(AddressOf NextStepTool)
-         End If
-         Return m_cmdNextStepTool
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Ricalcola una lavorazione.
-   ''' </summary>
-   Public Sub NextStepTool(ByVal param As Object)
-      If m_bPreviewTool Then
-         Dim nNextId = EgtPreviewMachiningTool(m_nPtEntId, MCH_PTM.AFTER)
-         If nNextId <> GDB_ID.NULL Then m_nPtEntId = nNextId
-         EgtDraw()
-      End If
-   End Sub
-
-#End Region    ' NextStepToolCommand
-
-#Region "PrevStepToolCommand"
-
-   ''' <summary>
-   ''' Restituisce funzione per ricalcolo lavorazione.
-   ''' </summary>
-   Public ReadOnly Property PrevStepToolCommand As ICommand
-      Get
-         If m_cmdPrevStepTool Is Nothing Then
-            m_cmdPrevStepTool = New RelayCommand(AddressOf PrevStepTool)
-         End If
-         Return m_cmdPrevStepTool
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Ricalcola una lavorazione.
-   ''' </summary>
-   Public Sub PrevStepTool(ByVal param As Object)
-      If m_bPreviewTool Then
-         Dim nPrevId = EgtPreviewMachiningTool(m_nPtEntId, MCH_PTM.BEFORE)
-         If nPrevId <> GDB_ID.NULL Then m_nPtEntId = nPrevId
-         EgtDraw()
-      End If
-   End Sub
-
-#End Region    ' PrevStepToolCommand
-
 #Region "UpdateMachiningCommand"
 
    ''' <summary>
@@ -334,10 +362,22 @@ Public Class MachiningParameterExpanderVM
                sErrorList += Environment.NewLine + " - " + m_CurrOperation.GetErrorString([property])
             End If
          Next [property]
-         MessageBox.Show(EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+         'MessageBox.Show(EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation) ' La lavorazione non può essere applicata per i seguenti motivi: ATTENZIONE
          Return
       End If
-      Dim bRecalc As Boolean = ((Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift)
+
+      Dim bRecalc As Boolean = False
+      If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
+         bRecalc = True
+      Else
+         ' Controllo se il tipo e' dr o sr o lr bRecalc e' true come quando viene selezionato Shift
+         For Each ItemNote As NoteListBoxItem In m_CurrOperation.NotesList
+            bRecalc = ItemNote.Type.Equals("dr") OrElse ItemNote.Type.Equals("lr") OrElse ItemNote.Type.Equals("sr") OrElse ItemNote.Type.Equals("br")
+            If bRecalc Then Exit For
+         Next
+      End If
+
       ' La modifica di alcuni parametri forza il ricalcolo della geometria
       Dim ModifiedGeometry As Boolean = m_CurrOperation.m_IsModifiedSelectedFaceUseType
       ' aggiorno valori modificati
@@ -402,9 +442,12 @@ Public Class MachiningParameterExpanderVM
             Dim sInfo As String = String.Empty
             EgtGetOutstrokeInfo(sInfo)
             If Not String.IsNullOrEmpty(sInfo) Then sErr &= " " & sInfo
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)  ' ERRORE
          Else
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            ' Errore nel calcolo della lavorazione!
+            'MessageBox.Show(EgtMsg(5345), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5345), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore nel calcolo della lavorazione! ERRORE
          End If
       Else
          If EgtGetMachMgrWarningId(0) <> 0 Then
@@ -415,11 +458,9 @@ Public Class MachiningParameterExpanderVM
          End If
       End If
       ' Restart visualizzazione utensile
-      If m_bPreviewTool Then
-         EgtPreparePreviewMachiningTool()
-         m_nPtEntId = EgtPreviewMachiningTool(GDB_ID.NULL, MCH_PTM.AFTER)
-      End If
-      IsModified(False) ' NotifyPropertyChanged("UpdateMachiningBtn_Background")
+      SetSliderScale( EgtGetPreviewMachiningToolStepCount())
+      SetViewTool(True)
+      IsModified(False)
       ErrorOnOperation(False)
       EgtDraw()
       Map.refProjectVM.EmitTitle()
@@ -431,63 +472,16 @@ Public Class MachiningParameterExpanderVM
 
    Private Sub IsModified(IsModified As Boolean) Handles m_CurrOperation.m_IsModified
       m_CurrOperation_IsModified = IsModified
-      ' NotifyPropertyChanged("CurrOperation_IsModified")
-      NotifyPropertyChanged("UpdateMachiningBtn_Background")
+      NotifyPropertyChanged(NameOf(UpdateMachiningBtn_Background))
    End Sub
 
    Private Sub ErrorOnOperation(ErrorOnOperation As Boolean) Handles m_CurrOperation.m_ErrorOnOperation
       m_CurrOperation_ErrorOnOperation = ErrorOnOperation
-      ' NotifyPropertyChanged("CurrOperation_ErrorOnOperation")
-      NotifyPropertyChanged("UpdateMachiningBtn_Background")
+      NotifyPropertyChanged(NameOf(UpdateMachiningBtn_Background))
    End Sub
 
 End Class
 
-''' <summary>
-''' Class that represent a Converter that use machining type and param type, to set the visibility state of the param type.
-''' </summary>
-Public Class OperationParamVisibilityConverter
-   Implements IValueConverter
-
-   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
-      Select Case CInt(value)
-         Case MCH_OY.NONE
-            Return Visibility.Hidden
-         Case MCH_OY.DISP
-            Return TMDbParamVisibility.OperationDisposition(CInt(parameter))
-         Case MCH_OY.DRILLING
-            Return TMDbParamVisibility.Drilling(CInt(parameter))
-         Case MCH_OY.SAWING
-            Return TMDbParamVisibility.Sawing(CInt(parameter))
-         Case MCH_OY.MILLING
-            Return TMDbParamVisibility.Milling(CInt(parameter))
-         Case MCH_OY.POCKETING
-            Return TMDbParamVisibility.Pocketing(CInt(parameter))
-         Case MCH_OY.MORTISING
-            Return TMDbParamVisibility.Mortising(CInt(parameter))
-         Case MCH_OY.SAWROUGHING
-            Return TMDbParamVisibility.Sawroughing(CInt(parameter))
-         Case MCH_OY.SAWFINISHING
-            Return TMDbParamVisibility.Sawfinishing(CInt(parameter))
-         Case MCH_OY.GENMACHINING
-            Return TMDbParamVisibility.GenMachining(CInt(parameter))
-         Case MCH_OY.CHISELING
-            Return TMDbParamVisibility.Chiseling(CInt(parameter))
-         Case MCH_OY.SURFFINISHING
-            Return TMDbParamVisibility.SurfFinishing(CInt(parameter))
-         Case MCH_OY.WATERJETTING
-            Return TMDbParamVisibility.WaterJetting(CInt(parameter))
-         Case Else
-            Return Visibility.Hidden
-      End Select
-   End Function
-
-   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
-      Throw New NotImplementedException
-   End Function
-
-End Class
-
 ''' <summary>
 ''' Class that represent a Converter that convert mm in inch if necessary for the param depth.
 ''' </summary>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MortisingParameterExpanderV.xaml

@@ -1,259 +1,261 @@
 <UserControl x:Class="MortisingParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">
       <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" 
+                       Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
-            <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertTxBl}" 
-                                     ParamChBx="{Binding Path=Invert,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-            <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding WorkSideTxBl}" 
-                                  ParamCmBxList="{Binding Path=WorkSideList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedWorkSide}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
+         </UniformGrid>
+         <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertTxBl}" 
+                                 ParamChBx="{Binding Path=Invert,
+                                                     UpdateSourceTrigger=PropertyChanged,
+                                                     ValidatesOnDataErrors=True}" 
+                                 Style="{DynamicResource CheckParamV_Margin}"/>
+         <EgtWPFLib5:ComboParamV ParamTxBl="{Binding WorkSideTxBl}" 
+                                 ParamCmBxList="{Binding Path=WorkSideList,
+                                                         UpdateSourceTrigger=PropertyChanged,
+                                                         ValidatesOnDataErrors=True}"
+                                 ParamCmBxSelIndex="{Binding Path=SelectedWorkSide}" 
+                                 Style="{DynamicResource ComboParamV_Margin}"/>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
          </UniformGrid>
       </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartPosTxBl}" 
-                               ParamTxBx="{Binding Path=StartPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding StepTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=StepTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedStepType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StepParTxBl}" 
-                               ParamTxBx="{Binding Path=StepPar,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSrTxBl}" 
-                               ParamTxBx="{Binding Path=OffSr,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSlTxBl}" 
-                               ParamTxBx="{Binding Path=OffSl,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding StepTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=StepTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedStepType}"
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StepParTxBl}" 
+                                        ParamTxBx="{Binding Path=StepPar,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSrTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSr,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSlTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSl,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertToolDirTxBl}" 
-                                     ParamChBx="{Binding Path=InvertToolDir,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding FaceUseTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=FaceUseTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedFaceUseType}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertToolDirTxBl}" 
+                                          ParamChBx="{Binding Path=InvertToolDir,
+                                                              UpdateSourceTrigger=PropertyChanged,
+                                                              ValidatesOnDataErrors=True}" 
+                                          Style="{DynamicResource CheckParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding FaceUseTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=FaceUseTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedFaceUseType}" 
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
 
-            <Expander Header="{Binding LeadInTypeMsg}" Name="LeadInTypeMsg"
-                Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartAddLenTxBl}" 
-                               ParamTxBx="{Binding Path=StartAddLen,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Header="{Binding LeadInTypeMsg}" Name="LeadInTypeMsg"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartAddLenTxBl}" 
+                                        ParamTxBx="{Binding Path=StartAddLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding LeadOutTypeMsg}" Name="LeadOutType"
-                Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding EndAddLenTxBl}" 
-                               ParamTxBx="{Binding Path=EndAddLen,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Header="{Binding LeadOutTypeMsg}" Name="LeadOutType"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndAddLenTxBl}" 
+                                        ParamTxBx="{Binding Path=EndAddLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding FeedTxBl}" 
-                          ParamTxBx="{Binding Path=Feed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding TipFeedTxBl}" 
-                          ParamTxBx="{Binding Path=TipFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding StartFeedTxBl}" 
-                          ParamTxBx="{Binding Path=StartFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding EndFeedTxBl}" 
-                          ParamTxBx="{Binding Path=EndFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
-   
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MortisingParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class MortisingParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class MortisingParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class MortisingParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class MortisingParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/PocketingParameterExpanderV.xaml

@@ -1,279 +1,290 @@
 <UserControl x:Class="PocketingParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
-    <UserControl.Resources>
-        <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
-        <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-        <sys:Int32 x:Key="Invert">0</sys:Int32>
-        <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-        <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-        <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-        <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-        <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-        <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-        <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-        <sys:Int32 x:Key="StepType">8</sys:Int32>
-        <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-        <sys:Int32 x:Key="Speed">10</sys:Int32>
-        <sys:Int32 x:Key="Feed">11</sys:Int32>
-        <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-        <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-        <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-        <sys:Int32 x:Key="OffSr">15</sys:Int32>
-        <sys:Int32 x:Key="OffSl">16</sys:Int32>
-        <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-        <sys:Int32 x:Key="Approx">18</sys:Int32>
-        <sys:Int32 x:Key="StartPos">19</sys:Int32>
-        <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-        <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-        <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-        <sys:Int32 x:Key="StepPar">23</sys:Int32>
-        <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-        <sys:Int32 x:Key="TabLen">25</sys:Int32>
-        <sys:Int32 x:Key="TabDist">26</sys:Int32>
-        <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-        <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-        <sys:Int32 x:Key="LiTang">29</sys:Int32>
-        <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-        <sys:Int32 x:Key="LiElev">31</sys:Int32>
-        <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-        <sys:Int32 x:Key="LoTang">33</sys:Int32>
-        <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-        <sys:Int32 x:Key="LoElev">35</sys:Int32>
-        <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-        <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-        <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-        <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-        <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-        <sys:Int32 x:Key="SideStep">41</sys:Int32>
-        <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-        <sys:Int32 x:Key="NamePar">43</sys:Int32>
-        <sys:Int32 x:Key="Tool">44</sys:Int32>
-        <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-        <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-        <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-        <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-        <sys:Int32 x:Key="SubType">49</sys:Int32>
-        <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-        <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-        <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-        <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-        <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-        <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-        <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-        <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-        <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-        <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-        <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-        <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
-    </UserControl.Resources>
+   <UserControl.Resources>
+      <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
+   </UserControl.Resources>
 
-    <StackPanel Name="OperationParametersStackPanel">
-        <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+   <StackPanel Name="OperationParametersStackPanel">
+      <StackPanel Name="OperationFirstParametersStackPanel">
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
-            <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertTxBl}" 
-                                     ParamChBx="{Binding Path=Invert,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
-            </UniformGrid>
-        </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartPosTxBl}" 
-                               ParamTxBx="{Binding Path=StartPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SubTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SubTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSubType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StepParTxBl}" 
-                               ParamTxBx="{Binding Path=StepPar,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SideStepTxBl}" 
-                               ParamTxBx="{Binding Path=SideStep,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding OffsetSlTxBl}" 
-                               ParamTxBx="{Binding Path=OffSl,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                 ParamTxBl="{Binding OffsetSrTxBl}" 
-                                 ParamTxBx="{Binding Path=OffSr,
-                                 UpdateSourceTrigger=PropertyChanged,
-                                 ValidatesOnDataErrors=True}" 
-                                 Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV
-                                 ParamTxBl="{Binding SideAngleTxBl}" 
-                                 ParamTxBx="{Binding Path=SideAngle,
-                                 UpdateSourceTrigger=PropertyChanged,
-                                 ValidatesOnDataErrors=True}" 
-                                 Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
+         </UniformGrid>
+         <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertTxBl}" 
+                                 ParamChBx="{Binding Path=Invert,
+                                                     UpdateSourceTrigger=PropertyChanged,
+                                                     ValidatesOnDataErrors=True}" 
+                                 Style="{DynamicResource CheckParamV_Margin}"/>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
+         </UniformGrid>
+      </StackPanel>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SubTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=SubTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedSubType}"
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StepParTxBl}" 
+                                        ParamTxBx="{Binding Path=StepPar,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SideStepTxBl}" 
+                                        ParamTxBx="{Binding Path=SideStep,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSrTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSr,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSlTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSl,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EpicyclesRadTxBl}" 
+                                        ParamTxBx="{Binding Path=EpicyclesRad,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"
+                                        Visibility="{Binding Epicycles_Visibility}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EpicyclesDistTxBl}" 
+                                        ParamTxBx="{Binding Path=EpicyclesDist,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"
+                                        Visibility="{Binding Epicycles_Visibility}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SideAngleTxBl}" 
+                                        ParamTxBx="{Binding Path=SideAngle,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertToolDirTxBl}" 
-                                     ParamChBx="{Binding Path=InvertToolDir,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertToolDirTxBl}" 
+                                          ParamChBx="{Binding Path=InvertToolDir,
+                                                              UpdateSourceTrigger=PropertyChanged,
+                                                              ValidatesOnDataErrors=True}" 
+                                          Style="{DynamicResource CheckParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding LeadInTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=LeadInTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedLeadInType}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LiTangTxBl}" 
-                                     ParamTxBx="{Binding Path=LiTang,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LiElevTxBl}" 
-                                     ParamTxBx="{Binding Path=LiElev,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding LeadInTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=LeadInTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedLeadInType}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LiTangTxBl}" 
+                                        ParamTxBx="{Binding Path=LiTang,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LiElevTxBl}" 
+                                        ParamTxBx="{Binding Path=LiElev,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding LeadOutTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=LeadOutTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedLeadOutType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding LoTangTxBl}" 
-                                     ParamTxBx="{Binding Path=LoTang,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding LeadOutTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=LeadOutTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedLeadOutType}"
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding LoTangTxBl}" 
+                                        ParamTxBx="{Binding Path=LoTang,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding FeedTxBl}" 
-                          ParamTxBx="{Binding Path=Feed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding TipFeedTxBl}" 
-                          ParamTxBx="{Binding Path=TipFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding StartFeedTxBl}" 
-                          ParamTxBx="{Binding Path=StartFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding EndFeedTxBl}" 
-                          ParamTxBx="{Binding Path=EndFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/PocketingParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class PocketingParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class PocketingParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class PocketingParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class PocketingParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneDrillingParameterExpanderV.xaml

@@ -1,214 +1,220 @@
 <UserControl x:Class="StoneDrillingParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">
-        <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+      <StackPanel Name="OperationFirstParametersStackPanel">
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
          </UniformGrid>
-        </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartPosTxBl}" 
-                               ParamTxBx="{Binding Path=StartPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding ReturnPosTxBl}" 
-                               ParamTxBx="{Binding Path=ReturnPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding ThrouAddLenTxBl}" 
-                                     ParamTxBx="{Binding Path=ThrouAddLen,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding StepParTxBl}" 
-                                     ParamTxBx="{Binding Path=StepPar,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding StartSlowLenTxBl}" 
-                                     ParamTxBx="{Binding Path=StartSlowLen,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                                     ParamTxBl="{Binding EndSlowLenTxBl}" 
-                                     ParamTxBx="{Binding Path=EndSlowLen,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                        Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
+         </UniformGrid>
+      </StackPanel>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                         UpdateSourceTrigger=PropertyChanged,
+                                         ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding ReturnPosTxBl}" 
+                                        ParamTxBx="{Binding Path=ReturnPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding ThrouAddLenTxBl}" 
+                                        ParamTxBx="{Binding Path=ThrouAddLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StepParTxBl}" 
+                                        ParamTxBx="{Binding Path=StepPar,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartSlowLenTxBl}" 
+                                        ParamTxBx="{Binding Path=StartSlowLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndSlowLenTxBl}" 
+                                        ParamTxBx="{Binding Path=EndSlowLen,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-                    Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
+
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding FeedTxBl}" 
-                          ParamTxBx="{Binding Path=Feed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding TipFeedTxBl}" 
-                          ParamTxBx="{Binding Path=TipFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding StartFeedTxBl}" 
-                          ParamTxBx="{Binding Path=StartFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding EndFeedTxBl}" 
-                          ParamTxBx="{Binding Path=EndFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
-   
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneDrillingParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneDrillingParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class StoneDrillingParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class StoneDrillingParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class StoneDrillingParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneMillingParameterExpanderV.xaml

@@ -1,218 +1,224 @@
 <UserControl x:Class="StoneMillingParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
-    <UserControl.Resources>
-        <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
-        <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-        <sys:Int32 x:Key="Invert">0</sys:Int32>
-        <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-        <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-        <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-        <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-        <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-        <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-        <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-        <sys:Int32 x:Key="StepType">8</sys:Int32>
-        <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-        <sys:Int32 x:Key="Speed">10</sys:Int32>
-        <sys:Int32 x:Key="Feed">11</sys:Int32>
-        <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-        <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-        <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-        <sys:Int32 x:Key="OffSr">15</sys:Int32>
-        <sys:Int32 x:Key="OffSl">16</sys:Int32>
-        <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-        <sys:Int32 x:Key="Approx">18</sys:Int32>
-        <sys:Int32 x:Key="StartPos">19</sys:Int32>
-        <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-        <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-        <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-        <sys:Int32 x:Key="StepPar">23</sys:Int32>
-        <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-        <sys:Int32 x:Key="TabLen">25</sys:Int32>
-        <sys:Int32 x:Key="TabDist">26</sys:Int32>
-        <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-        <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-        <sys:Int32 x:Key="LiTang">29</sys:Int32>
-        <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-        <sys:Int32 x:Key="LiElev">31</sys:Int32>
-        <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-        <sys:Int32 x:Key="LoTang">33</sys:Int32>
-        <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-        <sys:Int32 x:Key="LoElev">35</sys:Int32>
-        <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-        <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-        <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-        <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-        <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-        <sys:Int32 x:Key="SideStep">41</sys:Int32>
-        <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-        <sys:Int32 x:Key="NamePar">43</sys:Int32>
-        <sys:Int32 x:Key="Tool">44</sys:Int32>
-        <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-        <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-        <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-        <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-        <sys:Int32 x:Key="SubType">49</sys:Int32>
-        <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-        <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-        <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-        <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-        <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-        <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-        <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-        <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-        <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-        <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-        <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-        <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
-    </UserControl.Resources>
+   <UserControl.Resources>
+      <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
+   </UserControl.Resources>
 
-    <StackPanel Name="OperationParametersStackPanel">
-        <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+   <StackPanel Name="OperationParametersStackPanel">
+      <StackPanel Name="OperationFirstParametersStackPanel">
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
-            <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertTxBl}" 
-                                     ParamChBx="{Binding Path=Invert,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-            <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding WorkSideTxBl}" 
-                                  ParamCmBxList="{Binding Path=WorkSideList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedWorkSide}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
          </UniformGrid>
-        </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartPosTxBl}" 
-                               ParamTxBx="{Binding Path=StartPos,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding LeadInTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=LeadInTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedLeadInType}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding LeadOutTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=LeadOutTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedLeadOutType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StepParTxBl}" 
-                               ParamTxBx="{Binding Path=StepPar,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
+         <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertTxBl}" 
+                                 ParamChBx="{Binding Path=Invert,
+                                                     UpdateSourceTrigger=PropertyChanged,
+                                                     ValidatesOnDataErrors=True}" 
+                                 Style="{DynamicResource CheckParamV_Margin}"/>
+         <EgtWPFLib5:ComboParamV ParamTxBl="{Binding WorkSideTxBl}" 
+                                 ParamCmBxList="{Binding Path=WorkSideList,
+                                                         UpdateSourceTrigger=PropertyChanged,
+                                                         ValidatesOnDataErrors=True}"
+                                 ParamCmBxSelIndex="{Binding Path=SelectedWorkSide}" 
+                                 Style="{DynamicResource ComboParamV_Margin}"/>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
+         </UniformGrid>
+      </StackPanel>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding LeadInTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=LeadInTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedLeadInType}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding LeadOutTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=LeadOutTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedLeadOutType}"
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StepParTxBl}" 
+                                        ParamTxBx="{Binding Path=StepPar,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
 
-                </StackPanel>
-            </Expander>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-                    Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding FeedTxBl}" 
-                          ParamTxBx="{Binding Path=Feed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding TipFeedTxBl}" 
-                          ParamTxBx="{Binding Path=TipFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding StartFeedTxBl}" 
-                          ParamTxBx="{Binding Path=StartFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                          ParamTxBl="{Binding EndFeedTxBl}" 
-                          ParamTxBx="{Binding Path=EndFeed,
-                           UpdateSourceTrigger=PropertyChanged,
-                           ValidatesOnDataErrors=True}" 
-                          Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneMillingParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneMillingParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class StoneMillingParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class StoneMillingParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class StoneMillingParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawFinishingParameterExpanderV.xaml

@@ -1,260 +1,265 @@
 <UserControl x:Class="StoneSawFinishingParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">
       <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
-            <EgtWPFLib5:CheckParamV 
-                                     ParamTxBl="{Binding InvertTxBl}" 
-                                     ParamChBx="{Binding Path=Invert,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource CheckParamV_Margin}"/>
-            <EgtWPFLib5:ComboParamV 
-                                     ParamTxBl="{Binding SubTypeTxBl}" 
-                                     ParamCmBxList="{Binding Path=SubTypeList,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                                     ParamCmBxSelIndex="{Binding Path=SelectedSubType}" 
-                                     Style="{DynamicResource ComboParamV_Margin}"/>
-            
-          
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
+         </UniformGrid>
+         <EgtWPFLib5:CheckParamV ParamTxBl="{Binding InvertTxBl}" 
+                                 ParamChBx="{Binding Path=Invert,
+                                                     UpdateSourceTrigger=PropertyChanged,
+                                                     ValidatesOnDataErrors=True}" 
+                                 Style="{DynamicResource CheckParamV_Margin}"/>
+         <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SubTypeTxBl}" 
+                                 ParamCmBxList="{Binding Path=SubTypeList,
+                                                         UpdateSourceTrigger=PropertyChanged,
+                                                         ValidatesOnDataErrors=True}"
+                                 ParamCmBxSelIndex="{Binding Path=SelectedSubType}" 
+                                 Style="{DynamicResource ComboParamV_Margin}"/>
+
+
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
          </UniformGrid>
       </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
 
-                    <EgtWPFLib5:StringParamV Grid.Column="0" Grid.Row="0"
-                                     ParamTxBl="{Binding StartPosTxBl}" 
-                                     ParamTxBx="{Binding Path=StartPos,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                                     Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV Grid.Column="0" Grid.Row="0"
+                                        ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
 
-                    <EgtWPFLib5:ComboParamV 
-                                     ParamTxBl="{Binding LeadLinkTypeTxBl}" 
-                                     ParamCmBxList="{Binding Path=LeadLinkTypeList,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                                     ParamCmBxSelIndex="{Binding Path=SelectedLeadLinkType}" 
-                                     Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding LeadLinkTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=LeadLinkTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedLeadLinkType}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
 
-                </StackPanel>
-            </Expander>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-                    Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
 
-            <Expander Header="{Binding StepGpBxLbl}" 
-                      Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:ComboParamV 
-                                     ParamTxBl="{Binding StepTypeTxBl}" 
-                                     ParamCmBxList="{Binding Path=StepTypeList,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                                     ParamCmBxSelIndex="{Binding Path=SelectedStepType}" 
-                                     Style="{DynamicResource ComboParamV_Margin}"/>
+         <Expander Header="{Binding StepGpBxLbl}" 
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding StepTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=StepTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedStepType}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
 
-                    <EgtWPFLib5:StringParamV
-                                     ParamTxBl="{Binding StepParTxBl}" 
-                                     ParamTxBx="{Binding Path=StepPar,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StepParTxBl}" 
+                                       ParamTxBx="{Binding Path=StepPar,
+                                                           UpdateSourceTrigger=PropertyChanged,
+                                                           ValidatesOnDataErrors=True}" 
+                                       Style="{DynamicResource StringParamV_Margin}"/>
 
-                    <EgtWPFLib5:StringParamV
-                                 ParamTxBl="{Binding SideStepTxBl}" 
-                                 ParamTxBx="{Binding Path=SideStep,
-                                  UpdateSourceTrigger=PropertyChanged,
-                                  ValidatesOnDataErrors=True}" 
-                                 Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SideStepTxBl}" 
+                                        ParamTxBx="{Binding Path=SideStep,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
 
-                </StackPanel>
-            </Expander>
+            </StackPanel>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding OffsetGpBxLbl}"/>
-                </Expander.Header>
-                <UniformGrid Columns="1">
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding OffsetGpBxLbl}"/>
+            </Expander.Header>
+            <UniformGrid Columns="1">
 
-                    <EgtWPFLib5:StringParamV Grid.Row="0"
-                                     ParamTxBl="{Binding OffSrTxBl}" 
-                                     ParamTxBx="{Binding Path=OffSr,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV Grid.Row="0"
+                                        ParamTxBl="{Binding OffSrTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSr,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
 
-                </UniformGrid>
-            </Expander>
+            </UniformGrid>
+         </Expander>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding VertFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=VertFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding FeedTxBl}" 
-                               ParamTxBx="{Binding Path=Feed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding TipFeedTxBl}" 
-                               ParamTxBx="{Binding Path=TipFeed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartFeedTxBl}" 
-                               ParamTxBx="{Binding Path=StartFeed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding EndFeedTxBl}" 
-                               ParamTxBx="{Binding Path=EndFeed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding VertFeedTxBl}" 
-                               ParamTxBx="{Binding Path=VertFeed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
-   
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawFinishingParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneSawFinishingParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class StoneSawFinishingParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class StoneSawFinishingParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class StoneSawFinishingParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawRoughingParameterExpanderV.xaml

@@ -1,250 +1,255 @@
 <UserControl x:Class="StoneSawRoughingParameterExpanderV"
-   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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">
       <StackPanel Name="OperationFirstParametersStackPanel">
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
                                                   Converter={StaticResource DepthUnitConverter}}"
-                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
-            </UniformGrid>
+                                   Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
+         </UniformGrid>
 
-            <EgtWPFLib5:ComboParamV 
-                                     ParamTxBl="{Binding StepTypeTxBl}" 
-                                     ParamCmBxList="{Binding Path=StepTypeList,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                                     ParamCmBxSelIndex="{Binding Path=SelectedStepType}" 
-                                     Style="{DynamicResource ComboParamV_Margin}"/>
+         <EgtWPFLib5:ComboParamV ParamTxBl="{Binding StepTypeTxBl}" 
+                                 ParamCmBxList="{Binding Path=StepTypeList,
+                                                         UpdateSourceTrigger=PropertyChanged,
+                                                         ValidatesOnDataErrors=True}"
+                                 ParamCmBxSelIndex="{Binding Path=SelectedStepType}" 
+                                 Style="{DynamicResource ComboParamV_Margin}"/>
 
-
-            <UniformGrid Columns="2">
-                <TextBlock Text="{Binding UserNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
-                    <EgtWPFLib5:EgtTextBox.ToolTip>
-                        <TextBlock Text="{Binding UserNotesTooltip}"/>
-                    </EgtWPFLib5:EgtTextBox.ToolTip>
-                </EgtWPFLib5:EgtTextBox>
-                <TextBlock Text="{Binding SystemNotesTxBl}" 
-                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
-                           Visibility="{Binding SysNotes_Visibility}"/>
-                <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
-                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
-                                       Visibility="{Binding SysNotes_Visibility}"
-                                       IsReadOnly="True"/>
+         <UniformGrid Columns="2">
+            <TextBlock Text="{Binding UserNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+               <EgtWPFLib5:EgtTextBox.ToolTip>
+                  <TextBlock Text="{Binding UserNotesTooltip}"/>
+               </EgtWPFLib5:EgtTextBox.ToolTip>
+            </EgtWPFLib5:EgtTextBox>
+            <TextBlock Text="{Binding SystemNotesTxBl}" 
+                       Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"
+                       Visibility="{Binding SysNotes_Visibility}"/>
+            <EgtWPFLib5:EgtTextBox Text="{Binding SystemNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                   Style="{DynamicResource MPExpander_UserNotesTxBxMargin}"
+                                   Visibility="{Binding SysNotes_Visibility}"
+                                   IsReadOnly="True"/>
          </UniformGrid>
       </StackPanel>
-        <StackPanel Name="AutomaticCloseExpanderStackPanel">
-            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
-            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding HeadSideTxBl}" 
-                                  ParamCmBxList="{Binding Path=HeadSideList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedHeadSide}" 
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV Grid.Column="0" Grid.Row="0"
-                                     ParamTxBl="{Binding StartPosTxBl}" 
-                                     ParamTxBx="{Binding Path=StartPos,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                                     Style="{DynamicResource StringParamV_Margin}"/>
+      <StackPanel Name="AutomaticCloseExpanderStackPanel">
+         <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding HeadSideTxBl}" 
+                                       ParamCmBxList="{Binding Path=HeadSideList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedHeadSide}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV Grid.Column="0" Grid.Row="0"
+                                        ParamTxBl="{Binding StartPosTxBl}" 
+                                        ParamTxBx="{Binding Path=StartPos,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}"
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:ComboParamV ParamTxBl="{Binding ExtLinkTypeTxBl}" 
+                                       ParamCmBxList="{Binding Path=ExtLinkTypeList,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}"
+                                       ParamCmBxSelIndex="{Binding Path=SelectedExtLinkType}" 
+                                       Style="{DynamicResource ComboParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-                    <EgtWPFLib5:ComboParamV 
-                                     ParamTxBl="{Binding ExtLinkTypeTxBl}" 
-                                     ParamCmBxList="{Binding Path=ExtLinkTypeList,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}"
-                                     ParamCmBxSelIndex="{Binding Path=SelectedExtLinkType}" 
-                                     Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Name="AdvancedParam" IsExpanded="{Binding AdvancedParamIsExpander}"
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <Expander.Header>
+               <UniformGrid Columns="2">
+                  <TextBlock Text="{Binding AdvancedParamMsg}"
+                             Margin="2.5"/>
+                  <Button Command="{Binding ShowNoteListComboCommand}"
+                          IsEnabled="{Binding ShowNoteListCombo_IsEnable}"
+                          Visibility="{Binding ShowNoteListCombo_Visibility}"
+                          ToolTip="{Binding ShowNoteToolTip}"
+                          Grid.Column="1"
+                          HorizontalAlignment="Right"
+                          Margin="2.5,2.5,7,2.5"
+                          Width="20">
+                     <Image Source="/Resources/Note/+.png" Stretch="Uniform"/>
+                  </Button>
+               </UniformGrid>
+            </Expander.Header>
+            <Grid>
+               <Grid.RowDefinitions>
+                  <RowDefinition Height="1*"/>
+                  <RowDefinition Height="Auto"/>
+               </Grid.RowDefinitions>
+               <StackPanel>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding InitAngsTxBl}" 
+                                           ParamTxBx="{Binding Path=InitAngs,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:StringParamV ParamTxBl="{Binding BlockedAxisTxBl}" 
+                                           ParamTxBx="{Binding Path=BlockedAxis,
+                                                               UpdateSourceTrigger=PropertyChanged,
+                                                               ValidatesOnDataErrors=True}" 
+                                           Style="{DynamicResource StringParamV_Margin}"/>
+                  <EgtWPFLib5:ComboParamV ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                          ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                                                  UpdateSourceTrigger=PropertyChanged,
+                                                                  ValidatesOnDataErrors=True,
+                                                                  Mode=OneWay}"
+                                          ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                          Style="{DynamicResource ComboParamV_Margin}"/>
+               </StackPanel>
+               <Grid Grid.Row="1" Margin="0,5,0,0">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="Auto"/>
+                  </Grid.RowDefinitions>
+                  <ItemsControl ItemsSource="{Binding NotesList}">
+                     <ItemsControl.ItemTemplate>
+                        <DataTemplate>
+                           <Grid>
+                              <Grid.ColumnDefinitions>
+                                 <ColumnDefinition Width="Auto"/>
+                                 <ColumnDefinition Width="1*"/>
+                                 <ColumnDefinition Width="Auto"/>
+                              </Grid.ColumnDefinitions>
+                              <TextBlock Text="{Binding Description}"
+                                         Margin="0,5.5,29,0"
+                                         Width="82"
+                                         Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                              <TabControl SelectedIndex="{Binding SelTypeValue}"
+                                          Grid.Column="1"
+                                          Background="Transparent"
+                                          BorderBrush="Transparent">
+                                 <TabControl.ItemContainerStyle>
+                                    <Style TargetType="{x:Type TabItem}">
+                                       <Setter Property="Visibility" Value="Collapsed"/>
+                                    </Style>
+                                 </TabControl.ItemContainerStyle>
+                                 <TabItem Header="TEXT">
+                                    <TextBox Text="{Binding Value, UpdateSourceTrigger=PropertyChanged}"
+                                             IsReadOnly="False"/>
+                                 </TabItem>
+                                 <TabItem Header="CHECKBOX">
+                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                 </TabItem>
+                              </TabControl>
+                              <Button Command="{Binding RemoveItemNoteCommand}"
+                                      Grid.Column="2"
+                                      Width="20"
+                                      Height="20"
+                                      Margin="5,0,0,0">
+                                 <Image Source="/Resources/Note/-.png" Stretch="Uniform"/>
+                              </Button>
+                           </Grid>
+                        </DataTemplate>
+                     </ItemsControl.ItemTemplate>
+                  </ItemsControl>
+                  <ComboBox ItemsSource="{Binding NotesListCombo}"
+                            SelectedItem="{Binding SelNoteItemCombo}"
+                            Grid.Row="1"
+                            Grid.ColumnSpan="1"
+                            Visibility="{Binding ComboAddVisibility}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Description}"
+                                      Margin="2.5"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+               </Grid>
+            </Grid>
+         </Expander>
 
-            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
-                    Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding InitAngsTxBl}" 
-                               ParamTxBx="{Binding Path=InitAngs,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding BlockedAxisTxBl}" 
-                               ParamTxBx="{Binding Path=BlockedAxis,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:ComboParamV 
-                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
-                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
-                                   UpdateSourceTrigger=PropertyChanged,
-                                   ValidatesOnDataErrors=True,
-                                   Mode=OneWay}"
-                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
-                                  Style="{DynamicResource ComboParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Header="{Binding StepGpBxLbl}" 
+                   Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StepParTxBl}" 
+                                        ParamTxBx="{Binding Path=StepPar,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SideStepTxBl}" 
+                                        ParamTxBx="{Binding Path=SideStep,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
 
-            <Expander Header="{Binding StepGpBxLbl}" 
-                      Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV
-                                     ParamTxBl="{Binding StepParTxBl}" 
-                                     ParamTxBx="{Binding Path=StepPar,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV
-                                 ParamTxBl="{Binding SideStepTxBl}" 
-                                 ParamTxBx="{Binding Path=SideStep,
-                                  UpdateSourceTrigger=PropertyChanged,
-                                  ValidatesOnDataErrors=True}" 
-                                 Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding OffsetGpBxLbl}"/>
+            </Expander.Header>
+            <UniformGrid Columns="1">
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding OffsetGpBxLbl}"/>
-                </Expander.Header>
-                <UniformGrid Columns="1">
+               <EgtWPFLib5:StringParamV Grid.Row="0"
+                                        ParamTxBl="{Binding OffSrTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSr,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
 
-                    <EgtWPFLib5:StringParamV Grid.Row="0"
-                                     ParamTxBl="{Binding OffSrTxBl}" 
-                                     ParamTxBx="{Binding Path=OffSr,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV Grid.Row="0"
+                                        ParamTxBl="{Binding OffSlTxBl}" 
+                                        ParamTxBx="{Binding Path=OffSl,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
 
-                    <EgtWPFLib5:StringParamV Grid.Row="0"
-                                     ParamTxBl="{Binding OffSlTxBl}" 
-                                     ParamTxBx="{Binding Path=OffSl,
-                                      UpdateSourceTrigger=PropertyChanged,
-                                      ValidatesOnDataErrors=True}" 
-                                     Style="{DynamicResource StringParamV_Margin}"/>
-                    
-                </UniformGrid>
-            </Expander>
+            </UniformGrid>
+         </Expander>
+
+         <Expander Style="{StaticResource ExpanderStyle}">
+            <Expander.Header>
+               <TextBlock Text="{Binding ToolExpanderHeader}"/>
+            </Expander.Header>
+            <StackPanel>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding SpeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Speed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding FeedTxBl}" 
+                                        ParamTxBx="{Binding Path=Feed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding TipFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=TipFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding StartFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=StartFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding EndFeedTxBl}" 
+                                        ParamTxBx="{Binding Path=EndFeed,
+                                                            UpdateSourceTrigger=PropertyChanged,
+                                                            ValidatesOnDataErrors=True}" 
+                                        Style="{DynamicResource StringParamV_Margin}"/>
+            </StackPanel>
+         </Expander>
+         <Interactivity:Interaction.Behaviors>
+            <EgtCAM5:AutomaticCloseExpander/>
+         </Interactivity:Interaction.Behaviors>
+      </StackPanel>
+   </StackPanel>
 
-            <Expander Style="{StaticResource ExpanderStyle}">
-                <Expander.Header>
-                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
-                </Expander.Header>
-                <StackPanel>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding SpeedTxBl}" 
-                               ParamTxBx="{Binding Path=Speed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding FeedTxBl}" 
-                               ParamTxBx="{Binding Path=Feed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding TipFeedTxBl}" 
-                               ParamTxBx="{Binding Path=TipFeed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding StartFeedTxBl}" 
-                               ParamTxBx="{Binding Path=StartFeed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                    <EgtWPFLib5:StringParamV 
-                               ParamTxBl="{Binding EndFeedTxBl}" 
-                               ParamTxBx="{Binding Path=EndFeed,
-                                UpdateSourceTrigger=PropertyChanged,
-                                ValidatesOnDataErrors=True}" 
-                               Style="{DynamicResource StringParamV_Margin}"/>
-                </StackPanel>
-            </Expander>
-            <Interactivity:Interaction.Behaviors>
-                <EgtCAM5:AutomaticCloseExpander/>
-            </Interactivity:Interaction.Behaviors>
-        </StackPanel>
-    </StackPanel>
-   
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawRoughingParameterExpanderV.xaml.vb

@@ -1,19 +1,18 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
+Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneSawRoughingParameterExpanderV
 
-   Private EgtFloatingTray As EgtFloatingTray
+   Private m_RightTrayV As RightTrayV
    Private EgtFloatingPanel As EgtFloatingPanel
 
    Private m_bFirst As Boolean = True
 
    Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
       If m_bFirst Then
-         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         m_RightTrayV = FindAncestor(Of RightTrayV)(Me)
          EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
-         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
-         PanelHeight = EgtFloatingPanel.ActualHeight
+         AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged
+         PanelHeight = EgtFloatingPanel.DesiredSize.Height
          Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
          m_bFirst = False
       End If
@@ -22,7 +21,7 @@ Public Class StoneSawRoughingParameterExpanderV
 
    Dim m_bSizeChanging As Boolean = False
 
-   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+   Private Sub RightTrayV_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
       If m_bSizeChanging Then Return
       m_bSizeChanging = True
       CalculateOperationParametersStackPanelMaxHeight()
@@ -32,6 +31,7 @@ Public Class StoneSawRoughingParameterExpanderV
    Dim PanelHeight As Double = 0
    Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
 
+   ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray
    Private Sub CalculateOperationParametersStackPanelMaxHeight()
       Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
       Dim OpenedExpanderList As New List(Of Boolean)
@@ -53,7 +53,7 @@ Public Class StoneSawRoughingParameterExpanderV
             OpenedExpanderList.Add(False)
          End If
       Next
-      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      Dim RemainingHeight As Double = m_RightTrayV.ActualHeight - PanelHeight
       AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
       For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
          If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then