-gestione finestra con griglia dinamica

Base/TreeView/TreeViewItemBase.vb

@@ -1,7 +1,5 @@
 Imports System.Collections.ObjectModel
 Imports System.ComponentModel
-Imports EgtUILib
-Imports EgtUILib.EgtInterface
 
 ' Classe che definisce un elemento di base del TreeView
 Public Class TreeViewItemBase
@@ -33,7 +31,7 @@ Public Class TreeViewItemBase
       End Set
    End Property
 
-   Friend m_isExpanded As Boolean
+   Private m_isExpanded As Boolean
    Public Property IsExpanded As Boolean
       Get
          Return m_isExpanded
@@ -94,7 +92,6 @@ Public Class InheritableTreeViewItem
    Implements INotifyPropertyChanged
 
    Friend m_Name As String
-
    Public Property Name As String
       Get
          Return m_Name
@@ -198,6 +195,7 @@ Public Class ParentItem
    Inherits TreeViewItemBase
 
    Private m_sPictureString As String
+   Private m_Items As ObservableCollection(Of ChildItem)
 
    Public Property PictureString As String
       Get
@@ -211,7 +209,6 @@ Public Class ParentItem
       End Set
    End Property
 
-   Private m_Items As ObservableCollection(Of ChildItem)
    Public Property Items As ObservableCollection(Of ChildItem)
       Get
          Return m_Items
@@ -258,4 +255,4 @@ Public Class ChildItem
       MyBase.New(Name, IsSelected, IsExpanded, IsActive)
    End Sub
 
-End Class
+End Class

Constants/ConstIni.vb

@@ -105,15 +105,11 @@ 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"
@@ -159,7 +155,6 @@ 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"

DataGridMultiselectManaging/IListItemConverter.vb

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

DataGridMultiselectManaging/MultiSelectorBehaviours.vb

@@ -1,80 +0,0 @@
-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

@@ -1,163 +0,0 @@
-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

@@ -9,90 +9,157 @@
 
    <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}"
+            <Button x:Name="PuntoBtn" ToolTip="Punto" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding PointBaseCommand}" IsEnabled="{Binding bLayerOk}">
-               Command="{Binding PointCommand}" IsEnabled="{Binding bLayerOk}">
+               <Image Source="/Resources/DrawPanel/Point+.png" Stretch="Uniform"/>
-               <Image Source="/Resources/DrawPanel/Point.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Vettore" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding PointVectorCommand}">
+                        <Image Source="/Resources/DrawPanel/Point.png" Stretch="Uniform"/>
+                     </Button>
+                     <Button ToolTip="Riferimento" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding PointReferenceCommand}">
+                        <Image Source="/Resources/DrawPanel/Point.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
-            <Button ToolTip="{Binding Line2PToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Linea 2 Punti" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Line2PCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding Line2PBaseCommand}" IsEnabled="{Binding bLayerOk}">
-               <Image Source="/Resources/DrawPanel/Line2P.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/Line2P+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Linea 2 Punti con Continuazione" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding Line2PContinuationCommand}">
+                        <Image Source="/Resources/DrawPanel/Line2P.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
-            <Button ToolTip="{Binding LinePDLToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Linea Punto Direzione Lunghezza" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding LinePDLCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding LinePDLBaseCommand}" IsEnabled="{Binding bLayerOk}">
-               <Image Source="/Resources/DrawPanel/LinePDL.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/LinePDL+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Linea Punto Vettore Direzione Lunghezza" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding LinePDLVectorCommand}">
+                        <Image Source="/Resources/DrawPanel/Line2P.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding ArcCSEToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ArcCSECommand}" IsEnabled="{Binding bLayerOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Arc3PCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding Arc3PCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/Arc3P.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding ArcPDPToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Arco " Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ArcPDPCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding ArcPDPCommand}" IsEnabled="{Binding bLayerOk}">
-               <Image Source="/Resources/DrawPanel/ArcPDP.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/ArcPDP+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Linea Punto Vettore Direzione Lunghezza" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding LinePDLVectorCommand}">
+                        <Image Source="/Resources/DrawPanel/ArcPDP.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding CirclePDToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding CircleCPCommand}" IsEnabled="{Binding bLayerOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Circle3PCommand}" IsEnabled="{Binding bLayerOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding CircleCDCommand}" IsEnabled="{Binding bLayerOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Rectangle2PCommand}" IsEnabled="{Binding bLayerOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding PolygonCommand}" IsEnabled="{Binding bLayerOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding PolygonSideCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding PolygonSideCommand}" IsEnabled="{Binding bLayerOk}">
                <Image Source="/Resources/DrawPanel/PolygonSide.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding LinearDimensionToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Quota Lineare" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding LinearDimensionCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding LinearDimensionBaseCommand}" IsEnabled="{Binding bLayerOk}">
-               <Image Source="/Resources/DrawPanel/LinearDimension.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/LinearDimension+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Quota Allineata" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding AlignedDimensionCommand}">
+                        <Image Source="/Resources/DrawPanel/LinearDimension.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
-            <Button ToolTip="{Binding AngularDimensionToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Quota Angolare" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding AngularDimensionCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding AngularDimensionBaseCommand}" IsEnabled="{Binding bLayerOk}">
-               <Image Source="/Resources/DrawPanel/AngularDimension.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/AngularDimension +.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Quota Angolare Avanzata" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding AlignedDimensionPlusCommand}">
+                        <Image Source="/Resources/DrawPanel/AngularDimension.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
-            <Button ToolTip="{Binding DiamRadDimensionToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Quota Diametrale" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding DiamRadDimensionCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding DiamDimensionCommand}" IsEnabled="{Binding bLayerOk}">
-               <Image Source="/Resources/DrawPanel/DiametralDimension.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/DiametralDimension+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Quota Radiale" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding RadDimensionCommand}">
+                        <Image Source="/Resources/DrawPanel/DiametralDimension.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
-            <Button ToolTip="{Binding TextToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Testo" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding TextCommand}" IsEnabled="{Binding bLayerOk}">
+                    Command="{Binding TextBaseCommand}" IsEnabled="{Binding bLayerOk}">
-               <Image Source="/Resources/DrawPanel/Text.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/Text+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Testo Avanzato" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding TextPlusCommand}">
+                        <Image Source="/Resources/DrawPanel/TextA.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
          </UniformGrid>
       </Expander>
@@ -102,95 +169,135 @@
             <TextBlock Text="{Binding Draw3DMsg}"/>
          </Expander.Header>
          <UniformGrid Columns="3">
-            <Button ToolTip="{Binding PlaneToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Piano Contornato" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding PlaneCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    Command="{Binding FloorCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
-               <Image Source="/Resources/DrawPanel/Plane.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/Plane+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Regione Piana" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding RegionCommand}">
+                        <Image Source="/Resources/DrawPanel/Plane.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding ExtrudeToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtrudeCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding RevolveCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ScrewCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SweptCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding RuledCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SolidAddSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding SolidAddSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/SolidAddSurf.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding SolidSubtractSurfToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Sottrai Superfici e Regioni Piane" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SolidSubtractSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding SubtractSurfacesCommand}" IsEnabled="{Binding bSelOk}">
-               <Image Source="/Resources/DrawPanel/SolidSubtractSurf.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/SolidSubtractSurf+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Taglia Superficie con Superficie Inversa" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding CutSurfacesCommand}">
+                        <Image Source="/Resources/DrawPanel/SolidSubtractSurf.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
-            <Button ToolTip="{Binding SolidIntersectSurfToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Interseca Superfici e Regioni Piane" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SolidIntersectSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding IntersectSurfCommand}" IsEnabled="{Binding bSelOk}">
-               <Image Source="/Resources/DrawPanel/SolidIntersectSurf.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/SolidIntersectSurf+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Taglia Superficie con Superficie" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding CutSurfCommand}">
+                        <Image Source="/Resources/DrawPanel/SolidIntersectSurf.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding IntersectSurfSurfToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding IntersectSurfSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtractLoopsCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtractFacetLoopsCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding ExtractFacetLoopsCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ExtractFacetLoops.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding ExplodeSurfToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Esplodi Superfici e Regioni Piane" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExplodeSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding ExplodeSurfaceCommand}" IsEnabled="{Binding bSelOk}">
-               <Image Source="/Resources/DrawPanel/ExplodeSurf.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/ExplodeSurf+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Esplodi Superfici Mesh in Triangoli" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding ExplodeSurfaceMeshCommand}">
+                        <Image Source="/Resources/DrawPanel/ExplodeSurf.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding ExtractSurfFacetToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtractSurfFacetCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding MergeSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding InvertSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ApproxSurfCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding ApproxSurfCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ApproxSurf.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding StmMoveVertexFacetToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Muovi Vertice di Superficie" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding MoveStmVertexFacetCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding MoveStmVertexCommand}" IsEnabled="{Binding bSelOk}">
-               <Image Source="/Resources/DrawPanel/StmMoveVertex.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/StmMoveVertex+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Muovi Faccia di Superficie" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding MoveStmFacetCommand}">
+                        <Image Source="/Resources/DrawPanel/StmMoveVertex.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
          </UniformGrid>
       </Expander>
@@ -200,14 +307,22 @@
          </Expander.Header>
          <UniformGrid Columns="3">
             <Button ToolTip="{Binding DeleteToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding DeleteCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding DeleteCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Delete.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding ChangeLayerToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Cambia Layer" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChangeLayerCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding ChangeLayerBaseCommand}" IsEnabled="{Binding bSelOk}">
-               <Image Source="/Resources/DrawPanel/ChangeLayer.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/ChangeLayer+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Cambia Layer con Trasformazioni" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding ChangeLayerTrasfCommand}">
+                        <Image Source="/Resources/DrawPanel/ChangeLayer.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding ChangeStatusToolTip}" Style="{StaticResource DrawPanelButton}"
                ToolTipService.ShowOnDisabled="True"
@@ -215,108 +330,159 @@
                <Image Source="/Resources/DrawPanel/ChangeStatus.png" Stretch="Uniform"/>
             </Button>
             <Button ToolTip="{Binding ChangeColorToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChangeColorCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChangeAlphaCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ResetColorCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding InvertCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChangeStartCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    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" 
+                    ToolTipService.ShowOnDisabled="True" 
-               Command="{Binding SetCurveThCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExtendCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding BreakCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding SplitCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ExplodeCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding ExplodeCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ExplodeCurve.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding JoinCurveToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Unisci Curve" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding JoinCurveCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
+                    Command="{Binding JoinCurveBasCommand}" IsEnabled="{Binding bLayerOkAndSelOk}">
-               <Image Source="/Resources/DrawPanel/JoinCurve.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/JoinCurve+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Unisci Curve creando una Copia" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding JoinCurveCopyCommand}">
+                        <Image Source="/Resources/DrawPanel/JoinCurve.png" Stretch="Uniform"/>
+                     </Button>
+                     <Button ToolTip="Fondi Curve nella Composita" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding JoinCurveCompositeCommand}">
+                        <Image Source="/Resources/DrawPanel/JoinCurve.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding OffsetToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding OffsetCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding FilletCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ChamferCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding ChamferCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Chamfer.png" Stretch="Uniform"/>
             </Button>
-            <Button ToolTip="{Binding ArcFlipToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Arco Capovolto" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding UpsideDownArchCommand}" ToolTipService.ShowOnDisabled="True" IsEnabled="{Binding bSelOk}">
-               Command="{Binding ArcFlipCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/ArcFlip+.png" Stretch="Uniform"/>
-               <Image Source="/Resources/DrawPanel/ArcFlip.png" Stretch="Uniform"/>
+               <Button.ContextMenu >
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Arco Esplementare" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding ComplementaryArchCommand}">
+                        <Image Source="/Resources/DrawPanel/ArcFlip.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding ModifyCurveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ModifyCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding ModifyCurveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ModifyCurve.png" Stretch="Uniform"/>
-             </Button>
+            </Button>
-             <Button ToolTip="{Binding AddPointCurveToolTip}" Style="{StaticResource DrawPanelButton}"
+            <Button ToolTip="Aggiungi Punto" Style="{StaticResource DrawPanelButton}"
-                ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-                Command="{Binding AddPointCurveCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding AddPointCommand}" IsEnabled="{Binding bSelOk}">
-                <Image Source="/Resources/DrawPanel/AddPointCurve.png" Stretch="Uniform"/>
+               <Image Source="/Resources/DrawPanel/AddPointCurve+.png" Stretch="Uniform"/>
-             </Button>
+               <Button.ContextMenu>
-             <Button ToolTip="{Binding RemovePointCurveToolTip}" Style="{StaticResource DrawPanelButton}"
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
-                ToolTipService.ShowOnDisabled="True"
+                     <Button ToolTip="Trasforma in Arco" Style="{StaticResource DrawPanelButton}"
-                Command="{Binding RemovePointCurveCommand}" IsEnabled="{Binding bSelOk}">
+                             Command="{Binding TrasformArcCommand}">
-                <Image Source="/Resources/DrawPanel/RemovePointCurve.png" Stretch="Uniform"/>
+                        <Image Source="/Resources/DrawPanel/AddPointCurve.png" Stretch="Uniform"/>
-             </Button>
+                     </Button>
-            <Button ToolTip="{Binding ApproxCurveToolTip}" Style="{StaticResource DrawPanelButton}"
+                     <Button ToolTip="Chiudi Curva Composita" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                             Command="{Binding CloseCurveCommand}">
-               Command="{Binding ApproxCurveCommand}" IsEnabled="{Binding bSelOk}">
+                        <Image Source="/Resources/DrawPanel/AddPointCurve.png" Stretch="Uniform"/>
-               <Image Source="/Resources/DrawPanel/ApproxCurve.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
+            </Button>
+            <Button ToolTip="Rimuovi Punto" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding RemoveCurveCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/RemovePointCurve+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Trasforma in Retta" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding TrasformRectCommand}">
+                        <Image Source="/Resources/DrawPanel/RemovePointCurve.png" Stretch="Uniform"/>
+                     </Button>
+                     <Button ToolTip="Apri Curva Composita" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding OpenCurveCommand}">
+                        <Image Source="/Resources/DrawPanel/RemovePointCurve.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
+            </Button>
+            <Button ToolTip="Approssima Curva" Style="{StaticResource DrawPanelButton}"
+                    ToolTipService.ShowOnDisabled="True"
+                    Command="{Binding ApproxCurveBaseCommand}" IsEnabled="{Binding bSelOk}">
+               <Image Source="/Resources/DrawPanel/ApproxCurve+.png" Stretch="Uniform"/>
+               <Button.ContextMenu>
+                  <ContextMenu Style="{StaticResource ContextMenu_Button}">
+                     <Button ToolTip="Approssima Curva con Linee" Style="{StaticResource DrawPanelButton}"
+                             Command="{Binding ApproxCurveLineCommand}">
+                        <Image Source="/Resources/DrawPanel/ApproxCurve.png" Stretch="Uniform"/>
+                     </Button>
+                  </ContextMenu>
+               </Button.ContextMenu>
             </Button>
             <Button ToolTip="{Binding ModifyArcRadiusToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ModifyArcRadiusCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ModifyTextCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding ModifyTextCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/ModifyText.png" Stretch="Uniform"/>
             </Button>
          </UniformGrid>
@@ -327,8 +493,8 @@
          </Expander.Header>
          <UniformGrid Columns="3">
             <Button ToolTip="{Binding MoveToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding MoveCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding MoveCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Move.png" Stretch="Uniform"/>
             </Button>
             <Button Style="{StaticResource DrawPanelButton}"
@@ -336,33 +502,33 @@
             <Button Style="{StaticResource DrawPanelButton}"
                     Visibility="Hidden"/>
             <Button ToolTip="{Binding RotateToolTip}" Style="{StaticResource DrawPanelButton}"
-               ToolTipService.ShowOnDisabled="True"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding RotateCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding MirrorCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding ScaleCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Rotate3DCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Mirror3DCommand}" IsEnabled="{Binding bSelOk}">
+                    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"
+                    ToolTipService.ShowOnDisabled="True"
-               Command="{Binding Scale3DCommand}" IsEnabled="{Binding bSelOk}">
+                    Command="{Binding Scale3DCommand}" IsEnabled="{Binding bSelOk}">
                <Image Source="/Resources/DrawPanel/Scale3D.png" Stretch="Uniform"/>
             </Button>
          </UniformGrid>

EgtCAM5.vbproj

@@ -161,9 +161,6 @@
       <DependentUpon>CurrSetUpV.xaml</DependentUpon>
     </Compile>
     <Compile Include="CurrSetUp\CurrSetUpVM.vb" />
-    <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>
@@ -1039,7 +1036,64 @@
     <Resource Include="Resources\DrawPanel\StmMoveVertex.png" />
   </ItemGroup>
   <ItemGroup>
-    <Resource Include="Resources\TreeView\LampSel.png" />
+    <Resource Include="Resources\DrawPanel\Point+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\Line2P+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\LinePDL+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\ArcPDP+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\Text+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\TextA.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\ArcFlip+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\LinearDimension+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\AngularDimension +.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\DiametralDimension+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\Plane+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\SolidSubtractSurf+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\SolidIntersectSurf+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\ExplodeSurf+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\StmMoveVertex+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\ChangeLayer+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\JoinCurve+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\AddPointCurve+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\RemovePointCurve+.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\DrawPanel\ApproxCurve+.png" />
   </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>

LeftTray/LeftTrayV.xaml

@@ -3,7 +3,6 @@
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
       xmlns:local="clr-namespace:EgtCAM5"
       DockPanel.Dock="Left">
-   
+
    <local:DrawPanelV DataContext="{StaticResource DrawPanelViewModel}"/>
-   
 </Grid>

MachGroupPanel/MyMachGroupPanelVM.vb

@@ -2,6 +2,7 @@
 Imports System.IO
 Imports EgtCAM5.MyMachinePanelVM
 Imports System.Security.Cryptography
+Imports System.Windows.Forms.AxHost
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -97,23 +98,20 @@ Public Class MyMachGroupPanelVM
             ' 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
                Return If(AddNewMachGroup(nGroupId, vPart), 0, 1)
-            Else
+         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 = EgtGetCurrMachGroup()
+            nGroupId = EgtGetFirstMachGroup()
-            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

MainWindow/MainWindowV.xaml

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

MainWindow/MainWindowVM.vb

@@ -16,6 +16,7 @@ Public Class MainWindowVM
    Private m_sDataRoot As String = String.Empty
    Private m_sConfigDir As String = String.Empty
    Private m_OnTerminateProcessCallback As New OnTerminateProcessCallback(AddressOf OnTerminateProcess)
+   Private m_IndexTab As Integer = 0
 
    ' EGALTECH ENVIRONMENT FIELDS WITH PROPERTY
 
@@ -385,8 +386,8 @@ Public Class MainWindowVM
          EgtSetLockId(sLockId)
       End If
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(3279, 2703, 1, IniFile.m_nKeyLevel) And
+      Dim bKey As Boolean = EgtGetKeyLevel(3279, 2611, 1, IniFile.m_nKeyLevel) And
-                            EgtGetKeyOptions(3279, 2703, 1, IniFile.m_nKeyOptions)
+                            EgtGetKeyOptions(3279, 2611, 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
@@ -422,14 +423,7 @@ Public Class MainWindowVM
       GetPrivateProfileString(S_GEOMDB, K_NFEFONTDIR, "", sNfeDir)
       GetPrivateProfileString(S_GEOMDB, K_DEFAULTFONT, "", OptionModule.m_sFontText)
       EgtSetFont(sNfeDir, OptionModule.m_sFontText)
-      ' Imposto dir di default per libreria Lua e lancio libreria di base
+      ' Imposto direttorio ausiliario per import/gestione BTL
-      Dim sLuaLibsDir As String = String.Empty
-      GetPrivateProfileString(S_LUA, K_LIBSDIR, "", sLuaLibsDir)
-      EgtSetLuaLibs(sLuaLibsDir)
-      Dim sLuaBaseLib As String = String.Empty
-      GetPrivateProfileString(S_LUA, K_BASELIB, "EgtBase", sLuaBaseLib)
-      EgtLuaRequire(sLuaBaseLib)
-      ' 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)
@@ -437,6 +431,13 @@ Public Class MainWindowVM
       Dim sThreeJSLibDir As String = String.Empty
       GetPrivateProfileString(S_EXPORT, K_THREEJSLIBDIR, "", sThreeJSLibDir)
       EgtSetThreeJSLibDir(sThreeJSLibDir)
+      ' Imposto dir di default per libreria Lua e lancio libreria di base
+      Dim sLuaLibsDir As String = String.Empty
+      GetPrivateProfileString(S_LUA, K_LIBSDIR, "", sLuaLibsDir)
+      EgtSetLuaLibs(sLuaLibsDir)
+      Dim sLuaBaseLib As String = String.Empty
+      GetPrivateProfileString(S_LUA, K_BASELIB, "EgtBase", sLuaBaseLib)
+      EgtLuaRequire(sLuaBaseLib)
       ' Imposto direttorio temporaneo a EgtInterface
       EgtSetTempDir(m_sTempDir)
       ' Imposto IniFile a EgtInterface
@@ -597,12 +598,6 @@ 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()

My Project/AssemblyInfo.vb

@@ -30,7 +30,7 @@ Imports System.Windows
 #End If
 <Assembly: AssemblyCompany("Egalware s.r.l.")> 
 <Assembly: AssemblyProduct("EgtCAM5")>
-<Assembly: AssemblyCopyright("Copyright ©  2016-2025 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2016-2024 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.7.3.2")>
+<Assembly: AssemblyVersion("2.6.11.1")>
-<Assembly: AssemblyFileVersion("2.7.3.2")>
+<Assembly: AssemblyFileVersion("2.6.11.1")>
 

OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderV.xaml

@@ -3,12 +3,12 @@
              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>
       <UniformGrid>
-         <TextBox Text="{Binding InfoBox, Mode=OneWay}" MaxHeight="100" IsReadOnly="True"
+         <TextBox Text="{Binding InfoBox, Mode=OneWay}" MaxHeight="250" IsReadOnly="True"
                   HorizontalScrollBarVisibility="Auto" VerticalScrollBarVisibility="Auto"/>
       </UniformGrid>
    </Expander>

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml

@@ -1,11 +1,9 @@
 <UserControl x:Class="InputExpanderV"
-             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml">
-             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <Expander Header="{Binding Title}" IsExpanded="{Binding IsExpanded}" IsEnabled="{Binding IsEnabled}"
-             Style="{StaticResource ExpanderStyle}">
+      Style="{StaticResource ExpanderStyle}">
       <StackPanel>
          <StackPanel.Style>
             <Style TargetType="{x:Type StackPanel}">
@@ -18,80 +16,26 @@
          </StackPanel.Style>
          <TextBlock Text="{Binding TextBlock}"
                     Visibility="{Binding TextVisibility}" Margin="5,5,0,5"/>
-         <Grid>
+         <TextBox Text="{Binding TextBox,UpdateSourceTrigger=PropertyChanged}"
-            <Grid.ColumnDefinitions>
+                  Visibility="{Binding TextVisibility}" Margin="5,0,5,5">
-               <ColumnDefinition Width="1*"/>
+            <TextBox.InputBindings>
-               <ColumnDefinition Width="Auto"/>
+               <KeyBinding Key="Enter" Command="{Binding DoneCommand}"/>
-            </Grid.ColumnDefinitions>
+               <KeyBinding Key="S" Modifiers="Control" Command="{Binding ShowCommand}"/>
-            <TextBox x:Name="Txt" Text="{Binding TextBox,UpdateSourceTrigger=PropertyChanged}"  
+            </TextBox.InputBindings>
-                     PreviewKeyDown="TextBox_PreviewKeyDown" Height="Auto"
+         </TextBox>
-                     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>
-            <Button Grid.Column="1" 
-                    Content="+"
-                    Command="{Binding ShowInfoItemCommand}"
-                    Visibility="{Binding ShowInfoItemVisibility}"
-                    Width="20"
-                    Height="20"
-                    Margin="5,-1,5,0" 
-                    VerticalAlignment="Top"/>
-         </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,5,5,5"/>
+                   Visibility="{Binding ComboVisibility}" Margin="5,0,5,5"/>
-
-         <ScrollViewer HorizontalScrollBarVisibility="Auto"
-                       VerticalScrollBarVisibility="Auto"
-                       MaxHeight="190"
-                       Margin="2,5,0,10">
-            <ItemsControl ItemsSource="{Binding InfoList}"
-                          Visibility="{Binding InfoVisibility}">
-               <ItemsControl.ItemTemplate>
-                  <DataTemplate>
-                     <Grid>
-                        <Grid.ColumnDefinitions>
-                           <ColumnDefinition Width="Auto"/>
-                           <ColumnDefinition Width="1*"/>
-                           <ColumnDefinition Width="Auto"/>
-                        </Grid.ColumnDefinitions>
-                        <TextBlock Text="{Binding Key}"
-                                   ToolTip="{Binding Key}"
-                                   Width="70"
-                                   HorizontalAlignment="Left"
-                                   Margin="0,6,0,0"/>
-                        <TextBox Grid.Column="1" 
-                                 Text="{Binding Valour, UpdateSourceTrigger=PropertyChanged}"
-                                 Margin="8,5,2,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="2,-2,4,5"/>
-                     </Grid>
-                  </DataTemplate>
-               </ItemsControl.ItemTemplate>
-            </ItemsControl>
-         </ScrollViewer>
-
          <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,11 +1,3 @@
 Public Class InputExpanderV
 
-   Private Sub TextBox_PreviewKeyDown(sender As Object, e As KeyEventArgs)
-      If (e.Key = Key.Enter  And  (Keyboard.Modifiers And ModifierKeys.Shift)= ModifierKeys.Shift) Or
-         (e.Key = Key.V  And  (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control) Then
-         Txt.AcceptsReturn = True
-         Txt.TextWrapping = TextWrapping.Wrap
-      End If
-   End Sub
-
 End Class

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderVM.vb

@@ -6,23 +6,6 @@ Public Class InputExpanderVM
 
 #Region "FIELDS & PROPERTIES"
 
-   ' 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(NameOf(tmpInfoList))
-      End Set
-   End Property
-
    ' Expander fields
    Private m_IsExpanded As Boolean
    Public Property IsExpanded As Boolean
@@ -31,7 +14,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As Boolean)
          m_IsExpanded = value
-         OnPropertyChanged(NameOf(IsExpanded))
+         OnPropertyChanged("IsExpanded")
       End Set
    End Property
 
@@ -42,7 +25,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As Boolean)
          m_IsEnabled = value
-         OnPropertyChanged(NameOf(IsEnabled))
+         OnPropertyChanged("IsEnabled")
       End Set
    End Property
 
@@ -53,7 +36,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As String)
          m_Title = value
-         OnPropertyChanged(NameOf(Title))
+         OnPropertyChanged("Title")
       End Set
    End Property
 
@@ -65,7 +48,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As String)
          m_TextBlock = value
-         OnPropertyChanged(NameOf(TextBlock))
+         OnPropertyChanged("TextBlock")
       End Set
    End Property
 
@@ -78,7 +61,7 @@ Public Class InputExpanderVM
       Set(value As String)
          m_TextBox = value
          Map.refProjectVM.NotifyInputText(value)
-         OnPropertyChanged(NameOf(TextBox))
+         OnPropertyChanged("TextBox")
       End Set
    End Property
 
@@ -90,7 +73,7 @@ Public Class InputExpanderVM
       Set(value As Visibility)
          If value <> m_TextVisibility Then
             m_TextVisibility = value
-            OnPropertyChanged(NameOf(TextVisibility))
+            OnPropertyChanged("TextVisibility")
          End If
       End Set
    End Property
@@ -102,7 +85,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As Boolean)
          m_FocusTextBox = value
-         OnPropertyChanged(NameOf(FocusTextBox))
+         OnPropertyChanged("FocusTextBox")
       End Set
    End Property
 
@@ -114,7 +97,7 @@ Public Class InputExpanderVM
       End Get
       Set(value As String)
          m_CheckBoxText = value
-         OnPropertyChanged(NameOf(CheckBoxText))
+         OnPropertyChanged("CheckBoxText")
       End Set
    End Property
 
@@ -127,7 +110,7 @@ Public Class InputExpanderVM
          If value <> m_IsChecked Then
             Map.refProjectVM.SetLastBoolean(value)
             m_IsChecked = value
-            OnPropertyChanged(NameOf(IsChecked))
+            OnPropertyChanged("IsChecked")
          End If
       End Set
    End Property
@@ -140,7 +123,7 @@ Public Class InputExpanderVM
       Set(value As Visibility)
          If value <> m_CheckVisibility Then
             m_CheckVisibility = value
-            OnPropertyChanged(NameOf(CheckVisibility))
+            OnPropertyChanged("CheckVisibility")
          End If
       End Set
    End Property
@@ -153,54 +136,19 @@ Public Class InputExpanderVM
       End Get
       Set(value As ObservableCollection(Of String))
          m_ComboItemsList = value
-         OnPropertyChanged(NameOf(ComboItemsList))
+         OnPropertyChanged("ComboItemsList")
       End Set
    End Property
 
-   Private m_InfoList As New ObservableCollection(Of InfoItem)
+   Private m_ComboSelectedIndex As Integer
-   ''' <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(NameOf(InfoList))
-      End Set
-   End Property
-
-   Private m_ComboSelectedIndex As Integer = GDB_ID.NULL
    Public Property ComboSelectedIndex As Integer
       Get
          Return m_ComboSelectedIndex
       End Get
       Set(value As Integer)
-         If m_tmpbShow Then Map.refProjectVM.SetLastInteger(value)
+         Map.refProjectVM.SetLastInteger(value)
          m_ComboSelectedIndex = value
-         ' Assegno l'indice selezionato ad una variabile temporanea per utilizzarlo quando rimuovo l'info dalla lista
+         OnPropertyChanged("ComboSelectedIndex")
-         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, 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
-         ' Rendo invisibile il pulsante per attivare la combo
-         If ComboItemsList.Count <= 0 Then ShowInfoItemVisibility = Visibility.Collapsed
-         m_ComboSelectedIndex = GDB_ID.NULL
-         OnPropertyChanged(NameOf(ComboSelectedIndex))
-         OnPropertyChanged(NameOf(ComboItemsList))
-         OnPropertyChanged(NameOf(InfoList))
       End Set
    End Property
 
@@ -212,7 +160,7 @@ Public Class InputExpanderVM
       Set(value As Visibility)
          If value <> m_ComboVisibility Then
             m_ComboVisibility = value
-            OnPropertyChanged(NameOf(ComboVisibility))
+            OnPropertyChanged("ComboVisibility")
          End If
       End Set
    End Property
@@ -225,47 +173,13 @@ Public Class InputExpanderVM
       End Get
       Set(value As Visibility)
          m_ShowBtnVisibility = value
-         OnPropertyChanged(NameOf(ShowBtnVisibility))
+         OnPropertyChanged("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(NameOf(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(NameOf(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"
 
@@ -343,18 +257,7 @@ 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
+      Map.refProjectVM.Done(m_TextBox)
-      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
-      ' Rimuovo eventuali spazi
-      Dim tmpTextBox As String = m_TextBox.Replace(" ", "")
-      Map.refProjectVM.Done(tmpTextBox)
    End Sub
 
    ''' <summary>
@@ -366,30 +269,6 @@ 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"
@@ -400,37 +279,13 @@ Public Class InputExpanderVM
          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 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 InfoList
-            GetInfoList()
-            ' Rendo visibile il pulsante che mostra la lista delle info
-            ShowInfoItemVisibility = If(m_ComboItemsList.Count > 0, Visibility.Visible, Visibility.Collapsed)
-         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
@@ -447,8 +302,6 @@ Public Class InputExpanderVM
       CheckVisibility = Visibility.Collapsed
       ComboVisibility = Visibility.Collapsed
       ShowBtnVisibility = Visibility.Collapsed
-      ShowInfoItemVisibility = Visibility.Collapsed
-      InfoVisibility = Visibility.Collapsed
       IsExpanded = False
       IsEnabled = False
    End Sub
@@ -476,42 +329,12 @@ 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)
-      ' Rendo visibile il pulsante per attivare la combo
-      ShowInfoItemVisibility = Visibility.Visible
-   End Sub
-
-   Private Sub GetInfoList()
-      Dim tmpInfoList As String() = Nothing
-      Dim sKeyVal() As String = Nothing
-      Dim Index As Integer = 0
-      EgtGetAllInfo(Map.refManageLayerExpanderVM.m_nObjTreeOldId, tmpInfoList)
-      If Not IsNothing(tmpInfoList) Then
-         For Each ItemInfo As String In tmpInfoList
-            sKeyVal = ItemInfo.Trim().Split(New Char() {"="c})
-            InfoList.Add(New InfoItem(Index, sKeyVal(0), sKeyVal(1)))
-            Index += 1
-         Next
-      End If
-   End Sub
-
 #End Region    ' Methods
 
 End Class

OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb

@@ -69,17 +69,17 @@ Public Class LayerTreeViewItem
          Return m_bOnOff
       End Get
       Set(value As Boolean)
-         'If Map.refProjectVM.GetController().GetStep() <> 0 Then Return
+         If Map.refProjectVM.GetController().GetStep() <> 0 Then Return
          If m_bOnOff <> value Then
             m_bOnOff = value
             ' se abilitato, eseguo operazione
             If m_SendCmd Then
+               Map.refProjectVM.SetLastInteger(Id)
                If value Then
-                  EgtSetStatus(Id, GDB_ST.ON_)
+                  Map.refProjectVM.ExecuteCommand(Controller.CMD.SHOW)
                Else
-                  EgtSetStatus(Id, GDB_ST.OFF)
+                  Map.refProjectVM.ExecuteCommand(Controller.CMD.HIDE)
                End If
-               EgtDraw()
             End If
             Dim bOnOffGroup As Boolean = ((Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift) AndAlso Items.Count > 0
             If bOnOffGroup Then
@@ -103,7 +103,6 @@ Public Class LayerTreeViewItem
                EgtDraw()
             End If
          End If
-         Map.refProjectVM.EmitTitle()
       End Set
    End Property
 

OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderV.xaml

@@ -20,8 +20,8 @@
             <Button Content="{Binding NewLayerMsg}" Command="{Binding NewLayerCommand}"  Height="30"/>
             <Button Content="{Binding ColorMsg}" Command="{Binding LayerColorCommand}"  Height="30"/>
          </UniformGrid>
-
+         
-         <TreeView x:Name="LayerTreeView" MinHeight="300" MaxHeight="400" 
+         <TreeView Name="LayerTreeView" MinHeight="250" MaxHeight="400" 
                    ItemsSource="{Binding Path=LayerList}"
                    VirtualizingStackPanel.IsVirtualizing = "True"
                    VirtualizingStackPanel.VirtualizationMode = "Recycling">
@@ -50,8 +50,8 @@
                         <ColumnDefinition Width="Auto"/>
                      </Grid.ColumnDefinitions>
 
-                     <ToggleButton Style="{StaticResource EgtCAM5_LampToggleButton}" Grid.Column="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"/>
+                                   IsChecked="{Binding OnOff}" Visibility="{Binding IsHidden}" Focusable="False" 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"/>
                      <Ellipse Grid.Column="3" Height="10" Width="10" Fill="{Binding LayerColor}" />
@@ -61,7 +61,7 @@
             </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/ManageLayerExpanderVM.vb

@@ -166,7 +166,7 @@ Public Class ManageLayerExpanderVM
    Public Sub NewPart(ByVal param As Object)
       Map.refProjectVM.ExecuteCommand(Controller.CMD.NEWPART)
       ' Seleziono nell'albero il layer del pezzo appena creato
-      SelectIdInObjTreeNoMark(EgtGetCurrLayer())
+      SelectIdInObjTree(EgtGetCurrLayer(), False)
    End Sub
 
 #End Region ' NewPartCommand
@@ -191,7 +191,7 @@ Public Class ManageLayerExpanderVM
    Public Sub NewLayer(ByVal param As Object)
       Map.refProjectVM.ExecuteCommand(Controller.CMD.NEWLAYER)
       ' Seleziono nell'albero il layer appena creato
-      SelectIdInObjTreeNoMark(EgtGetCurrLayer())
+      SelectIdInObjTree(EgtGetCurrLayer(), False)
    End Sub
 
 #End Region ' NewLayerCommand
@@ -492,7 +492,7 @@ Public Class ManageLayerExpanderVM
       Map.refProjectVM.SetLastInteger(RightClickedTreeItemId)
       Map.refProjectVM.ExecuteCommand(Controller.CMD.DELETE)
       ' Seleziono prossimo
-      SelectIdInObjTreeNoMark(nNewId)
+      SelectIdInObjTree(nNewId, False)
    End Sub
 
 #End Region ' DeleteCommand
@@ -528,18 +528,16 @@ Public Class ManageLayerExpanderVM
 #Region "METHODS"
 
    Private WithEvents ObjTreeTimer As New System.Windows.Threading.DispatcherTimer
-   Friend m_nObjTreeOldId As Integer = GDB_ID.NULL
+   Private m_nObjTreeOldId As Integer = GDB_ID.NULL
    Private m_nObjTreeMenuId As Integer = GDB_ID.NULL
    Private m_bEnableUpdateObjInObjTree As Boolean = True
 
    Friend Sub SelectIdInObjTreeNoMark(nId As Integer)
-      LayerTreeViewItem.m_MarkOnSel = False
+      SelectIdInObjTree(nId, False)
-      MySelectIdInObjTree(nId)
-      LayerTreeViewItem.m_MarkOnSel = True
    End Sub
 
    Friend Sub SelectIdInObjTree(nId As Integer)
-      MySelectIdInObjTree(nId)
+      SelectIdInObjTree(nId, True)
    End Sub
 
    Friend Sub UpdateObjTreeOldId(ObjTreeOldId As Integer)
@@ -583,7 +581,7 @@ Public Class ManageLayerExpanderVM
       AddGroupInObjTree(GDB_ID.ROOT, GDB_LV.USER, GDB_MD.STD, 0, LayerList)
       If nOldId <> GDB_ID.NULL Then
          m_bEnableUpdateObjInObjTree = False
-         If Not MySelectIdInObjTree(nOldId) Then
+         If Not SelectIdInObjTree(nOldId, True) Then
             Map.refInfoExpanderVM.SetInfoBox(String.Empty)
          End If
          m_bEnableUpdateObjInObjTree = True
@@ -805,11 +803,14 @@ Public Class ManageLayerExpanderVM
       Return nOldId
    End Function
 
-   Private Function MySelectIdInObjTree(nId As Integer) As Boolean
+   Private Function SelectIdInObjTree(nId As Integer, bMark As Boolean) As Boolean
       Dim tNode As LayerTreeViewItem = SearchIdInLayerList(LayerList, nId, True)
       If Not IsNothing(tNode) Then
+         If Not bMark Then LayerTreeViewItem.m_MarkOnSel = False
          tNode.IsSelected = True
          tNode.NotifyPropertyChanged("IsSelected")
+         If Not bMark Then LayerTreeViewItem.m_MarkOnSel = True
+         tNode.IsExpanded = True
          m_nObjTreeOldId = nId
          Return True
       Else

OptionPanel/DrawOptionPanelV.xaml

@@ -1,15 +1,30 @@
 <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:x="http://schemas.microsoft.com/winfx/2006/xaml" 
              xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5">
 
-   <StackPanel Name="ciao" Background="Transparent" Margin="0,0,3.5001,0" MaxHeight="{Binding MaxHeight,RelativeSource={RelativeSource AncestorType={x:Type EgtFloating:EgtFloatingPanel}}}">
+   <!--<StackPanel Name="ciao" Background="Transparent" 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--><!--
+      <ContentPresenter Content="{Binding InfoExpander}"/>
+      --><!--ContentPresenter that contains the InputExpander--><!--
+      <ContentPresenter Content="{Binding InputExpander}"/>
+   </StackPanel>-->
+   <Grid Name="ciao" Background="Transparent" MaxHeight="{Binding MaxHeight,RelativeSource={RelativeSource AncestorType={x:Type EgtFloating:EgtFloatingPanel}}}">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
       <!--ContentPresenter that contains the ManageLayerExpander-->
       <ContentPresenter Content="{Binding ManageLayerExpander,Mode=OneWay}"/>
+      <GridSplitter Grid.Row="0" Height="5" Background="Transparent" HorizontalAlignment="Stretch" VerticalAlignment="Bottom"/>
       <!--ContentPresenter that contains the InfoExpander-->
-      <ContentPresenter Content="{Binding InfoExpander}"/>
+      <ContentPresenter Grid.Row="1" Content="{Binding InfoExpander}"/>
+      <GridSplitter Grid.Row="1" Height="5" Background="Transparent" HorizontalAlignment="Stretch" VerticalAlignment="Bottom"/>
       <!--ContentPresenter that contains the InputExpander-->
-      <ContentPresenter Content="{Binding InputExpander}"/>
+      <ContentPresenter Grid.Row="2" Content="{Binding InputExpander}"/>
-   </StackPanel>
+   </Grid>
 
 </UserControl>

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderVM.vb

@@ -273,7 +273,7 @@ Public Class DispositionParameterExpanderVM
       End If
       Select Case m_ActiveObject
          Case ObjectType.RAWPART
-            ' Abilito la selezione dei Grezzi
+            ' Abilito la selezione delle Fixture
             Map.refProjectVM.SceneSelType = SceneSelTypeOpt.RAWPART
          Case ObjectType.FIXTURE
             ' Abilito la selezione delle Fixture

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionUtility.vb

@@ -1,4 +1,5 @@
-Imports EgtUILib
+Imports System.Windows.Forms.AxHost
+Imports EgtUILib
 Imports Microsoft.VisualBasic.ApplicationServices
 
 Public NotInheritable Class DispositionUtility
@@ -774,9 +775,6 @@ Public NotInheritable Class DispositionUtility
       m_nUsedHookId = nNearestHookId
       ' Segno hook come utilizzato
       SetHookUsed(m_nUsedHookId, nMoveId, True)
-      Dim sLinkName As String = ""
-      EgtGetName( EgtGetParent( m_nUsedHookId), sLinkName)
-      EgtSetFixtureLink( nMoveId, sLinkName)
       Return True
    End Function
 

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

@@ -62,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
@@ -76,7 +76,6 @@ Public Class FixtureParametersVM
 
    Friend Sub UpdateFixtureTypeList()
       m_FixtureTypeList = New ObservableCollection(Of FixtureListItem)(FixtureType.ReadFixtureTypeFromMachIni())
-      UpdateFixtureCount()
       OnPropertyChanged("FixtureTypeList")
    End Sub
 
@@ -141,7 +140,6 @@ Public Class FixtureParametersVM
                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
@@ -299,7 +297,6 @@ Public Class FixtureParametersVM
                Else
                   DispositionUtility.AddHookUsed( nCurrHookId, nFixtureId)
                End If
-               EgtSetFixtureLink( nFixtureId, "")
                Return True
             Else
                EgtStartPoint(nFixtHookId, GDB_ID.ROOT, ptFixtHook)
@@ -323,7 +320,6 @@ Public Class FixtureParametersVM
                   Else
                      DispositionUtility.AddHookUsed( nCurrHookId, nFixtureId)
                   End If
-                  EgtSetFixtureLink( nFixtureId, "")
                   Return True
                Else
                   EgtStartPoint(nFixtHookId, GDB_ID.ROOT, ptFixtHook)
@@ -352,7 +348,6 @@ Public Class FixtureParametersVM
                      Else
                         DispositionUtility.AddHookUsed( nCurrHookId, nFixtureId)
                      End If
-                     EgtSetFixtureLink( nFixtureId, sBarName)
                      Return True
                   Else
                      EgtStartPoint(nFixtHookId, GDB_ID.ROOT, ptFixtHook)
@@ -378,7 +373,6 @@ Public Class FixtureParametersVM
                            Else
                               DispositionUtility.AddHookUsed( nCurrHookId, nFixtureId)
                            End If
-                           EgtSetFixtureLink( nFixtureId, sCharName)
                            Return True
                         Else
                            EgtStartPoint(nFixtHookId, GDB_ID.ROOT, ptFixtHook)

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

@@ -117,7 +117,7 @@ Public Class RawPartOptionVM
    End Property
 
    ''' <summary>
-   ''' Execute NewRawPart.  This method is invoked by the DoneCommand.
+   ''' Execute the Point.  This method is invoked by the DoneCommand.
    ''' </summary>
    Public Sub NewRawPart()
       DispositionUtility.ShowParts()
@@ -127,36 +127,6 @@ Public Class RawPartOptionVM
 
 #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

@@ -109,6 +109,34 @@
                                    Visibility="{Binding SysNotes_Visibility}"
                                    IsReadOnly="True"/>
          </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"
@@ -236,7 +264,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"
@@ -266,6 +294,43 @@
             </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}" 
@@ -304,6 +369,43 @@
             </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}" 
@@ -342,6 +444,53 @@
             </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}" 
@@ -422,7 +571,7 @@
                                         Style="{DynamicResource StringParamV_Margin}"/>
             </StackPanel>
          </Expander>
-
+      
          <Interactivity:Interaction.Behaviors>
             <EgtCAM5:AutomaticCloseExpander/>
          </Interactivity:Interaction.Behaviors>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/ChiselingParameterExpanderV.xaml

@@ -224,7 +224,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

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

@@ -80,4 +80,16 @@ Public Class FiveAxisMachinigParameterExpanderV
       Return TryCast(target, T)
    End Function
 
+   Private Sub StackPanel_PreviewKeyDown(sender As Object, e As KeyEventArgs)
+      If e.Key = Key.Tab Then
+         Dim s As EgtWPFLib5.StringParamV = TryCast(e.OriginalSource, EgtWPFLib5.StringParamV)
+
+         If Not IsNothing(s) Then
+            s.MoveFocus(New TraversalRequest(FocusNavigationDirection.Next))
+         End If
+
+         e.Handled = True
+      End If
+
+   End Sub
 End Class

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/GenMachiningParameterExpanderV.xaml

@@ -214,7 +214,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MortisingParameterExpanderV.xaml

@@ -232,7 +232,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/PocketingParameterExpanderV.xaml

@@ -129,13 +129,13 @@
                                                             UpdateSourceTrigger=PropertyChanged,
                                                             ValidatesOnDataErrors=True}" 
                                         Style="{DynamicResource StringParamV_Margin}"/>
-               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSrTxBl}" 
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSlTxBl}" 
-                                        ParamTxBx="{Binding Path=OffSr,
+                                        ParamTxBx="{Binding Path=OffSl,
                                                             UpdateSourceTrigger=PropertyChanged,
                                                             ValidatesOnDataErrors=True}" 
                                         Style="{DynamicResource StringParamV_Margin}"/>
-               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSlTxBl}" 
+               <EgtWPFLib5:StringParamV ParamTxBl="{Binding OffsetSrTxBl}" 
-                                        ParamTxBx="{Binding Path=OffSl,
+                                        ParamTxBx="{Binding Path=OffSr,
                                                             UpdateSourceTrigger=PropertyChanged,
                                                             ValidatesOnDataErrors=True}" 
                                         Style="{DynamicResource StringParamV_Margin}"/>
@@ -241,7 +241,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneDrillingParameterExpanderV.xaml

@@ -213,7 +213,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneMillingParameterExpanderV.xaml

@@ -217,7 +217,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawFinishingParameterExpanderV.xaml

@@ -211,7 +211,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawRoughingParameterExpanderV.xaml

@@ -209,7 +209,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawingParameterExpanderV.xaml

@@ -217,7 +217,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/SurfFinishingParameterExpanderV.xaml

@@ -124,6 +124,12 @@
                                                             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:StringParamV ParamTxBl="{Binding SideAngleTxBl}" 
                                         ParamTxBx="{Binding Path=SideAngle,
                                                             UpdateSourceTrigger=PropertyChanged,
@@ -224,7 +230,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WaterjettingParameterExpanderV.xaml

@@ -199,7 +199,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodDrillingParameterExpanderV.xaml

@@ -218,7 +218,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodMillingParameterExpanderV.xaml

@@ -236,7 +236,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodSawingParameterExpanderV.xaml

@@ -226,7 +226,7 @@
                                              IsReadOnly="False"/>
                                  </TabItem>
                                  <TabItem Header="CHECKBOX">
-                                    <CheckBox IsChecked="{Binding Value, UpdateSourceTrigger=PropertyChanged}"/>
+                                    <CheckBox IsChecked="{Binding Value}"/>
                                  </TabItem>
                               </TabControl>
                               <Button Command="{Binding RemoveItemNoteCommand}"

OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/DispositionOpListBoxItem.vb

@@ -5,25 +5,26 @@ Public Class DispositionOpListBoxItem
 
    Public Property StatusAll As Boolean?
       Get
-         ' Ottieni gli indici delle operazioni e calcola il valore aggregato
+         ' Recupero gli indici delle operazioni della Disposizione corrente
-         Return GetUnifiedStatus(Function(item) item.Status)
+         Dim OpIndexes As List(Of Integer) = GetOpIndexes()
+         ' Ritorno il valore specificato in base agli stati delle operazioni di cui abbiamo raccolto gli indici
+         If OpIndexes.Count = 0 Then Return False
+         Dim bTemp As Boolean = DirectCast(Map.refOperationsListExpanderVM.OperationList.Item(OpIndexes(0)), MachiningOpListBoxItem).Status
+         For OpInDispIndex = 1 To OpIndexes.Count - 1
+            If DirectCast(Map.refOperationsListExpanderVM.OperationList.Item(OpIndexes(OpInDispIndex)), MachiningOpListBoxItem).Status <> bTemp Then Return Nothing
+         Next
+         Return bTemp
       End Get
       Set(value As Boolean?)
-         ' Aggiorna lo stato delle operazioni
+         ' Recupero gli indici delle operazioni della Disposizione corrente
-         UpdateAllStatus(value, Sub(item, val) item.Status = CBool(val))
+         Dim OpIndexes As List(Of Integer) = GetOpIndexes()
-         NotifyPropertyChanged(NameOf(StatusAll))
+         If OpIndexes.Count = 0 Then
-      End Set
+            NotifyPropertyChanged(NameOf(StatusAll))
-   End Property
+            Return
-
+         End If
-   Public Property OnOffAll As Boolean?
+         For Each OpInDispIndex In OpIndexes
-      Get
+            DirectCast(Map.refOperationsListExpanderVM.OperationList.Item(OpInDispIndex), MachiningOpListBoxItem).Status = If(IsNothing(value), False, CBool(value))
-         ' Ottieni gli indici delle operazioni e calcola il valore aggregato
+         Next
-         Return GetUnifiedStatus(Function(item) item.OnOff)
-      End Get
-      Set(value As Boolean?)
-         ' Aggiorna lo stato delle operazioni
-         UpdateAllStatus(value, Sub(item, val) item.OnOff = val)
-         NotifyPropertyChanged(NameOf(OnOffAll))
       End Set
    End Property
 
@@ -52,7 +53,6 @@ Public Class DispositionOpListBoxItem
             Exit For
          End If
       Next
-
       ' Inserisco in una lista gli indici delle operazioni della Disposizione (a partire dunque dall'indice trovato)
       Dim OpIndexes As New List(Of Integer)()
       Dim OpIndex As Integer = DispIndex + 1
@@ -64,28 +64,4 @@ Public Class DispositionOpListBoxItem
       Return OpIndexes
    End Function
 
-   ' Metodo per calcolare il valore aggregato (Checked/Unchecked/Indeterminate)
-   Private Function GetUnifiedStatus(getStatus As Func(Of MachiningOpListBoxItem, Boolean?)) As Boolean?
-      Dim OpIndexes As List(Of Integer) = GetOpIndexes()
-      If OpIndexes.Count = 0 Then Return False
-
-      Dim firstStatus = getStatus(DirectCast(Map.refOperationsListExpanderVM.OperationList.Item(OpIndexes(0)), MachiningOpListBoxItem))
-      For Each index In OpIndexes.Skip(1)
-         Dim currentStatus = getStatus(DirectCast(Map.refOperationsListExpanderVM.OperationList.Item(index), MachiningOpListBoxItem))
-         If currentStatus <> firstStatus Then Return Nothing
-      Next
-      Return firstStatus
-   End Function
-
-   ' Metodo per aggiornare lo stato di tutte le operazioni
-   Private Sub UpdateAllStatus(value As Boolean?, updateStatus As Action(Of MachiningOpListBoxItem, Boolean?))
-      Dim OpIndexes As List(Of Integer) = GetOpIndexes()
-      If OpIndexes.Count = 0 Then Return
-
-      For Each index In OpIndexes
-         Dim item = DirectCast(Map.refOperationsListExpanderVM.OperationList.Item(index), MachiningOpListBoxItem)
-         updateStatus(item, If(IsNothing(value), False, CBool(value)))
-      Next
-   End Sub
-
 End Class

OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/MachiningOpListBoxItem.vb

@@ -1,4 +1,6 @@
-Imports EgtUILib
+Imports System.ComponentModel
+Imports System.Collections.ObjectModel
+Imports EgtUILib
 
 Public Class MachiningOpListBoxItem
    Inherits OperationListBoxItem
@@ -26,29 +28,11 @@ Public Class MachiningOpListBoxItem
                   End If
                   OpIndex += 1
                Next
-
-               ' Se Operazione selezionata metto la lampadina in stato false
-               For Each tmpItem As MachiningOpListBoxItem In Map.refOperationsListExpanderVM.tmpOperationList
-                  If tmpItem.Id = Id Then
-                     If tmpItem.OnOff Then
-                        EgtSetStatus(tmpItem.Id, GDB_ST.OFF)
-                        tmpItem.m_bThreeState = False
-                        tmpItem.OnOff = False
-                        Exit For
-                     Else
-                        EgtSetStatus(tmpItem.Id, GDB_ST.ON_)
-                        tmpItem.OnOff = True
-                        Exit For
-                     End If
-                  End If
-               Next
-
                ' Notifico StatusAll per calcolare lo stato della CheckBox della Disposizione
                Map.refOperationsListExpanderVM.OperationList(DispIndex).NotifyPropertyChanged(NameOf(DispositionOpListBoxItem.StatusAll))
                EgtSetOperationMode(Id, m_Status)
                EgtDraw()
             End If
-            Map.refProjectVM.EmitTitle()
             NotifyPropertyChanged(NameOf(Status))
          End If
       End Set
@@ -117,10 +101,10 @@ Public Class MachiningOpListBoxItem
             RaiseEvent m_ModifyNameGetFocus()
             ' se esco da modifica
          End If
-         NotifyPropertyChanged(NameOf(ModifiedName))
+         NotifyPropertyChanged("ModifiedName")
-         NotifyPropertyChanged(NameOf(Name))
+         NotifyPropertyChanged("Name")
-         NotifyPropertyChanged(NameOf(Name_Visibility))
+         NotifyPropertyChanged("Name_Visibility")
-         NotifyPropertyChanged(NameOf(ModifyName_Visibility))
+         NotifyPropertyChanged("ModifyName_Visibility")
       End Set
    End Property
 
@@ -142,35 +126,6 @@ Public Class MachiningOpListBoxItem
       End Get
    End Property
 
-   Public m_bThreeState As Boolean = False
-   Private m_bOnOff As Boolean? = True
-   Public Property OnOff As Boolean?
-      Get
-         Return m_bOnOff
-      End Get
-      Set(value As Boolean?)
-         ' Controllo se la lampadina è messa in stato Nothing e value e false
-         m_bOnOff = If(m_bThreeState AndAlso Not value, True, value)
-         Dim bOldEnMod As Boolean = EgtGetEnableModified()
-         EgtDisableModified()
-         ' se abilitato, eseguo operazione
-         Dim status As Integer = GDB_ST.OFF
-         ' Controllo se lo stato della lampadina è true o nullo
-         If m_bOnOff OrElse IsNothing(m_bOnOff) Then
-            status = GDB_ST.ON_
-         End If
-         ' Modifica lo stato della checkbox all delle lampadine
-         ModifyStatusLamp()
-         ' Setto lo stato della lampadina
-         EgtSetStatus(Id, status)
-         If bOldEnMod Then EgtEnableModified()
-         If Map.refOperationsListExpanderVM.ForceDrawInIsSelected Then EgtDraw()
-         m_bThreeState = False
-         Map.refProjectVM.EmitTitle()
-         NotifyPropertyChanged(NameOf(OnOff))
-      End Set
-   End Property
-
    ' Definizione comandi
    Private m_cmdModifyNameEnter As ICommand
    Private m_cmdModifyNameEsc As ICommand
@@ -222,21 +177,6 @@ Public Class MachiningOpListBoxItem
       End Select
    End Function
 
-   Private Sub ModifyStatusLamp()
-      ' Recupero l'indice dell'operazione a cui abbiamo appena modificato lo Status e l'indice della Disposizione che la contiene
-      Dim DispIndex As Integer = 0
-      Dim OpIndex As Integer = 0
-      For Each OpItem In Map.refOperationsListExpanderVM.OperationList
-         If EgtGetOperationType(OpItem.Id) = MCH_OY.DISP Then DispIndex = OpIndex
-         If OpItem.Id = Id Then
-            Exit For
-         End If
-         OpIndex += 1
-      Next
-      ' Notifico StatusAll per calcolare lo stato della CheckBox della Disposizione
-      Map.refOperationsListExpanderVM.OperationList(DispIndex).NotifyPropertyChanged(NameOf(DispositionOpListBoxItem.OnOffAll))
-   End Sub
-
 #Region "COMMANDS"
 
 #Region "ModifyNameEnterCommand"
@@ -271,7 +211,7 @@ Public Class MachiningOpListBoxItem
             m_CloseModifyLostFocus = False
             MessageBox.Show(EgtMsg(MSG_OPERATION + 22), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
             m_IsActive_ModifyName = True
-            NotifyPropertyChanged(NameOf(ModifyName_Visibility))
+            NotifyPropertyChanged("ModifyName_Visibility")
             m_Spy = True
             Return
          End If

OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/OperationListBoxItem.vb

@@ -36,7 +36,7 @@ Public Class OperationListBoxItem
       Set(value As Boolean)
          If Not IsNothing(value) Then
 
-            Dim indexes As New List(Of OperationListBoxItem)
+            Dim indexes As List(Of OperationListBoxItem) = New List(Of OperationListBoxItem)
             Dim Count As Integer = 0
             For Each OperationListBoxItem In Map.refOperationsListExpanderVM.OperationList
                If OperationListBoxItem.IsSelected And OperationListBoxItem.Id <> m_Id Then
@@ -45,23 +45,6 @@ Public Class OperationListBoxItem
                End If
             Next
 
-            ' Se Operazione selezionata metto la lampadina in stato Nothing
-            For Each tmpItem As MachiningOpListBoxItem In Map.refOperationsListExpanderVM.tmpOperationList
-               If tmpItem.Id = Id Then
-                  If IsNothing(tmpItem.OnOff) Then
-                     EgtSetStatus(tmpItem.Id, GDB_ST.OFF)
-                     tmpItem.m_bThreeState = False
-                     tmpItem.OnOff = False
-                     Exit For
-                  ElseIf Not tmpitem.OnOff AndAlso Not m_IsSelected Then
-                     EgtSetStatus(tmpItem.Id, GDB_ST.SEL)
-                     tmpItem.OnOff = Nothing
-                     tmpItem.m_bThreeState = True
-                     Exit For
-                  End If
-               End If
-            Next
-
             If indexes.Count > 0 Then
                If EgtGetOperationPhase(Id) <> EgtGetOperationPhase(indexes(0).Id) Then
                   Return
@@ -89,9 +72,9 @@ Public Class OperationListBoxItem
 
                Map.refOperationsListExpanderVM.OnPropertyChanged("MoveUp_IsEnabled")
                Map.refOperationsListExpanderVM.OnPropertyChanged("MoveDown_IsEnabled")
-               NotifyPropertyChanged(NameOf(IsSelected))
+               NotifyPropertyChanged("IsSelected")
                ' Aggiorno visualizzazione
-               If Map.refOperationsListExpanderVM.ForceDrawInIsSelected Then EgtDraw()
+               EgtDraw()
                Return
             End If
             ' Imposto la fase di lavorazione corrente
@@ -141,7 +124,7 @@ Public Class OperationListBoxItem
                Map.refMachiningTreeExpanderVM.nSelectedOperationId = Me.Id
             End If
             ' Aggiorno visualizzazione
-            If Map.refOperationsListExpanderVM.ForceDrawInIsSelected Then EgtDraw()
+            EgtDraw()
          End If
          ' Resetto valori slider
          If Not IsNothing(Map.refMachiningParameterExpanderVM) Then
@@ -153,7 +136,7 @@ Public Class OperationListBoxItem
          Map.refOperationsListExpanderVM.OnPropertyChanged("DuplicateCmd_IsEnabled")
          Map.refOperationsListExpanderVM.OnPropertyChanged("MachToDb_IsEnabled")
          Map.refOperationsListExpanderVM.OnPropertyChanged("Rename_IsEnabled")
-         NotifyPropertyChanged(NameOf(IsSelected))
+         NotifyPropertyChanged("IsSelected")
       End Set
    End Property
 

OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderV.xaml

@@ -1,10 +1,10 @@
 <UserControl x:Class="OperationsListExpanderV"
-             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
+   xmlns:sys="clr-namespace:System;assembly=mscorlib"
-             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+   xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <StackPanel Name="OperationsListExpanderViewStackPanel" IsEnabled="{Binding OpersListViewIsEnabled}">
 
@@ -27,9 +27,9 @@
                   <DataTemplate DataType="{x:Type EgtCAM5:MachiningOpListBoxItem}">
                      <DataTemplate.Resources>
                         <Style x:Key="LayoutRoot" TargetType="Grid">
-                           <!--<Style.Triggers>-->
+                           <!--<Style.Triggers>
-                           <!--these are the triggers that make the code cursor jump from box 1 to box 2 to box 3.-->
+                              --><!--these are the triggers that make the code cursor jump from box 1 to box 2 to box 3.--><!--
-                           <!--<DataTrigger Binding="{Binding ElementName=Box, Path=Visibility}" Value="Visible">
+                              <DataTrigger Binding="{Binding ElementName=Box, Path=Visibility}" Value="Visible">
                                  <Setter Property="FocusManager.FocusedElement" Value="{Binding ElementName=Box}"/>
                               </DataTrigger>
                            </Style.Triggers>-->
@@ -38,12 +38,11 @@
                      <Border Background="Transparent">
                         <Border.InputBindings>
                            <MouseBinding MouseAction="LeftDoubleClick"
-                                         Command="{Binding DataContext.OperationListDoubleClickCommand, RelativeSource={RelativeSource AncestorType={x:Type EgtCAM5:OperationsListExpanderV}}}"
+                                      Command="{Binding DataContext.OperationListDoubleClickCommand, RelativeSource={RelativeSource AncestorType={x:Type EgtCAM5:OperationsListExpanderV}}}"
-                                         CommandParameter="{Binding Id}"/>
+                                      CommandParameter="{Binding Id}"/>
                         </Border.InputBindings>
                         <Grid Style="{StaticResource LayoutRoot}">
                            <Grid.ColumnDefinitions>
-                              <ColumnDefinition Width="Auto"/>
                               <ColumnDefinition Width="Auto"/>
                               <ColumnDefinition Width="Auto"/>
                               <ColumnDefinition Width="1*"/>
@@ -51,13 +50,9 @@
                            </Grid.ColumnDefinitions>
                            <CheckBox IsChecked="{Binding Status}" Margin="0,0,5,0"/>
                            <Image Source="{Binding Image}" Height="15" Margin="0,0,5,0"/>
-                           <!--<ToggleButton Style="{StaticResource EgtCAM5_LampToggleButton}" Grid.Column="1" 
+                           <TextBlock Grid.Column="1" Text="{Binding Name}"
-                                         IsChecked="{Binding OnOff}" Visibility="{Binding IsHidden}" Focusable="True" Height="15" Width="15" Margin="0,0,5,0"/>-->
-                           <CheckBox Style="{StaticResource EgtCAM5_LampToggleButton}" Grid.Column="1" 
-                                     IsChecked="{Binding OnOff}" Height="15" Width="15" Margin="0,0,5,0"/>
-                           <TextBlock Grid.Column="2" Text="{Binding Name}"
                                       Visibility="{Binding Name_Visibility}" Margin="0,0,5,0"/>
-                           <TextBox Grid.Column="2" Text="{Binding ModifiedName, UpdateSourceTrigger=PropertyChanged}"
+                           <TextBox Grid.Column="1" Text="{Binding ModifiedName, UpdateSourceTrigger=PropertyChanged}"
                                     Width="150"
                                     x:Name="Box"
                                     Visibility="{Binding ModifyName_Visibility}" Margin="0,0,5,0">
@@ -68,7 +63,7 @@
                                  <KeyBinding Key="Escape" Command="{Binding ModifyNameEscCommand}"/>
                               </TextBox.InputBindings>
                            </TextBox>
-                           <TextBlock Grid.Column="3" Text="{Binding Info}"/>
+                           <TextBlock Grid.Column="2" Text="{Binding Info}"/>
                         </Grid>
                      </Border>
                   </DataTemplate>
@@ -76,17 +71,14 @@
                      <Border CornerRadius="1" Background="{StaticResource EgaltechBlue3}">
                         <Border.InputBindings>
                            <MouseBinding MouseAction="LeftDoubleClick"
-                                         Command="{Binding DataContext.OperationListDoubleClickCommand, RelativeSource={RelativeSource AncestorType={x:Type EgtCAM5:OperationsListExpanderV}}}"
+                                      Command="{Binding DataContext.OperationListDoubleClickCommand, RelativeSource={RelativeSource AncestorType={x:Type EgtCAM5:OperationsListExpanderV}}}"
-                                         CommandParameter="{Binding Id}"/>
+                                      CommandParameter="{Binding Id}"/>
                         </Border.InputBindings>
                         <StackPanel Orientation="Horizontal">
                            <CheckBox IsChecked="{Binding StatusAll}" VerticalAlignment="Center" Margin="0,0,5,0"/>
-                           <CheckBox IsChecked="{Binding OnOffAll}" Style="{StaticResource EgtCAM5_LampToggleButton}" Height="15" Width="15" VerticalAlignment="Center" Margin="0,0,5,0"/>
-                           <!--<ToggleButton Style="{StaticResource EgtCAM5_LampToggleButton}"
-                                         IsChecked="{Binding OnOffAll}" Visibility="{Binding IsHidden}" Focusable="True" Height="15" Width="15" Margin="0,0,5,0"/>-->
                            <Image Source="{Binding Image}" Height="15" Margin="0,0,5,0"/>
                            <TextBlock Text="{Binding Name}" Foreground="White"
-                                      FontSize="15" FontWeight="SemiBold"/>
+                        FontSize="15" FontWeight="SemiBold"/>
                         </StackPanel>
                      </Border>
                   </DataTemplate>

OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderVM.vb

@@ -84,7 +84,6 @@ Public Class OperationsListExpanderVM
       Set(value As Boolean)
          If value <> m_ListIsExpanded Then
             Map.refMachiningOptionPanelVM.Set_IsExpanded(MachiningOptionPanelVM.MachiningOptionPanelExpander.OPERATIONLIST, value)
-            SetStatusOnLamp()
          End If
       End Set
    End Property
@@ -112,37 +111,6 @@ Public Class OperationsListExpanderVM
       End Set
    End Property
 
-   Private m_tmpOperationList As New ObservableCollection(Of MachiningOpListBoxItem)
-   Public Property tmpOperationList As ObservableCollection(Of MachiningOpListBoxItem)
-      Get
-         Return m_tmpOperationList
-      End Get
-      Set(value As ObservableCollection(Of MachiningOpListBoxItem))
-         m_tmpOperationList = value
-      End Set
-   End Property
-
-   Private m_StatusLampList As New ObservableCollection(Of StatusLamp)
-   Public Property StatusLampList As ObservableCollection(Of StatusLamp)
-      Get
-         Return m_StatusLampList
-      End Get
-      Set(value As ObservableCollection(Of StatusLamp))
-         m_StatusLampList = value
-      End Set
-   End Property
-
-   ' Forza il disegno quando seleziono la lampadina
-   Private m_ForceDrawInIsSelected As Boolean = True
-   Public Property ForceDrawInIsSelected As Boolean
-      Get
-         Return m_ForceDrawInIsSelected
-      End Get
-      Set(value As Boolean)
-         m_ForceDrawInIsSelected = value
-      End Set
-   End Property
-
    Public ReadOnly Property DuplicateCmd_IsEnabled As Boolean
       Get
          Dim SelType As Integer = MCH_OY.NONE
@@ -290,7 +258,7 @@ Public Class OperationsListExpanderVM
 #Region "CONSTRUCTOR"
 
    Sub New()
-      m_bMoveThroughDisps = (GetPrivateProfileInt(S_MACH, K_MOVETHROUGHDISPS, 0) <> 0)
+      m_bMoveThroughDisps = ( GetPrivateProfileInt( S_MACH, K_MOVETHROUGHDISPS, 0) <> 0)
       ' Creo riferimento a questa classe in Map
       Map.SetRefOperationsListExpanderVM(Me)
       Me.ListIsExpanded = True
@@ -365,7 +333,7 @@ Public Class OperationsListExpanderVM
       For Each nId As Integer In vRawId
          EgtKeepRawPart(nId, nLastPhase)
       Next
-      EgtKeepAllDispAxes(nLastPhase)
+      EgtKeepAllDispAxes( nLastPhase)
       For Each nId As Integer In vFxtId
          EgtKeepFixture(nId, nLastPhase)
       Next
@@ -467,7 +435,7 @@ Public Class OperationsListExpanderVM
       If EgtGetOperationMode(selOperation.Id) Then
          Map.refOperationParametersExpanderVM.ParametersIsExpanded = True
          If EgtGetOperationType(selOperation.Id) <> MCH_OY.DISP Then
-            Map.refMachiningParameterExpanderVM.SetSliderScale(EgtGetPreviewMachiningToolStepCount())
+            Map.refMachiningParameterExpanderVM.SetSliderScale( EgtGetPreviewMachiningToolStepCount())
             Map.refMachiningParameterExpanderVM.ResetSliderValue()
          End If
       End If
@@ -494,55 +462,55 @@ Public Class OperationsListExpanderVM
    ''' </summary>
    Public Sub MoveUp()
       ' Verifico il numero di elementi selezionati
-      Dim indexes As New List(Of Integer)()
+      Dim indexes As New List( Of Integer)()
       For index As Integer = 0 To OperationList.Count - 1
          ' Verifico gli elementi selezionati
-         If OperationList.Item(index).IsSelected Then
+         If OperationList.Item( index).IsSelected Then
             ' Se presente una disposizione esco
-            If EgtGetOperationType(OperationList.Item(index).Id) = MCH_OY.DISP Then Return
+            If EgtGetOperationType( OperationList.Item( index).Id) = MCH_OY.DISP Then Return
             ' Aggiungo l'operazione
-            indexes.Add(index)
+            indexes.Add( index)
          End If
       Next
       Dim lenIndexes As Integer = indexes.Count
       ' Recupero Id ultima entità selezionata e precedente a quelle selezionate
-      Dim LastSelectedId As Integer = OperationList(indexes(lenIndexes - 1)).Id
+      Dim LastSelectedId As Integer = OperationList( indexes( lenIndexes - 1)).Id
-      Dim PreviousId As Integer = OperationList(indexes(0) - 1).Id
+      Dim PreviousId As Integer = OperationList( indexes( 0) - 1).Id
       ' Sposto l'operazione precedente a quelle selezionate nell'ambiente Egt
-      If EgtRelocate(PreviousId, LastSelectedId, GDB_POS.AFTER) Then
+      If EgtRelocate( PreviousId, LastSelectedId, GDB_POS.AFTER) Then
          ' Sposto l'operazione precedente a quelle selezionate nella grafica
-         OperationList.Move(indexes(0) - 1, indexes(lenIndexes - 1)) ' + 1)
+         OperationList.Move( indexes(0) - 1, indexes( lenIndexes - 1)) ' + 1)
          ' Ricalcolo le lavorazioni selezionate e quella che era precedente (e ora è seguente)
          If Not m_bMoveThroughDisps Then
             For index As Integer = 0 To indexes.Count - 1
-               EgtSetCurrMachining(OperationList(indexes(index)).Id)
+               EgtSetCurrMachining( OperationList( indexes( index)).Id)
-               EgtApplyMachining(False)
+               EgtApplyMachining( False)
             Next
-            EgtSetCurrMachining(PreviousId)
+            EgtSetCurrMachining( PreviousId)
-            EgtApplyMachining(False)
+            EgtApplyMachining( False)
             EgtDraw()
-            OnPropertyChanged("MoveUp_IsEnabled")
+            OnPropertyChanged( "MoveUp_IsEnabled")
-            OnPropertyChanged("MoveDown_IsEnabled")
+            OnPropertyChanged( "MoveDown_IsEnabled")
             Map.refProjectVM.EmitTitle()
          Else
             Dim nCurrPhase As Integer = EgtGetOperationPhase(LastSelectedId)
             For index As Integer = 0 To indexes.Count - 1
-               Dim nOpeId As Integer = OperationList(indexes(index) - 1).Id
+               Dim nOpeId As Integer = OperationList( indexes( index) - 1).Id
-               If EgtGetOperationType(nOpeId) <> MCH_OY.DISP Then
+               If EgtGetOperationType( nOpeId) <> MCH_OY.DISP Then
-                  EgtAdjustOperationPhase(nOpeId)
+                  EgtAdjustOperationPhase( nOpeId)
-                  EgtSetCurrMachining(nOpeId)
+                  EgtSetCurrMachining( nOpeId)
-                  EgtApplyMachining(False)
+                  EgtApplyMachining( False)
                End If
             Next
-            If EgtGetOperationType(PreviousId) <> MCH_OY.DISP Then
+            If EgtGetOperationType( PreviousId) <> MCH_OY.DISP Then
-               EgtSetCurrMachining(PreviousId)
+               EgtSetCurrMachining( PreviousId)
-               EgtApplyMachining(False)
+               EgtApplyMachining( False)
             End If
             Dim nNewPhase As Integer = EgtGetOperationPhase(LastSelectedId)
-            If nNewPhase <> nCurrPhase Then EgtSetCurrPhase(nNewPhase)
+            If nNewPhase <> nCurrPhase Then EgtSetCurrPhase( nNewPhase)
             EgtDraw()
-            OnPropertyChanged(NameOf(MoveUp_IsEnabled))
+            OnPropertyChanged( NameOf(MoveUp_IsEnabled))
-            OnPropertyChanged(NameOf(MoveDown_IsEnabled))
+            OnPropertyChanged( NameOf(MoveDown_IsEnabled))
             Map.refProjectVM.EmitTitle()
          End If
       End If
@@ -569,52 +537,52 @@ Public Class OperationsListExpanderVM
    ''' </summary>
    Public Sub MoveDown()
       ' Verifico il numero di elementi selezionati
-      Dim indexes As New List(Of Integer)()
+      Dim indexes As New List( Of Integer)()
       For index As Integer = 0 To OperationList.Count - 1
          ' Verifico gli elementi selezionati
-         If OperationList.Item(index).IsSelected Then
+         If OperationList.Item( index).IsSelected Then
             ' Se presente una disposizione esco
-            If EgtGetOperationType(OperationList.Item(index).Id) = MCH_OY.DISP Then Return
+            If EgtGetOperationType( OperationList.Item( index).Id) = MCH_OY.DISP Then Return
             ' Aggiungo l'operazione
-            indexes.Add(index)
+            indexes.Add( index)
          End If
       Next
       Dim lenIndexes As Integer = indexes.Count
       ' Recupero Id prima entità selezionata e successiva a quelle selezionate
-      Dim FirstSelectedId As Integer = OperationList(indexes(0)).Id
+      Dim FirstSelectedId As Integer = OperationList( indexes( 0)).Id
-      Dim NextId As Integer = OperationList(indexes(lenIndexes - 1) + 1).Id
+      Dim NextId As Integer = OperationList( indexes( lenIndexes - 1) + 1).Id
       ' Sposto l'operazione successiva a quelle selezionate nell'ambiente Egt
-      If EgtRelocate(NextId, FirstSelectedId, GDB_POS.BEFORE) Then
+      If EgtRelocate( NextId, FirstSelectedId, GDB_POS.BEFORE) Then
          ' Sposto l'operazione successiva a quelle selezionate nella grafica
-         OperationList.Move(indexes(lenIndexes - 1) + 1, indexes(0))
+         OperationList.Move( indexes( lenIndexes - 1) + 1, indexes( 0))
          ' Ricalcolo la lavorazioni selezionate e quella che era seguente (e ora è precedente)
          If Not m_bMoveThroughDisps Then
-            EgtSetCurrMachining(NextId)
+            EgtSetCurrMachining( NextId)
-            EgtApplyMachining(False)
+            EgtApplyMachining( False)
             For index As Integer = 0 To indexes.Count - 1
-               EgtSetCurrMachining(OperationList(indexes(index)).Id)
+               EgtSetCurrMachining( OperationList( indexes( index)).Id)
-               EgtApplyMachining(False)
+               EgtApplyMachining( False)
             Next
             EgtDraw()
-            OnPropertyChanged("MoveUp_IsEnabled")
+            OnPropertyChanged( "MoveUp_IsEnabled")
-            OnPropertyChanged("MoveDown_IsEnabled")
+            OnPropertyChanged( "MoveDown_IsEnabled")
             Map.refProjectVM.EmitTitle()
          Else
-            If EgtGetOperationType(NextId) <> MCH_OY.DISP Then
+            If EgtGetOperationType( NextId) <> MCH_OY.DISP Then
-               EgtSetCurrMachining(NextId)
+               EgtSetCurrMachining( NextId)
-               EgtApplyMachining(False)
+               EgtApplyMachining( False)
             End If
             For index As Integer = 0 To indexes.Count - 1
-               Dim nOpeId As Integer = OperationList(indexes(index) + 1).Id
+               Dim nOpeId As Integer = OperationList( indexes( index) + 1).Id
-               If EgtGetOperationType(nOpeId) <> MCH_OY.DISP Then
+               If EgtGetOperationType( nOpeId) <> MCH_OY.DISP Then
-                  EgtAdjustOperationPhase(nOpeId)
+                  EgtAdjustOperationPhase( nOpeId)
-                  EgtSetCurrMachining(nOpeId)
+                  EgtSetCurrMachining( nOpeId)
-                  EgtApplyMachining(False)
+                  EgtApplyMachining( False)
                End If
             Next
             EgtDraw()
-            OnPropertyChanged(NameOf(MoveUp_IsEnabled))
+            OnPropertyChanged( NameOf( MoveUp_IsEnabled))
-            OnPropertyChanged(NameOf(MoveDown_IsEnabled))
+            OnPropertyChanged( NameOf( MoveDown_IsEnabled))
             Map.refProjectVM.EmitTitle()
          End If
       End If
@@ -640,8 +608,6 @@ Public Class OperationsListExpanderVM
    ''' Execute the Point.  This method is invoked by the PointCommand.
    ''' </summary>
    Public Sub Update()
-      Dim tmpStatusLamp As New StatusLamp()
-      Map.refOperationsListExpanderVM.StatusLampList = tmpStatusLamp.LoadStatusLamp()
       ' Cursore di attesa
       Application.Current.MainWindow.ForceCursor = True
       Application.Current.MainWindow.Cursor = Cursors.Wait
@@ -651,7 +617,6 @@ Public Class OperationsListExpanderVM
       Dim bOk As Boolean = EgtApplyAllMachinings(bRecalc, False, sErr)
       EgtSetModified()
       ' Deseleziono l'Operazione selezionata e la de-evidenzio nel Disegno
-      m_ForceDrawInIsSelected = False
       For Each Operation In OperationList
          If Operation.IsSelected Then
             Operation.IsSelected = False
@@ -659,9 +624,6 @@ Public Class OperationsListExpanderVM
       Next
       ' Ricarico la lista delle Operazioni
       LoadOperationList(GDB_ID.NULL)
-      ' Rimetto le lampadine in modo corretto
-      tmpStatusLamp.UpdateStatusLamp()
-      m_ForceDrawInIsSelected = True
       ' Aggiorno visualizzazione e ritorno a cursore standard
       EgtDraw()
       Application.Current.MainWindow.ForceCursor = False
@@ -1037,9 +999,7 @@ Public Class OperationsListExpanderVM
 
    Private Sub LoadOperationList()
       OperationList.Clear()
-      tmpOperationList.Clear()
       Dim Id As Integer
-      Dim OpStatusOnOff As Integer
       Dim OpStatus As Boolean = True
       Dim OpName As String = String.Empty
       Dim OpType As Integer = 0
@@ -1052,14 +1012,9 @@ Public Class OperationsListExpanderVM
          If IsValidMachiningType(OpType) Then
             EgtSetCurrMachining(Id)
             OpStatus = EgtGetOperationMode(Id)
-            EgtGetStatus(Id, OpStatusOnOff)
             EgtGetMachiningParam(MCH_MP.TOOL, OpTool)
             EgtGetMachiningParam(MCH_MP.NAME, OpMach)
-            ' Dichiarato per far si che le due liste operino in contemporaneo
+            OperationList.Add(New MachiningOpListBoxItem(Id, OpStatus, OpName, OpType, OpTool, OpMach))
-            Dim local_MachiningOpListBoxItem As New MachiningOpListBoxItem(Id, OpStatus, OpName, OpType, OpTool, OpMach)
-            OperationList.Add(local_MachiningOpListBoxItem)
-            ' Lista creata per lavorare solo su le operazioni di macchina, utilizzata per la gestione dello spegnimento e accensione delle lamp
-            tmpOperationList.Add(local_MachiningOpListBoxItem)
          ElseIf IsValidDispositionType(OpType) Then
             OpStatus = True
             OpTool = String.Empty
@@ -1301,7 +1256,7 @@ Public Class OperationsListExpanderVM
       If m_NewMachining Then EndNewMachining(GDB_ID.NULL)
       ' Disabilito visualizzazione utensile
       If Not IsNothing(m_MachiningParameterExpander) Then
-         Map.refMachiningParameterExpanderVM.SetViewTool(False)
+         Map.refMachiningParameterExpanderVM.SetViewTool( False)
       End If
       ' Deseleziono le operazioni correnti per eliminare il mark
       For Each Operation In OperationList
@@ -1311,97 +1266,6 @@ Public Class OperationsListExpanderVM
       Next
    End Sub
 
-   Private Sub SetStatusOnLamp()
-      If Not IsNothing(m_tmpOperationList) Then
-         For Each ItemOp As MachiningOpListBoxItem In m_tmpOperationList
-            If Not ItemOp.OnOff Then
-               EgtSetStatus(ItemOp.Id, GDB_ST.OFF)
-            End If
-         Next
-      End If
-      EgtDraw()
-   End Sub
-
-#End Region    ' Methods
-
-End Class
-
-Public Class StatusLamp
-
-#Region "FIELDS & PROPERTIES"
-
-   ' Id dell'operazione
-   Private m_nId As Integer
-   Public Property nId As Integer
-      Get
-         Return m_nId
-      End Get
-      Set(value As Integer)
-         m_nId = value
-      End Set
-   End Property
-
-   ' Stato della lampadina: vero, falso e nullo 
-   Private m_bStatusLamp As Boolean?
-   Public Property bStatusLamp As Boolean?
-      Get
-         Return m_bStatusLamp
-      End Get
-      Set(value? As Boolean)
-         m_bStatusLamp = value
-      End Set
-   End Property
-
-#End Region    ' Fields & Properties
-
-#Region "CONSTRUCTOR"
-
-   Sub New(nId As Integer, bStatusLamp As Boolean?)
-      m_nId = nId
-      m_bStatusLamp = bStatusLamp
-   End Sub
-
-   Sub New()
-   End Sub
-
-#End Region    ' Constructor
-
-#Region "METHODS"
-
-   ''' <summary>
-   ''' Funzione che salva gli stati di tutte le lampadine delle operazioni
-   ''' </summary>
-   ''' <returns></returns>
-   Public Function LoadStatusLamp() As ObservableCollection(Of StatusLamp)
-      ' Utilizzo di LINQ per creare la lista in modo più conciso, carico gli stati delle lampadine per tenerli salvati
-      Return New ObservableCollection(Of StatusLamp)(Map.refOperationsListExpanderVM.tmpOperationList.Select(Function(ItemOp) New StatusLamp(ItemOp.Id, ItemOp.OnOff)))
-   End Function
-
-   ''' <summary>
-   ''' Funzione che aggiorna lo stato delle lampadine delle operazioni
-   ''' </summary>
-   Public Sub UpdateStatusLamp()
-      ' Verifica che tmpOperationList non sia nulla
-      If IsNothing(Map.refOperationsListExpanderVM.tmpOperationList) Then Return
-
-      Dim tmpStatusLamp As StatusLamp
-      For Each ItemOp As MachiningOpListBoxItem In Map.refOperationsListExpanderVM.tmpOperationList
-         ' Recuero lo stato della lampadina
-         tmpStatusLamp = Map.refOperationsListExpanderVM.StatusLampList.FirstOrDefault(Function(x) x.nId = ItemOp.Id)
-         ' Controllo se lo stato della lampadina è falso nella lista StatusLampList
-         If Not tmpStatusLamp.bStatusLamp Then
-            ' Rimetto lo stato della lampadina a falso nella OperationList
-            EgtSetStatus(ItemOp.Id, GDB_ST.OFF)
-            ItemOp.OnOff = False
-            ' Controllo se lo stato della lampadina è nullo nella lista StatusLampList
-         ElseIf IsNothing(tmpStatusLamp.bStatusLamp) Then
-            ' Rimetto lo stato della lampadina a nullo nella OperationList
-            EgtSetStatus(ItemOp.Id, GDB_ST.SEL)
-            ItemOp.OnOff = Nothing
-         End If
-      Next
-   End Sub
-
 #End Region    ' Methods
 
 End Class

OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb

@@ -1,4 +1,5 @@
-Imports System.IO
+Imports System.Collections.ObjectModel
+Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -17,9 +18,6 @@ Public Class SimulationExpanderVM
       Set(value As Boolean)
          If value <> m_Simulation_IsExpanded Then
             Map.refMachiningOptionPanelVM.Set_IsExpanded(MachiningOptionPanelVM.MachiningOptionPanelExpander.SIMULATION, value)
-            Map.refOperationsListExpanderVM.StatusLampList.Clear()
-            Dim tmpStatusLamp As New StatusLamp()
-            Map.refOperationsListExpanderVM.StatusLampList = tmpStatusLamp.LoadStatusLamp()
          End If
       End Set
    End Property
@@ -350,10 +348,8 @@ Public Class SimulationExpanderVM
             End If
             ' Aggiorno stato visualizzazione macchina (dipende anche da utensile)
             UpdateMachView()
-            ' Aggiorno visualizzazione (solo se interfaccia non minimizzata, per aumentare velocità)
+            ' Aggiorno visualizzazione
-            If Application.Current.MainWindow.WindowState <> WindowState.Minimized Then
+            EgtDraw()
-               EgtDraw()
-            End If
             ' Aggiorno dati CNC
             If nShowDataCounter = 5 Or GetSimulationStatus() = MCH_SIM_ST.UI_PAUSE Or GetSimulationStatus() = MCH_SIM_ST.UI_STOP Then
                ShowCncData()

OptionPanel/MachiningOptionPanelV.xaml

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

OptionPanel/OptionPanelV.xaml

@@ -1,6 +1,6 @@
 <EgtFloating:EgtFloatingPanel x:Class="OptionPanelV"
                               xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
-                              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Width="250"
+                              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
                               xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
                               TitleBarOrientation="Vertical"
                               Visibility="{Binding Panel_Visibility}">

OptionsWindow/OptionModule.vb

@@ -23,10 +23,7 @@ Friend Module OptionModule
    ' Parametri per import
    Friend m_dDxfScaleFactor As Double
    Friend m_dStlScaleFactor As Double
-   Friend m_dOffScaleFactor As Double
-   Friend m_dPlyScaleFactor As Double
    Friend m_dImgScaleFactor As Double
-   Friend m_dAdvImpTolerance As Double
 
    ' Parametri per export
    Friend m_nExportDxfFlag As Integer
@@ -120,10 +117,7 @@ Friend Module OptionModule
       ' Inizializzo variabili per import
       m_dDxfScaleFactor = GetPrivateProfileDouble(S_IMPORT, K_DXFSCALE, 1)
       m_dStlScaleFactor = GetPrivateProfileDouble(S_IMPORT, K_STLSCALE, 1)
-      m_dOffScaleFactor = GetPrivateProfileDouble(S_IMPORT, K_OFFSCALE, 1)
-      m_dPlyScaleFactor = GetPrivateProfileDouble(S_IMPORT, K_PLYSCALE, 1)
       m_dImgScaleFactor = GetPrivateProfileDouble(S_IMPORT, K_IMGSCALE, 1)
-      m_dAdvImpTolerance = GetPrivateProfileDouble(S_IMPORT, K_ADVTOLER, 0.05)
       ' Inizializzo variabili per export
       m_nExportDxfFlag = GetPrivateProfileInt(S_EXPORT, K_DXFFLAG, EEX_FL.COMP_LAYER)
       m_nImgWidth = GetPrivateProfileInt(S_EXPORT, K_IMGWIDTH, 400)

OptionsWindow/OptionWindowV.xaml

@@ -136,9 +136,6 @@
       </TabItem>
       <TabItem Header="{Binding ImportMsg}">
          <StackPanel Margin="5,5,5,0">
-            <GroupBox Grid.Column="1" Grid.RowSpan="2"
-                      Header=""
-                      Margin="0,0,0,5">
             <Grid Margin="0,5,0,0">
                <Grid.ColumnDefinitions>
                   <ColumnDefinition Width="1*"/>
@@ -150,12 +147,10 @@
                   <RowDefinition Height="1*"/>
                   <RowDefinition Height="1*"/>
                   <RowDefinition Height="1*"/>
-                  <RowDefinition Height="1*"/>
-                  <RowDefinition Height="1*"/>
                </Grid.RowDefinitions>
                <TextBlock Grid.Row="0" Grid.Column="1" 
                           VerticalAlignment="Center" HorizontalAlignment="Center"  
-                          Text="{Binding UnitScaleMsg}"/>
+                          Text="{Binding UnitScaleMsg}" />
                <TextBlock Grid.Row="0" Grid.Column="2" 
                           VerticalAlignment="Center" HorizontalAlignment="Center"  
                           Text="{Binding FactorScaleMsg}"/>
@@ -164,12 +159,12 @@
                <ComboBox Grid.Row="1" Grid.Column="1"
                          ItemsSource="{Binding ScaleDXFList, Mode=OneWay}"
                          SelectedItem="{Binding SelectedDXFScale, UpdateSourceTrigger=PropertyChanged}" Height="25"
-                         Margin="10,5,0,5"/>
+                         Margin="10,0,0,5"/>
                <TextBox Grid.Row="1" Grid.Column="2"
                         Text="{Binding DxfScaleFactor}" Height="25"
                         IsEnabled="{Binding DXFScaleEnable, UpdateSourceTrigger=LostFocus}"
                         VerticalContentAlignment="Center"
-                        Margin="10,5,0,5"/>
+                        Margin="10,0,0,5"/>
                <TextBlock Grid.Row="2" Grid.Column="0"
                           Text="{Binding StlScaleFactorMsg}" VerticalAlignment="Center"/>
                <ComboBox Grid.Row="2" Grid.Column="1"
@@ -182,47 +177,17 @@
                         VerticalContentAlignment="Center"
                         Margin="10,0,0,5"/>
                <TextBlock Grid.Row="3" Grid.Column="0"
-                          Text="{Binding OffScaleFactorMsg}" VerticalAlignment="Center"/>
-               <ComboBox Grid.Row="3" Grid.Column="1"
-                         ItemsSource="{Binding ScaleOffList, Mode=OneWay}"
-                         SelectedItem="{Binding SelectedOffScale, UpdateSourceTrigger=PropertyChanged}" Height="25"
-                         Margin="10,0,0,5"/>
-               <TextBox Grid.Row="3" Grid.Column="2"
-                        Text="{Binding OffScaleFactor}" Height="25"
-                        IsEnabled="{Binding OffScaleEnable, UpdateSourceTrigger=LostFocus}"
-                        VerticalContentAlignment="Center"
-                        Margin="10,0,0,5"/>
-               <TextBlock Grid.Row="4" Grid.Column="0"
-                          Text="{Binding PlyScaleFactorMsg}" VerticalAlignment="Center"/>
-                  <ComboBox Grid.Row="4" Grid.Column="1"
-                         ItemsSource="{Binding ScalePlyList, Mode=OneWay}"
-                         SelectedItem="{Binding SelectedPlyScale, UpdateSourceTrigger=PropertyChanged}" Height="25"
-                         Margin="10,0,0,5"/>
-                  <TextBox Grid.Row="4" Grid.Column="2"
-                        Text="{Binding PlyScaleFactor}" Height="25"
-                        IsEnabled="{Binding PlyScaleEnable, UpdateSourceTrigger=LostFocus}"
-                        VerticalContentAlignment="Center"
-                        Margin="10,0,0,5"/>
-                  <TextBlock Grid.Row="5" Grid.Column="0"
                           Text="{Binding ImageScaleFactorMsg}" VerticalAlignment="Center"/>
-               <ComboBox Grid.Row="5" Grid.Column="1"
+               <ComboBox Grid.Row="3" Grid.Column="1"
                          ItemsSource="{Binding ScaleImageList, Mode=OneWay}"
                          SelectedItem="{Binding SelectedImageScale, UpdateSourceTrigger=PropertyChanged}" Height="25"
                          Margin="10,0,0,5"/>
-               <TextBox Grid.Row="5" Grid.Column="2"
+               <TextBox Grid.Row="3" Grid.Column="2"
                         Text="{Binding ImageScaleFactor}" Height="25"
                         IsEnabled="{Binding ImageScaleEnable, UpdateSourceTrigger=LostFocus}"
                         VerticalContentAlignment="Center"
                         Margin="10,0,0,5"/>
             </Grid>
-            </GroupBox>
-            <UniformGrid Grid.ColumnSpan="2" Columns="2"
-                         Margin="0,5,0,5">
-               <TextBlock Text="{Binding AdvImpToleranceMsg}" VerticalAlignment="Center"/>
-               <TextBox Text="{Binding AdvImpTolerance}" Height="25"
-                        VerticalContentAlignment="Center"
-                        Margin="10,0,0,0"/>
-            </UniformGrid>
          </StackPanel>
       </TabItem>
       <TabItem Header="{Binding ExportMsg}">

OptionsWindow/OptionWindowVM.vb

@@ -65,20 +65,6 @@ Public Class OptionWindowVM
       End Get
    End Property
 
-   Private m_ScaleOffList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(MSG_OPTIONPAGE + 46)})
-   Public ReadOnly Property ScaleOffList As List(Of String)
-      Get
-         Return m_ScaleOffList
-      End Get
-   End Property
-
-   Private m_ScalePlyList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(MSG_OPTIONPAGE + 46)})
-   Public ReadOnly Property ScalePlyList As List(Of String)
-      Get
-         Return m_ScalePlyList
-      End Get
-   End Property
-
    Private m_ScaleImageList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(MSG_OPTIONPAGE + 46)})
    Public ReadOnly Property ScaleImageList As List(Of String)
       Get
@@ -360,36 +346,6 @@ Public Class OptionWindowVM
       End Set
    End Property
 
-   Public Property OffScaleFactor As String
-      Get
-         Return LenToString(OptionModule.m_dOffScaleFactor, 5)
-      End Get
-      Set(value As String)
-         Dim dVal As Double = 0
-         If StringToLen(value, dVal) AndAlso dVal > 0 Then
-            OptionModule.m_dOffScaleFactor = dVal
-            WritePrivateProfileString(S_IMPORT, K_OFFSCALE, DoubleToString(OptionModule.m_dOffScaleFactor, 5))
-            Map.refProjectVM.GetController().SetScaleForOffImport(OptionModule.m_dOffScaleFactor)
-            NotifyPropertyChanged("OffScaleFactor")
-         End If
-      End Set
-   End Property
-
-   Public Property PlyScaleFactor As String
-      Get
-         Return LenToString(OptionModule.m_dPlyScaleFactor, 5)
-      End Get
-      Set(value As String)
-         Dim dVal As Double = 0
-         If StringToLen(value, dVal) AndAlso dVal > 0 Then
-            OptionModule.m_dPlyScaleFactor = dVal
-            WritePrivateProfileString(S_IMPORT, K_PLYSCALE, DoubleToString(OptionModule.m_dPlyScaleFactor, 5))
-            Map.refProjectVM.GetController().SetScaleForPLyImport(OptionModule.m_dPlyScaleFactor)
-            NotifyPropertyChanged("PlyScaleFactor")
-         End If
-      End Set
-   End Property
-
    Public Property ImageScaleFactor As String
       Get
          Return LenToString(OptionModule.m_dImgScaleFactor, 5)
@@ -405,20 +361,6 @@ Public Class OptionWindowVM
       End Set
    End Property
 
-   Public Property AdvImpTolerance As String
-      Get
-         Return LenToString(OptionModule.m_dAdvImpTolerance, 5)
-      End Get
-      Set(value As String)
-         Dim dVal As Double = 0
-         If StringToLen(value, dVal) AndAlso dVal > 0 Then
-            OptionModule.m_dAdvImpTolerance = dVal
-            Map.refProjectVM.GetController.SetAdvImpTolerance(OptionModule.m_dAdvImpTolerance)
-            WritePrivateProfileString(S_IMPORT, K_ADVTOLER, DoubleToString(OptionModule.m_dAdvImpTolerance, 5))
-         End If
-      End Set
-   End Property
-
    Public Property ImageWidth As String
       Get
          Return OptionModule.m_nImgWidth.ToString()
@@ -573,28 +515,6 @@ Public Class OptionWindowVM
       End Set
    End Property
 
-   Private m_OffScaleEnable As Boolean = False
-   Public Property OffScaleEnable As Boolean
-      Get
-         Return m_OffScaleEnable
-      End Get
-      Set(value As Boolean)
-         m_OffScaleEnable = value
-         NotifyPropertyChanged("OffScaleEnable")
-      End Set
-   End Property
-
-   Private m_PlyScaleEnable As Boolean = False
-   Public Property PlyScaleEnable As Boolean
-      Get
-         Return m_PlyScaleEnable
-      End Get
-      Set(value As Boolean)
-         m_PlyScaleEnable = value
-         NotifyPropertyChanged("PlyScaleEnable")
-      End Set
-   End Property
-
    Private m_ImageScaleEnable As Boolean = False
    Public Property ImageScaleEnable As Boolean
       Get
@@ -656,56 +576,6 @@ Public Class OptionWindowVM
       End Set
    End Property
 
-   Public Property SelectedOffScale As String
-      Get
-         If Math.Abs(OptionModule.m_dOffScaleFactor - ONEMM) < EPS_SMALL * 10 Then
-            Return ScaleOffList(ScaleOffList.IndexOf("mm"))
-         ElseIf Math.Abs(OptionModule.m_dOffScaleFactor - ONEINCH) < EPS_SMALL * 10 Then
-            Return ScaleOffList(ScaleOffList.IndexOf("inch"))
-         Else
-            OffScaleEnable = True
-            Return ScaleOffList(ScaleOffList.IndexOf(EgtMsg(MSG_OPTIONPAGE + 46)))
-         End If
-      End Get
-      Set(value As String)
-         If value = "mm" Then
-            OffScaleFactor = LenToString(ONEMM, 3)
-            OffScaleEnable = False
-         ElseIf value = "inch" Then
-            OffScaleFactor = LenToString(ONEINCH, 4)
-            OffScaleEnable = False
-         Else
-            OffScaleFactor = LenToString(OptionModule.m_dOffScaleFactor, 4)
-            OffScaleEnable = True
-         End If
-      End Set
-   End Property
-
-   Public Property SelectedPlyScale As String
-      Get
-         If Math.Abs(OptionModule.m_dPlyScaleFactor - ONEMM) < EPS_SMALL * 10 Then
-            Return ScalePlyList(ScalePlyList.IndexOf("mm"))
-         ElseIf Math.Abs(OptionModule.m_dPlyScaleFactor - ONEINCH) < EPS_SMALL * 10 Then
-            Return ScalePlyList(ScalePlyList.IndexOf("inch"))
-         Else
-            PlyScaleEnable = True
-            Return ScalePlyList(ScalePlyList.IndexOf(EgtMsg(MSG_OPTIONPAGE + 46)))
-         End If
-      End Get
-      Set(value As String)
-         If value = "mm" Then
-            PlyScaleFactor = LenToString(ONEMM, 3)
-            PlyScaleEnable = False
-         ElseIf value = "inch" Then
-            PlyScaleFactor = LenToString(ONEINCH, 4)
-            PLyScaleEnable = False
-         Else
-            PLyScaleFactor = LenToString(OptionModule.m_dPlyScaleFactor, 4)
-            PLyScaleEnable = True
-         End If
-      End Set
-   End Property
-
    Public Property SelectedImageScale As String
       Get
          If Math.Abs(OptionModule.m_dImgScaleFactor - ONEMM) < EPS_SMALL * 10 Then
@@ -938,42 +808,28 @@ Public Class OptionWindowVM
 
    Public ReadOnly Property ImportMsg As String
       Get
-         Return EgtMsg(6519)    ' Import
+         Return EgtMsg(MSG_OPTIONPAGE + 19)
       End Get
    End Property
    Public ReadOnly Property DxfScaleFactorMsg As String
       Get
-         Return EgtMsg(6520)    ' DXF
+         Return EgtMsg(MSG_OPTIONPAGE + 20)
       End Get
    End Property
    Public ReadOnly Property StlScaleFactorMsg As String
       Get
-         Return EgtMsg(6521)    ' STL
+         Return EgtMsg(MSG_OPTIONPAGE + 21)
-      End Get
-   End Property
-   Public ReadOnly Property OffScaleFactorMsg As String
-      Get
-         Return EgtMsg(6561)    ' OFF
-      End Get
-   End Property
-   Public ReadOnly Property PlyScaleFactorMsg As String
-      Get
-         Return EgtMsg(6563)    ' PLY
       End Get
    End Property
    Public ReadOnly Property ImageScaleFactorMsg As String
       Get
-         Return EgtMsg(6522)    ' Immagini
+         Return EgtMsg(MSG_OPTIONPAGE + 22)
-      End Get
-   End Property
-   Public ReadOnly Property AdvImpToleranceMsg As String
-      Get
-         Return EgtMsg(6562)    ' Tolleranza di importazione
       End Get
    End Property
+
    Public ReadOnly Property ExportMsg As String
       Get
-         Return EgtMsg(6523)     ' Export
+         Return EgtMsg(MSG_OPTIONPAGE + 23)
       End Get
    End Property
    Public ReadOnly Property UnitScaleMsg As String
@@ -1400,7 +1256,7 @@ Public Class OptionWindowVM
             ' L'aggiornamento della macchina "{0}" non è riuscito.
             Dim sKo As String = String.Format(EgtMsg(MSG_OPTIONPAGE + 35), sMachName)
             EgtOutLog(sKo)
-            MessageBox.Show(sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            MessageBox.Show(sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK)
             Return
          End Try
       End If

Project/ProjectV.xaml

@@ -16,7 +16,7 @@
          <Setter Property="DockPanel.Dock" Value="{Binding}" />
       </Style>
    </ItemsControl.ItemContainerStyle>
-   
+
    <interactivity:Interaction.Triggers>
       <interactivity:EventTrigger EventName="Loaded">
          <interactivity:InvokeCommandAction Command="{Binding LoadedCommand}"/>

Project/ProjectVM.vb

@@ -4,6 +4,7 @@ Imports System.IO
 Imports System.Globalization
 Imports EgtUILib
 Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
 
 Public Class ProjectVM
    Inherits TabViewModel
@@ -57,9 +58,22 @@ Public Class ProjectVM
       End Get
    End Property
 
+   Private m_DynamicGrid As New Grid()
+   Public ReadOnly Property DynamicGrid As Grid
+      Get
+         Return m_DynamicGrid
+      End Get
+   End Property
 
+   Private m_DynamicGridList As New List(Of Object)
+   Public ReadOnly Property DynamicGridList As List(Of Object)
+      Get
+         Return m_DynamicGridList
+      End Get
+   End Property
 
 #End Region
+
 #Region "EGTUILIB FIELDS"
 
    Private m_bCPlaneTypePos As Boolean
@@ -79,6 +93,17 @@ Public Class ProjectVM
       TMDbParamVisibility.bFirst = True
       ' Inizializza i parametri della scena
       'InitializeEgtProject()
+
+      Dim m_TopTrayV As New TopTrayV
+      Dim m_LeftTrayV As New LeftTrayV
+      Dim m_RightTrayV As New RightTrayV
+      Dim m_BottomTrayV As New BottomTrayV
+      Dim m_SceneContentControlV As New SceneContentControlV
+
+      CreateDynamicGrid()
+
+      Dim gridSplitter As GridSplitter = CreateGridSplitter()
+
       ' aggiungo componenti interfaccia
       Dim bPlugin As Boolean = False
       Dim PluginDirNameList() As String = {}
@@ -105,30 +130,57 @@ Public Class ProjectVM
                Dim ConfigurationData As IPluginConfigData = Map.refMainWindowVM.GetConfigData(Of IPluginConfigData)(PluginName & ".ConfigurationData")
                If Not IsNothing(ConfigurationData) And ConfigurationData.ControlList.Count > 0 Then
                   For Each Element In ConfigurationData.ControlList
+                     PopolateGridWithPlugIn(m_TopTrayV, m_RightTrayV, m_BottomTrayV, m_SceneContentControlV, gridSplitter)
                      Select Case Element.Name
                         Case PLUGIN_RIGHT_TRAY
-                           m_PanelList.Add(New RightTrayV)
+                           'm_PanelList.Add(New RightTrayV)
+                           'aggiungo RightTrayV alla griglia
+                           m_DynamicGrid.Children.Add(m_RightTrayV)
                            Map.refOptionPanelVM.SetPanelViewState(Element.ViewPanelState)
                         Case PLUGIN_LEFT_TRAY
-                           m_PanelList.Add(New LeftTrayV)
+                           'm_PanelList.Add(New LeftTrayV)
+                           ' aggiungo LeftTrayV alla griglia
+                           m_DynamicGrid.Children.Add(m_LeftTrayV)
                         Case Else
                            m_PanelList.Add(Map.refMainWindowVM.GetControlByName(Of IPluginControl)(Element))
+                           ' aggiungo LeftTrayV alla griglia
+                           'm_DynamicGrid.Children.Add(Map.refMainWindowVM.GetControlByName(Of IPluginControl)(Element))
                      End Select
                   Next
                End If
             End If
          Next
-         m_PanelList.Add(New BottomTrayV)
+         ' aggiungo gridSplitter alla griglia
-         m_PanelList.Add(New TopTrayV)
+         m_DynamicGrid.Children.Add(gridSplitter)
+         'm_PanelList.Add(New BottomTrayV)
+         ' aggiungo BottomTrayV alla griglia
+         m_DynamicGrid.Children.Add(m_BottomTrayV)
+         'm_PanelList.Add(New TopTrayV)
+         ' aggiungo TopTrayV alla griglia
+         m_DynamicGrid.Children.Add(m_TopTrayV)
          ' nascondo tasti gestione progetto se attivo plugin
          Map.refTopCommandBarVM.SetProjectManagerVisibility(False)
       Else
-         m_PanelList.Add(New TopTrayV)
+         PololateGrid(m_TopTrayV, m_LeftTrayV, m_RightTrayV, m_BottomTrayV, m_SceneContentControlV, gridSplitter)
-         m_PanelList.Add(New LeftTrayV)
+         'm_PanelList.Add(New TopTrayV)
-         m_PanelList.Add(New RightTrayV)
+         'm_PanelList.Add(New LeftTrayV)
-         m_PanelList.Add(New BottomTrayV)
+         'm_PanelList.Add(New RightTrayV)
+         'm_PanelList.Add(New BottomTrayV)
+         ' aggiungo TopTrayV alla griglia
+         m_DynamicGrid.Children.Add(m_TopTrayV)
+         ' aggiungo LeftTrayV alla griglia
+         m_DynamicGrid.Children.Add(m_LeftTrayV)
+         ' aggiungo gridSplitter alla griglia
+         m_DynamicGrid.Children.Add(gridSplitter)
+         ' aggiungo RightTrayV alla griglia
+         m_DynamicGrid.Children.Add(m_RightTrayV)
+         ' aggiungo BottomTrayV alla griglia
+         m_DynamicGrid.Children.Add(m_BottomTrayV)
       End If
-      m_PanelList.Add(New SceneContentControlV)
+      'm_PanelList.Add(New SceneContentControlV)
+      ' aggiungo SceneContentControlV alla griglia
+      m_DynamicGrid.Children.Add(m_SceneContentControlV)
+      m_PanelList.Add(m_DynamicGrid)
    End Sub
 
 #End Region
@@ -292,6 +344,125 @@ Public Class ProjectVM
 
 #Region "METHODS"
 
+   ''' <summary>
+   ''' Funzione per popolare la griglia
+   ''' </summary>
+   ''' <param name="m_TopTrayV"></param>
+   ''' <param name="m_LeftTrayV"></param>
+   ''' <param name="m_RightTrayV"></param>
+   ''' <param name="m_BottomTrayV"></param>
+   ''' <param name="m_SceneContentControlV"></param>
+   ''' <param name="gridSplitter"></param>
+   Private Shared Sub PololateGrid(m_TopTrayV As TopTrayV, m_LeftTrayV As LeftTrayV, m_RightTrayV As RightTrayV, m_BottomTrayV As BottomTrayV, m_SceneContentControlV As SceneContentControlV, gridSplitter As GridSplitter)
+      ' aggiungo TopTrayV
+      Grid.SetRow(m_TopTrayV, 0)
+      Grid.SetColumnSpan(m_TopTrayV, 3)
+
+      ' aggiungo LeftTrayV
+      Grid.SetRow(m_LeftTrayV, 1)
+      Grid.SetColumn(m_LeftTrayV, 0)
+      Grid.SetRowSpan(m_LeftTrayV, 2)
+
+      ' aggiungo RightTrayV
+      Grid.SetRow(m_RightTrayV, 1)
+      Grid.SetColumn(m_RightTrayV, 2)
+      Grid.SetRowSpan(m_RightTrayV, 2)
+
+      'aggiungo gridSplitter
+      Grid.SetRow(gridSplitter, 1)
+      Grid.SetColumn(gridSplitter, 2)
+
+      ' aggiungo BottomTrayV
+      Grid.SetRow(m_BottomTrayV, 2)
+      Grid.SetColumn(m_BottomTrayV, 1)
+
+      ' aggiungo Scena
+      Grid.SetRow(m_SceneContentControlV, 1)
+      Grid.SetColumn(m_SceneContentControlV, 1)
+   End Sub
+
+   ''' <summary>
+   ''' Funzione per popolare la griglia con PlugIn
+   ''' </summary>
+   ''' <param name="m_TopTrayV"></param>
+   ''' <param name="m_RightTrayV"></param>
+   ''' <param name="m_BottomTrayV"></param>
+   ''' <param name="m_SceneContentControlV"></param>
+   ''' <param name="gridSplitter"></param>
+   Private Shared Sub PopolateGridWithPlugIn(m_TopTrayV As TopTrayV, m_RightTrayV As RightTrayV, m_BottomTrayV As BottomTrayV, m_SceneContentControlV As SceneContentControlV, gridSplitter As GridSplitter)
+      ' aggiungo TopTrayV
+      Grid.SetRow(m_TopTrayV, 0)
+      Grid.SetColumn(m_TopTrayV, 1)
+
+      ' aggiungo RightTrayV
+      Grid.SetRow(m_RightTrayV, 0)
+      Grid.SetColumn(m_RightTrayV, 2)
+      Grid.SetRowSpan(m_RightTrayV, 2)
+
+      'aggiungo gridSplitter
+      Grid.SetRow(gridSplitter, 0)
+      Grid.SetColumn(gridSplitter, 2)
+      Grid.SetRowSpan(gridSplitter, 2)
+
+      ' aggiungo BottomTrayV
+      Grid.SetRow(m_BottomTrayV, 2)
+      Grid.SetColumn(m_BottomTrayV, 1)
+
+      ' aggiungo Scena
+      Grid.SetRow(m_SceneContentControlV, 1)
+      Grid.SetColumn(m_SceneContentControlV, 1)
+   End Sub
+
+   ''' <summary>
+   ''' Creazione GridSplitter
+   ''' </summary>
+   ''' <returns></returns>
+   Private Shared Function CreateGridSplitter() As GridSplitter
+      ' creo gridsplitter
+      Return New GridSplitter With {
+         .Width = 30,
+         .HorizontalAlignment = HorizontalAlignment.Left,
+         .VerticalAlignment = VerticalAlignment.Stretch,
+         .Background = Brushes.Transparent
+      }
+   End Function
+
+   ''' <summary>
+   ''' Creazione Griglia Dinamica
+   ''' </summary>
+   Private Sub CreateDynamicGrid()
+      ' creo colonne griglia dinamica
+      Dim gridCol1 As New ColumnDefinition With {
+         .Width = New GridLength(1, GridUnitType.Auto)
+      }
+      '.Width = New GridLength(1, GridUnitType.Auto)
+      Dim gridCol2 As New ColumnDefinition With {
+         .Width = New GridLength(1, GridUnitType.Star)
+      }
+      Dim gridCol3 As New ColumnDefinition With {
+         .Width = New GridLength(250)
+      }
+      ' aggiungo le colonne alla griglia
+      m_DynamicGrid.ColumnDefinitions.Add(gridCol1)
+      m_DynamicGrid.ColumnDefinitions.Add(gridCol2)
+      m_DynamicGrid.ColumnDefinitions.Add(gridCol3)
+
+      ' creo righe griglia dinamica
+      Dim gridRow1 As New RowDefinition With {
+         .Height = New GridLength(1, GridUnitType.Auto)
+      }
+      Dim gridRow2 As New RowDefinition With {
+         .Height = New GridLength(1, GridUnitType.Star)
+      }
+      Dim gridRow3 As New RowDefinition With {
+         .Height = New GridLength(1, GridUnitType.Auto)
+      }
+      ' aggiungo righe alla griglia
+      m_DynamicGrid.RowDefinitions.Add(gridRow1)
+      m_DynamicGrid.RowDefinitions.Add(gridRow2)
+      m_DynamicGrid.RowDefinitions.Add(gridRow3)
+   End Sub
+
    Private Sub PreInitializeScene()
       ' imposto colore di default
       Dim DefColor As New Color3d(0, 0, 0)
@@ -348,7 +519,6 @@ Public Class ProjectVM
          End If
       End If
       m_Controller.SetSurfTmTolerance(OptionModule.m_dGeometryTolerance)
-      m_Controller.SetAdvImpTolerance(OptionModule.m_dAdvImpTolerance)
       m_Controller.SetUseCustomColors(True, S_SCENE, K_CUSTOMCOLORS)
       ' imposto unità di misura per interfaccia utente
       IniFile.m_bMmUnits = (GetPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
@@ -406,8 +576,6 @@ Public Class ProjectVM
       ' Imposto default per import
       m_Controller.SetScaleForDxfImport(OptionModule.m_dDxfScaleFactor)
       m_Controller.SetScaleForStlImport(OptionModule.m_dStlScaleFactor)
-      m_Controller.SetScaleForOffImport(OptionModule.m_dOffScaleFactor)
-      m_Controller.SetScaleForPlyImport(OptionModule.m_dPlyScaleFactor)
       m_Controller.SetScaleForImageImport(OptionModule.m_dImgScaleFactor)
       ' Imposto default per export
       m_Controller.SetDefaultForDxfExport(OptionModule.m_nExportDxfFlag)
@@ -542,13 +710,7 @@ Public Class ProjectVM
          ' Esecuzione
          OpenDoorFile(sFile, bNcGen, bExit, nProbing)
          ' Se richiesta uscita immediata
-         If bExit Then
+         If bExit Then Map.refMainWindowVM.CloseApplicationCmd()
-            Map.refMainWindowVM.CloseApplicationCmd()
-         End If
-         ' Se applicate lavorazioni, vado in modalità Lavora
-         If EgtGetCurrMachGroup() <> GDB_ID.NULL Then
-            Map.refTopCommandBarVM.SetMachiningMode()
-         End If
          Return
       End If
       ' Se file tol, gestione aggiornamento dei dati degli utensili
@@ -616,7 +778,7 @@ Public Class ProjectVM
       Select Case nFileType
          Case FT.NGE, FT.NFE
             Return m_Controller.OpenProject(sFile, False)
-         Case FT.DXF, FT.STL, FT._3MF, FT._3DM, FT.OFF, FT.PLY, FT.OBJ, FT.CNC, FT.CSF, FT.BTL, FT.BTLX, FT.IMG, FT.PNT, FT.IGES, FT.STEP_, FT.ACIS, FT.PARASOLID, FT.JT, FT.VRML, FT.C3D
+         Case FT.DXF, FT.STL, FT._3MF, FT._3DM, FT.OBJ, FT.CNC, FT.CSF, FT.BTL, FT.BTLX, FT.IMG, FT.PNT, FT.IGES, FT.STEP_, FT.ACIS, FT.PARASOLID, FT.JT, FT.VRML, FT.C3D
             Return m_Controller.ImportProject(sFile, False)
          Case FT.TSC, FT.LUA
             Return m_Controller.Exec(sFile, False)
@@ -629,6 +791,7 @@ Public Class ProjectVM
       ' Formato descrizione porte
       If Path.GetExtension(sFile).ToLower() = ".ddf" Then
          nErr = ExecDoors(m_ProjectScene, sFile, bNcGen, bBatch, nProbing)
+         'CreateDoors(sFile, bNcGen, bBatch, nProbing)
          Map.refProjectVM.EmitTitle()
          Return True
       End If
@@ -1129,7 +1292,7 @@ Public Class ProjectVM
                   EgtGetPlaneSnapPoint(e.Location, Vector3d.Z_AX, TableRef.z, ptCurr)
                   DispositionUtility.VtHookFinder(nFixtureId, ptCurr)
                   Exit While
-               ElseIf DispositionUtility.VerifyTableAxis( nFixtureId) Then
+               ElseIf DispositionUtility.VerifyTableAxis(nFixtureId) Then
                   m_SelType = DispositionUtility.SelType.BARS
                   m_nIdToSel = nFixtureId
                   ' Drag possibile
@@ -1227,7 +1390,7 @@ Public Class ProjectVM
                m_nIdToDesel = GDB_ID.NULL
                EgtDraw()
                Return
-            ' altrimenti verifico il tipo del primo oggetto selezionato
+               ' altrimenti verifico il tipo del primo oggetto selezionato
             Else
                Dim nFirstSelId As Integer = EgtGetFirstSelectedObj()
                ' se è un riferimento resetto lo stato di selezione ed esco
@@ -1326,15 +1489,6 @@ Public Class ProjectVM
       ElseIf IniFile.m_ProjectMode = ProjectModeOpt.MACHINING And m_SceneSelType = SceneSelTypeOpt.MACHINING And
             (EgtGetType(nId) = GDB_TY.SRF_MESH Or EgtGetType(nId) = GDB_TY.SRF_FRGN) Then
          If Not EgtIsSelectedObj(nId) Then m_Controller.MouseSelectedObj(nId, bLast)
-      ElseIf Not Keyboard.IsKeyDown(Key.LeftShift) Then
-         m_Controller.MouseSelectedObj(nId, False)
-         If EgtIsSelectedObj(nId) Then
-            ' Selezione layer in albero
-            Map.refManageLayerExpanderVM.UpdateObjInObjTreeNoMark(nId)
-            Map.refManageLayerExpanderVM.SelectIdInObjTreeNoMark(nId)
-            Map.refManageLayerExpanderVM.UpdateObjTree()
-         End If
-         EgtDraw()
       Else
          m_Controller.MouseSelectedObj(nId, bLast)
       End If
@@ -1564,8 +1718,6 @@ Public Class ProjectVM
             nFlag = GetPrivateProfileInt(S_IMPORT, K_CNCFLAG, EIC_FL.NONE)
          ElseIf nType = FT.BTL Or nType = FT.BTLX Then
             nFlag = GetPrivateProfileInt(S_IMPORT, K_BTLFLAG, EIB_FL.NONE)
-         ElseIf nType = FT._3MF
-            nFlag = GetPrivateProfileInt(S_IMPORT, K_3MFFLAG, EI3_FL.NONE)
          ElseIf nType = FT.OBJ Or nType = FT.IGES Or nType = FT.STEP_ Or nType = FT.ACIS Or
                 nType = FT.PARASOLID Or nType = FT.JT Or nType = FT.VRML Or nType = FT.C3D Then
             nFlag = GetPrivateProfileInt(S_IMPORT, K_ADVFLAG, 0)

RightTray/RightTrayV.xaml

@@ -2,6 +2,8 @@
       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="Right">
+      DockPanel.Dock="Right"
+      Margin="0.5,0,0,0">
+
    <local:OptionPanelV DataContext="{StaticResource OptionPanelViewModel}"/>
 </Grid>

Special-Doors/MTableDbV.xaml

@@ -139,265 +139,254 @@
             <TabControl Grid.Row="1" Margin="5,0,5,5" SelectionChanged="TabControl_SelectionChanged">
                <TabItem Header="Association Table">
                   <TabItem.Content>
-                     <Grid>
+                     <DataGrid Name="AssociationDataGrid"
-                        <FrameworkElement x:Name="dummyElement" Visibility="Collapsed"/>
+                        ItemsSource="{Binding Path=SelectedItem.AssociationList,
-                        <DataGrid Name="AssociationDataGrid"
+                                                     ElementName=TablesListBox}"
-                                  ItemsSource="{Binding Path=SelectedItem.AssociationList,
+                        SelectedItem="{Binding Path=SelectedItem.SelectedAssociation,
-                                                        ElementName=TablesListBox}"
+                                                      ElementName=TablesListBox,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                  EgtCAM5:MultiSelectorBehaviours.SynchronizedSelectedItems="{Binding SelectedItem.SelectedAssociations,
+                        IsSynchronizedWithCurrentItem="False"
-                                                         ElementName=TablesListBox}"
+                        AutoGenerateColumns="False"
-                                  IsSynchronizedWithCurrentItem="False"
+                        CanUserSortColumns="False"
-                                  AutoGenerateColumns="False"
+                        CanUserResizeColumns="False"
-                                  CanUserSortColumns="False"
+                        CanUserResizeRows="False"
-                                  CanUserResizeColumns="False"
+                        CanUserReorderColumns="False"
-                                  CanUserResizeRows="False"
+                        SelectionMode="Single"
-                                  CanUserReorderColumns="False"
+                        ScrollViewer.CanContentScroll="True" 
-                                  SelectionMode="Extended"
+                        ScrollViewer.VerticalScrollBarVisibility="Auto"
-                                  PreviewMouseDown="DataGrid_PreviewMouseDown"
+                        ScrollViewer.HorizontalScrollBarVisibility="Hidden"
-                                  PreviewMouseUp="DataGrid_PreviewMouseUp"
+                        VirtualizingStackPanel.IsVirtualizing="False">
-                                  PreviewMouseMove="DataGrid_PreviewMouseMove"
+                        <Interactivity:Interaction.Behaviors>
-                                  ScrollViewer.CanContentScroll="True" 
+                           <EgtCAM5:ScrollIntoViewForDataGrid/>
-                                  ScrollViewer.VerticalScrollBarVisibility="Auto"
+                        </Interactivity:Interaction.Behaviors>
-                                  ScrollViewer.HorizontalScrollBarVisibility="Hidden"
+                        <DataGrid.InputBindings>
-                                  VirtualizingStackPanel.IsVirtualizing="False">
+                           <KeyBinding Key="F3" Modifiers="Control" Command="{Binding SearchNextCommand}"/>
-                           <Interactivity:Interaction.Behaviors>
+                           <KeyBinding Key="F3" Modifiers="Shift" Command="{Binding SearchPreviousCommand}"/>
-                              <EgtCAM5:ScrollIntoViewForDataGrid/>
+                        </DataGrid.InputBindings>
-                           </Interactivity:Interaction.Behaviors>
+                        <DataGrid.RowStyle>
-                           <DataGrid.InputBindings>
+                           <Style TargetType="DataGridRow">
-                              <KeyBinding Key="F3" Modifiers="Control" Command="{Binding SearchNextCommand}"/>
+                              <Style.Resources>
-                              <KeyBinding Key="F3" Modifiers="Shift" Command="{Binding SearchPreviousCommand}"/>
+                                 <SolidColorBrush x:Key="{x:Static SystemColors.ControlBrushKey}" Color="{x:Static SystemColors.HighlightColor}"/>
-                           </DataGrid.InputBindings>
+                                 <SolidColorBrush x:Key="{x:Static SystemColors.ControlTextBrushKey}" Color="{x:Static SystemColors.HighlightTextColor}"/>
-                           <DataGrid.RowStyle>
+                              </Style.Resources>
-                              <Style TargetType="DataGridRow">
+                              <Setter Property="IsSelected" Value="{Binding IsSelected,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"/>
-                                 <Style.Resources>
+                              <EventSetter Event="PreviewMouseDown" Handler="LeftTableMouseDown"/>
-                                    <SolidColorBrush x:Key="{x:Static SystemColors.ControlBrushKey}" Color="{x:Static SystemColors.HighlightColor}"/>
+                              <Style.Triggers>
-                                    <SolidColorBrush x:Key="{x:Static SystemColors.ControlTextBrushKey}" Color="{x:Static SystemColors.HighlightTextColor}"/>
+                                 <DataTrigger Binding="{Binding IsValidForSearch}" Value="True">
-                                 </Style.Resources>
+                                    <Setter Property="Background" Value="{StaticResource EgaltechGreen}"></Setter>
-                                 <Setter Property="IsSelected" Value="{Binding IsSelected,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"/>
+                                 </DataTrigger>
-                                 <EventSetter Event="PreviewMouseDown" Handler="LeftTableMouseDown"/>
+                              </Style.Triggers>
-                                 <Style.Triggers>
+                           </Style>
-                                    <DataTrigger Binding="{Binding IsValidForSearch}" Value="True">
+                        </DataGrid.RowStyle>
-                                       <Setter Property="Background" Value="{StaticResource EgaltechGreen}"></Setter>
+                        <DataGrid.Columns>
-                                    </DataTrigger>
-                                 </Style.Triggers>
-                              </Style>
-                           </DataGrid.RowStyle>
-                           <DataGrid.Columns>
 
-                              <!--Colonna On-->
+                           <!--Colonna On-->
-                              <DataGridCheckBoxColumn Width="Auto" Binding="{Binding OnPar}">
+                           <DataGridCheckBoxColumn Width="Auto" Binding="{Binding OnPar}">
-                                 <DataGridCheckBoxColumn.Header>
+                              <DataGridCheckBoxColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.OnHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.OnHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridCheckBoxColumn.Header>
+                              </DataGridCheckBoxColumn.Header>
-                              </DataGridCheckBoxColumn>
+                           </DataGridCheckBoxColumn>
 
-                              <!--Colonna Name-->
+                           <!--Colonna Name-->
-                              <DataGridTemplateColumn Width="1*">
+                           <DataGridTemplateColumn Width="1*">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.GeomNameHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.GeomNameHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding Name,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding Name,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=NamesList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
+                                       ItemsSource="{Binding Path=NamesList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=Name,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" 
+                                    <TextBlock Text="{Binding Path=Name,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" 
-                                          ToolTip="{Binding Path=Name,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"/>
+                                       ToolTip="{Binding Path=Name,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
 
-                              <!--Colonna Operation-->
+                           <!--Colonna Operation-->
-                              <DataGridTemplateColumn Width="0.75*">
+                           <DataGridTemplateColumn Width="0.75*">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.OperationHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.OperationHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding Oper,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding Oper,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=OperationsList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
+                                       ItemsSource="{Binding Path=OperationsList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=Oper,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" />
+                                    <TextBlock Text="{Binding Path=Oper,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" />
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
 
-                              <!--Colonna Machine Id-->
+                           <!--Colonna Machine Id-->
-                              <DataGridTemplateColumn Width="38">
+                           <DataGridTemplateColumn Width="38">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.MIdHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.MIdHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding MachId,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding MachId,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Source={x:Reference TablesListBox}, Path=SelectedItem.MachIdList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
+                                       ItemsSource="{Binding Source={x:Reference TablesListBox}, Path=SelectedItem.MachIdList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=MachId,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                    <TextBlock Text="{Binding Path=MachId,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          HorizontalAlignment="Center"/>
+                                       HorizontalAlignment="Center"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
 
-                              <!--Colonna Shift-->
+                           <!--Colonna Shift-->
-                              <DataGridTemplateColumn Width="38">
+                           <DataGridTemplateColumn Width="38">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.ShiftHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.ShiftHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding Shift,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding Shift,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=ShiftList,Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
+                                       ItemsSource="{Binding Path=ShiftList,Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=Shift,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                    <TextBlock Text="{Binding Path=Shift,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          HorizontalAlignment="Center"/>
+                                       HorizontalAlignment="Center"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
                            
-                              <!--Colonna MachiningType-->
+                           <!--Colonna MachiningType-->
-                              <DataGridTemplateColumn Width="0.5*">
+                           <DataGridTemplateColumn Width="0.5*">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.MachTypeHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.MachTypeHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding SelectedMachType,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding SelectedMachType,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=MachTypeList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"
+                                       ItemsSource="{Binding Path=MachTypeList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"
-                                          DisplayMemberPath="TypeName"/>
+                                       DisplayMemberPath="TypeName"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=SelectedMachType.TypeName,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" />
+                                    <TextBlock Text="{Binding Path=SelectedMachType.TypeName,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" />
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
 
-                              <!--Colonna Machining-->
+                           <!--Colonna Machining-->
-                              <DataGridTemplateColumn Width="1*">
+                           <DataGridTemplateColumn Width="1*">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.MachHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.MachHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding Mach, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding Mach, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=MachList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
+                                       ItemsSource="{Binding Path=MachList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=Mach, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
+                                    <TextBlock Text="{Binding Path=Mach, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"
-                                          ToolTip="{Binding Path=Mach, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"/>
+                                       ToolTip="{Binding Path=Mach, Mode=TwoWay, UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
 
-                              <!--Colonna MachiningUpType-->
+                           <!--Colonna MachiningUpType-->
-                              <DataGridTemplateColumn Width="0.5*">
+                           <DataGridTemplateColumn Width="0.5*">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.MachTypeHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.MachTypeHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding SelectedMachUpType,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding SelectedMachUpType,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=MachTypeList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"
+                                       ItemsSource="{Binding Path=MachTypeList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"
-                                          DisplayMemberPath="TypeName"/>
+                                       DisplayMemberPath="TypeName"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=SelectedMachUpType.TypeName,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" />
+                                    <TextBlock Text="{Binding Path=SelectedMachUpType.TypeName,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" />
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
 
-                              <!--Colonna Machining Up-->
+                           <!--Colonna Machining Up-->
-                              <DataGridTemplateColumn Width="1*">
+                           <DataGridTemplateColumn Width="1*">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.MachUpHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.MachUpHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding MachUp,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding MachUp,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=MachUpList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
+                                       ItemsSource="{Binding Path=MachUpList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=MachUp,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                    <TextBlock Text="{Binding Path=MachUp,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ToolTip="{Binding Path=MachUp,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"/>
+                                       ToolTip="{Binding Path=MachUp,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
 
-                              <!--Colonna MachiningDownType-->
+                           <!--Colonna MachiningDownType-->
-                              <DataGridTemplateColumn Width="0.5*">
+                           <DataGridTemplateColumn Width="0.5*">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.MachTypeHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.MachTypeHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding SelectedMachDownType,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding SelectedMachDownType,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=MachTypeList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"
+                                       ItemsSource="{Binding Path=MachTypeList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"
-                                          DisplayMemberPath="TypeName"/>
+                                       DisplayMemberPath="TypeName"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=SelectedMachDownType.TypeName,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" />
+                                    <TextBlock Text="{Binding Path=SelectedMachDownType.TypeName,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}" />
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
 
-                              <!--Colonna Machining Down-->
+                           <!--Colonna Machining Down-->
-                              <DataGridTemplateColumn Width="1*">
+                           <DataGridTemplateColumn Width="1*">
-                                 <DataGridTemplateColumn.Header>
+                              <DataGridTemplateColumn.Header>
-                                    <TextBlock Text="{Binding Path=DataContext.MachDownHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
+                                 <TextBlock Text="{Binding Path=DataContext.MachDownHdr,RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtCustomWindow}}}"/>
-                                 </DataGridTemplateColumn.Header>
+                              </DataGridTemplateColumn.Header>
-                                 <DataGridTemplateColumn.CellEditingTemplate>
+                              <DataGridTemplateColumn.CellEditingTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <ComboBox IsEditable="False" 
+                                    <ComboBox IsEditable="False" 
-                                          SelectedItem="{Binding MachDw,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                       SelectedItem="{Binding MachDw,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ItemsSource="{Binding Path=MachDownList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
+                                       ItemsSource="{Binding Path=MachDownList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellEditingTemplate>
+                              </DataGridTemplateColumn.CellEditingTemplate>
-                                 <DataGridTemplateColumn.CellTemplate>
+                              <DataGridTemplateColumn.CellTemplate>
-                                    <DataTemplate>
+                                 <DataTemplate>
-                                       <TextBlock Text="{Binding Path=MachDw,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
+                                    <TextBlock Text="{Binding Path=MachDw,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                                          ToolTip="{Binding Path=MachDw,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"/>
+                                       ToolTip="{Binding Path=MachDw,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"/>
-                                    </DataTemplate>
+                                 </DataTemplate>
-                                 </DataGridTemplateColumn.CellTemplate>
+                              </DataGridTemplateColumn.CellTemplate>
-                              </DataGridTemplateColumn>
+                           </DataGridTemplateColumn>
-                              <DataGridTextColumn Header="Link"
+                        </DataGrid.Columns>
-                                                  Binding="{Binding Path=Link}"
-                                                  Foreground="Black"
-                                                  IsReadOnly="True"
-                                                  Visibility="{Binding Path=DataContext.Link_Visibility, Source={x:Reference dummyElement}}"/>
-                           </DataGrid.Columns>
                         
-                        </DataGrid>                     
+                     </DataGrid>                     
-                     </Grid>
                   </TabItem.Content>
                </TabItem>
                
@@ -559,18 +548,6 @@
                <ColumnDefinition Width="2*"/>
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="1*"/>
-               <ColumnDefinition >
-                  <ColumnDefinition.Style>
-                     <Style TargetType="{x:Type ColumnDefinition}">
-                        <Setter Property="Width" Value="1*"/>
-                        <Style.Triggers>
-                           <DataTrigger Binding="{Binding Visibility, ElementName=LinkBtn}" Value="Collapsed">
-                              <Setter Property="Width" Value="Auto"/>
-                           </DataTrigger>
-                        </Style.Triggers>
-                     </Style>
-                  </ColumnDefinition.Style>
-               </ColumnDefinition>
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="1*"/>
                <ColumnDefinition Width="2*"/>
@@ -617,25 +594,20 @@
                     CommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"
                     IsEnabled="{Binding MoveRow_IsEnabled}"
                     Grid.Column="4"/>
-            <Button x:Name="LinkBtn" Content="Link" Command="{Binding LinkCommand}"
-                    CommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"
-                    IsEnabled="{Binding Link_IsEnabled}"
-                    Visibility="{Binding Link_Visibility}"
-                    Grid.Column="5"/>
             <Button Content="Group" Command="{Binding GroupCommand}"
                     CommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"
                     IsEnabled="{Binding Group_IsEnabled}"
-                    Grid.Column="6"/>
+                    Grid.Column="5"/>
             <Button Content="Position" Command="{Binding PositionCommand}"
                     CommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"
                     IsEnabled="{Binding Position_IsEnabled}"
-                    Grid.Column="7"/>
+                    Grid.Column="6"/>
             <Button Content="{Binding AddMachBtn}" Command="{Binding AddMachCommand}"
-                    CommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"
+               CommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"
-                    Grid.Column="8"/>
+               Grid.Column="7"/>
             <Button Content="{Binding RemoveMachBtn}" Command="{Binding RemoveMachCommand}"
-                    CommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"
+               CommandParameter="{Binding Path=SelectedItem, ElementName=TablesListBox}"
-                    Grid.Column="9"/>
+               Grid.Column="8"/>
          </Grid>
 
       </Grid>

Special-Doors/MTableDbV.xaml.vb

@@ -1,7 +1,6 @@
 Imports System.Windows
 Imports System.Windows.Controls.Primitives
 Imports EgtWPFLib5
-Imports EgtUILib
 
 Public Class MTableDbV
 
@@ -156,31 +155,4 @@ Public Class MTableDbV
       WinPosFromWindowToIni(Me, S_DOORS, K_MTABLEWINPLACE)
    End Sub
 
-
-   Public Sub DataGrid_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
-      If e.ChangedButton = MouseButton.Left Then
-         If (Keyboard.Modifiers And ModifierKeys.Shift) = ModifierKeys.Shift Then
-            e.Handled = True
-         End If
-         If (Keyboard.Modifiers And ModifierKeys.Control) = ModifierKeys.Control AndAlso TypeOf sender Is DataGrid AndAlso DirectCast(sender, DataGrid).SelectedItems.Count >= 2 Then
-            e.Handled = True
-         End If
-
-      End If
-   End Sub
-
-   Public Sub DataGrid_PreviewMouseUp(sender As Object, e As MouseButtonEventArgs)
-   End Sub
-
-   Public Sub DataGrid_PreviewMouseMove(sender As Object, e As MouseEventArgs)
-      Dim Element As Object = e.OriginalSource
-      While Not IsNothing(Element) AndAlso Not TypeOf Element Is ScrollBar
-         Element = VisualTreeHelper.GetParent(Element)
-      End While
-      ' verifico che non sia ScrollBar, di modo che questa continui a funzionare, ma non possa selezionare piu' righe trascinando
-      If IsNothing(Element) OrElse Not TypeOf Element Is ScrollBar Then
-         e.Handled = True
-      End If
-   End Sub
-
 End Class

Special-Doors/MTableDbVM.vb

@@ -1,9 +1,7 @@
 Imports System.Collections.ObjectModel
-Imports System.Collections.Specialized
 Imports System.ComponentModel
 Imports System.IO
 Imports System.Text.RegularExpressions
-Imports System.Windows.Forms.LinkLabel
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -158,24 +156,6 @@ Public Class MTableDbVM
       End Set
    End Property
 
-   Private m_Link_Visibility As Visibility = Visibility.Collapsed
-   Public ReadOnly Property Link_Visibility As Visibility
-      Get
-         Return m_Link_Visibility
-      End Get
-   End Property
-
-   Private m_Link_IsEnabled As Boolean
-   Public Property Link_IsEnabled As Boolean
-      Get
-         Return m_Link_IsEnabled
-      End Get
-      Set(value As Boolean)
-         m_Link_IsEnabled = value
-         NotifyPropertyChanged(NameOf(Link_IsEnabled))
-      End Set
-   End Property
-
 #Region "Messages"
 
    Public ReadOnly Property Title As String
@@ -379,7 +359,6 @@ Public Class MTableDbVM
    Private m_cmdMoveRowDown As ICommand
    Private m_cmdGroup As ICommand
    Private m_cmdPosition As ICommand
-   Private m_cmdLink As ICommand
    Private m_cmdCloseMTableWindow As ICommand
 
 #Region "CONSTRUCTOR"
@@ -406,9 +385,6 @@ Public Class MTableDbVM
          ' Altrimenti recupero macchina corrente all'apertura della finestra per poterla ripristinare alla fine
          EgtGetCurrMachineName(m_sPreviousActiveMachine)
       End If
-      ' leggo abilitazione link
-      m_Link_Visibility = If(GetMainPrivateProfileInt(S_DOORS, K_OPTIMIZEMACHFORLINE, 0) = 1, Visibility.Visible, Visibility.Collapsed)
-      NotifyPropertyChanged(NameOf(Link_Visibility))
       ' Azzero indice per nome tabella di default
       MTableListBoxItem.NewMTableIndex = 0
       ' Creo liste operazioni e proprietà
@@ -428,29 +404,17 @@ Public Class MTableDbVM
       If EgtVerifyMachinesDir() AndAlso Not bActiveMTableFound AndAlso m_TablesList.Count > 0 Then
          m_TablesList(0).IsSelected = True
          If Not m_TablesList(0).IsSelected Then
-            m_TablesList.RemoveAt(0)
+            m_TablesList.RemoveAt( 0)
-            Return
+            return
-         End If
+         End If 
          m_TablesList(0).SelMachine = m_TablesList(0).ActiveMachinesList(0)
       End If
-      For Each Table In TablesList
-         AddHandler Table.SelectedAssociations.CollectionChanged, AddressOf SelectedAssociations_CollectionChanged
-      Next
    End Sub
 
 #End Region
 
 #Region "METHODS"
 
-   Private Sub SelectedAssociations_CollectionChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
-      For Each Table In TablesList
-         If Table.IsSelected Then
-            AddRemoveRow_IsEnabled = Table.SelectedAssociations.Count = 1
-            Link_IsEnabled = Table.SelectedAssociations.Count = 2
-         End If
-      Next
-   End Sub
-
    Private Sub UpdateTables()
       m_TablesList.Clear()
       ' se trovo la cartella carico la lista di tabelle
@@ -1256,7 +1220,7 @@ Public Class MTableDbVM
       Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem)
       If Not IsNothing(SelectedMTable) AndAlso Not IsNothing(SelectedMTable.SelectedAssociation) Then
          Dim SelectedIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociation)
-         Dim NewEmptyRow As MTableAssociationGridBoxItem = New MTableAssociationGridBoxItem(False, String.Empty, 1, 0, String.Empty, Nothing, String.Empty, Nothing, String.Empty, Nothing, String.Empty, 0, SelectedMTable.ActiveMachinesList, SelectedMTable.AssociationList)
+         Dim NewEmptyRow As MTableAssociationGridBoxItem = New MTableAssociationGridBoxItem(False, String.Empty, 1, 0, String.Empty, Nothing, String.Empty, Nothing, String.Empty, Nothing, String.Empty, SelectedMTable.ActiveMachinesList, SelectedMTable.AssociationList)
          SelectedMTable.AssociationList.Insert(SelectedIndex + 1, NewEmptyRow)
          SelectedMTable.SelectedAssociation = NewEmptyRow
          SelectedMTable.NotifyPropertyChanged("SelectedAssociation")
@@ -1355,21 +1319,10 @@ Public Class MTableDbVM
 
    ' Left table Movement
    Public Sub LeftTableMoveRowUp(SelectedMTable As MTableListBoxItem)
-      If SelectedMTable.SelectedAssociations.Count < 2 Then
+      Dim SelectedIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociation)
-         Dim SelectedIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociation)
+      If SelectedIndex >= 1 Then
-         If SelectedIndex >= 1 Then
+         SelectedMTable.AssociationList.Move(SelectedIndex, SelectedIndex - 1)
-            SelectedMTable.AssociationList.Move(SelectedIndex, SelectedIndex - 1)
-         End If
-      ElseIf SelectedMTable.SelectedAssociations.Count > 2 Then
-         Return
-      Else
-         Dim MoveIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociations(0))
-         Dim DestinationIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociations(1))
-         If DestinationIndex >= 0 Then
-            SelectedMTable.AssociationList.Move(MoveIndex, If(MoveIndex > DestinationIndex, DestinationIndex, Math.Max(0, DestinationIndex - 1)))
-         End If
       End If
-
    End Sub
 
    Public Sub RightTableMoveRowUp(SelectedMTable As MTableListBoxItem)
@@ -1619,19 +1572,9 @@ Public Class MTableDbVM
 
    ' Spostamento sulla tabella delle associazioni
    Public Sub LeftTableMoveRowDown(SelectedMTable As MTableListBoxItem)
-      If SelectedMTable.SelectedAssociations.Count < 2 Then
+      Dim SelectedIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociation)
-         Dim SelectedIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociation)
+      If SelectedIndex < SelectedMTable.AssociationList.Count - 1 Then
-         If SelectedIndex < SelectedMTable.AssociationList.Count - 1 Then
+         SelectedMTable.AssociationList.Move(SelectedIndex, SelectedIndex + 1)
-            SelectedMTable.AssociationList.Move(SelectedIndex, SelectedIndex + 1)
-         End If
-      ElseIf SelectedMTable.SelectedAssociations.Count > 2 Then
-         Return
-      Else
-         Dim MoveIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociations(0))
-         Dim DestinationIndex As Integer = SelectedMTable.AssociationList.IndexOf(SelectedMTable.SelectedAssociations(1))
-         If DestinationIndex < SelectedMTable.AssociationList.Count Then
-            SelectedMTable.AssociationList.Move(MoveIndex, If(MoveIndex > DestinationIndex, DestinationIndex + 1, DestinationIndex))
-         End If
       End If
    End Sub
 
@@ -1643,39 +1586,6 @@ Public Class MTableDbVM
 
 #End Region    ' MoveRowDownCommand
 
-#Region "Link"
-
-   ''' <summary>
-   ''' Returns a command that do Exec.
-   ''' </summary>
-   Public ReadOnly Property LinkCommand As ICommand
-      Get
-         If m_cmdLink Is Nothing Then
-            m_cmdLink = New Command(AddressOf Link)
-         End If
-         Return m_cmdLink
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Execute the Exec.  This method is invoked by the ExecCommand.
-   ''' </summary>
-   Public Sub Link(param As Object)
-      Dim SelectedMTable As MTableListBoxItem = DirectCast(param, MTableListBoxItem)
-      If IsNothing(SelectedMTable) OrElse SelectedMTable.SelectedAssociations.Count <> 2 Then Return
-      'If (SelectedMTable.SelectedAssociations(0).nLink = 0 AndAlso SelectedMTable.SelectedAssociations(1).nLink <> 0) OrElse (SelectedMTable.SelectedAssociations(0).nLink <> 0 AndAlso SelectedMTable.SelectedAssociations(1).nLink = 0) Then Return
-      If SelectedMTable.SelectedAssociations(0).nLink = 0 AndAlso SelectedMTable.SelectedAssociations(1).nLink = 0 Then
-         Dim nNewIndex As Integer = SelectedMTable.AssociationList.Max(Function(x) x.nLink) + 1
-         SelectedMTable.SelectedAssociations(0).SetLink(nNewIndex)
-         SelectedMTable.SelectedAssociations(1).SetLink(-nNewIndex)
-      ElseIf SelectedMTable.SelectedAssociations(0).nLink = Math.Abs(SelectedMTable.SelectedAssociations(1).nLink) OrElse SelectedMTable.SelectedAssociations(1).nLink = Math.Abs(SelectedMTable.SelectedAssociations(0).nLink) Then
-         SelectedMTable.SelectedAssociations(0).SetLink(0)
-         SelectedMTable.SelectedAssociations(1).SetLink(0)
-      End If
-   End Sub
-
-#End Region    ' MoveRowDownCommand
-
 #Region "GroupCommand"
 
    ''' <summary>

Special-Doors/MTableListBox.vb

@@ -5,7 +5,6 @@ Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 Imports EgtCAM5.MachineModel
-Imports System.Collections.Specialized
 
 Public Class MTableListBoxItem
    Inherits VMBase
@@ -149,30 +148,10 @@ Public Class MTableListBoxItem
    Private m_SelectedAssociation As MTableAssociationGridBoxItem
    Public Property SelectedAssociation As MTableAssociationGridBoxItem
       Get
-         Return m_SelectedAssociations(0)
+         Return m_SelectedAssociation
       End Get
       Set(value As MTableAssociationGridBoxItem)
-         Dim bFound As Boolean = False
+         m_SelectedAssociation = value
-         For ItemIndex = m_SelectedAssociations.Count - 1 To 0 Step -1
-            If m_SelectedAssociations(ItemIndex) Is value Then
-               bFound = True
-            Else
-               m_SelectedAssociations.RemoveAt(ItemIndex)
-            End If
-            If Not bFound Then
-               m_SelectedAssociations.Add(value)
-            End If
-         Next
-      End Set
-   End Property
-
-   Private m_SelectedAssociations As New ObservableCollection(Of MTableAssociationGridBoxItem)
-   Public Property SelectedAssociations As ObservableCollection(Of MTableAssociationGridBoxItem)
-      Get
-         Return m_SelectedAssociations
-      End Get
-      Set(value As ObservableCollection(Of MTableAssociationGridBoxItem))
-         m_SelectedAssociations = value
       End Set
    End Property
 
@@ -190,11 +169,6 @@ Public Class MTableListBoxItem
    Sub New(sTableName As String, sTableNamePath As String)
       TableName = sTableName
       m_TableNamePath = sTableNamePath
-      AddHandler m_SelectedAssociations.CollectionChanged, AddressOf SelectedAssociations_CollectionChanged
-   End Sub
-
-   Private Sub SelectedAssociations_CollectionChanged(sender As Object, e As NotifyCollectionChangedEventArgs)
-
    End Sub
 
    Private Function ReadMTableFile() As Boolean
@@ -202,7 +176,7 @@ Public Class MTableListBoxItem
          SharedMachIndex += 1
          ActiveMachinesList.Add(New MTableMachineListBoxItem(String.Empty, False, False, SharedMachIndex))
          m_MachIdList.Add(SharedMachIndex)
-         AssociationList.Add(New MTableAssociationGridBoxItem(False, String.Empty, Nothing, 0, String.Empty, Nothing, String.Empty, Nothing, String.Empty, Nothing, String.Empty, 0, ActiveMachinesList, m_AssociationList))
+         AssociationList.Add(New MTableAssociationGridBoxItem(False, String.Empty, Nothing, 0, String.Empty, Nothing, String.Empty, Nothing, String.Empty, Nothing, String.Empty, ActiveMachinesList, m_AssociationList))
          Return True
       End If
       ' resetto indici macchine impostati in tabella
@@ -862,7 +836,7 @@ Public Class MTableAssociationGridBoxItem
             If Not IsNothing(m_SelectedMachType) Then
                m_RefMachItem = ManageOrderedMachining(Mach, nOldMachId, RefMachItem)
                If String.IsNullOrWhiteSpace(m_Mach) Then NotifyPropertyChanged("Mach")
-            End If
+             End If
             If Not IsNothing(m_SelectedMachUpType) Then
                m_RefMachUpItem = ManageOrderedMachining(MachUp, nOldMachId, RefMachUpItem)
                If String.IsNullOrWhiteSpace(m_MachUp) Then NotifyPropertyChanged("MachUp")
@@ -1100,33 +1074,8 @@ Public Class MTableAssociationGridBoxItem
       End Set
    End Property
 
-   Private m_Link As Integer
-   Public Property Link As String
-      Get
-         Return m_Link.ToString()
-      End Get
-      Set(value As String)
-         Dim nValue As Integer = 0
-         If Integer.TryParse(value, nValue) Then
-            m_IsModified = True
-            m_Link = nValue
-         Else
-            NotifyPropertyChanged(NameOf(Link))
-         End If
-      End Set
-   End Property
-   Public ReadOnly Property nLink As Integer
-      Get
-         Return m_Link
-      End Get
-   End Property
-   Public Sub SetLink(value As Integer)
-      m_Link = value
-      NotifyPropertyChanged(NameOf(Link))
-   End Sub
-
    Sub New(bOn As Boolean, sName As String, nMachId As Integer, nShift As Integer, sOper As String,
-           RefMachItem As MTableMachiningGridBoxItem, sMach As String, RefMachUpItem As MTableMachiningGridBoxItem, sMachUp As String, RefMachDwItem As MTableMachiningGridBoxItem, sMachDw As String, nLink As Integer,
+           RefMachItem As MTableMachiningGridBoxItem, sMach As String, RefMachUpItem As MTableMachiningGridBoxItem, sMachUp As String, RefMachDwItem As MTableMachiningGridBoxItem, sMachDw As String,
            ByRef ActiveMachinesList As ObservableCollection(Of MTableMachineListBoxItem), ByRef AssociationList As ObservableCollection(Of MTableAssociationGridBoxItem))
 
       OnPar = bOn
@@ -1169,7 +1118,7 @@ Public Class MTableAssociationGridBoxItem
       ' Assegno l'operazione
       Oper = sOper
       ' dall'MId recupero la macchina a cui si riferisce questa associazione e la imposto come corrente
-      If Not IsNothing(m_ActiveMachinesList(m_MachId - 1).SelectedMachine) Then
+      If not IsNothing(m_ActiveMachinesList(m_MachId - 1).SelectedMachine) Then
          EgtSetCurrMachine(m_ActiveMachinesList(m_MachId - 1).SelectedMachine.Name)
          ' Imposto MachType selezionato cercando il tipo delle lavorazioni 
          If EgtMdbSetCurrMachining(sMach) Then
@@ -1242,7 +1191,6 @@ Public Class MTableAssociationGridBoxItem
             m_RefMachDwItem = RefMachDwItem
          End If
       End If
-      m_Link = nLink
       m_IsModified = False
    End Sub
 
@@ -1259,7 +1207,7 @@ Public Class MTableAssociationGridBoxItem
                End If
             Next
          End If
-         ' Se il nuovo valore è valido
+      ' Se il nuovo valore è valido
       Else
          ' Se non esiste già il rispettivo item nella lista lavorazioni ordinata lo creo
          If IsNothing(RefMachItem) Then
@@ -1275,7 +1223,7 @@ Public Class MTableAssociationGridBoxItem
                   m_ActiveMachinesList(MachIndex).MachiningList.Insert(0, RefMachItem)
                End If
             Next
-            ' altrimenti lo aggiorno con la nuova lavorazione
+         ' altrimenti lo aggiorno con la nuova lavorazione
          Else
             RefMachItem.Machining = Mach
          End If

Special-Doors/TableUtility.vb

@@ -26,7 +26,6 @@ Module TableUtility
    Private Const MACHDW As String = "MachDw"
    Private Const MACHID As String = "MachId"
    Private Const SHIFT As String = "Shift"
-   Private Const LINK As String = "Link"
    Private Const PROPERTYTABLE As String = "PropertyTable"
    Private Const OPER As String = "Oper"
    Private Const GROUP As String = "Group"
@@ -94,7 +93,6 @@ Module TableUtility
             Dim nMachId As Integer = 1
             Dim nShift As Integer = 0
             Dim sOper As String = String.Empty
-            Dim nLink As Integer = 0
             If Not String.IsNullOrEmpty(sName) Then
                Dim sOn As String = SearchKey(FileContent(LineIndex), ONCONST)
                If Not String.IsNullOrEmpty(sOn) Then
@@ -168,9 +166,7 @@ Module TableUtility
                      End If
                   End If
                Next
-               Dim sLink As String = SearchKey(FileContent(LineIndex), LINK)
+               Table.AssociationList.Add(New MTableAssociationGridBoxItem(bOn, sName, nMachId, nShift, sOper, MachItem, sMach, MachUpItem, sMachUp, MachDwItem, sMachDw, Table.ActiveMachinesList, Table.AssociationList))
-               Integer.TryParse(sLink, nLink)
-               Table.AssociationList.Add(New MTableAssociationGridBoxItem(bOn, sName, nMachId, nShift, sOper, MachItem, sMach, MachUpItem, sMachUp, MachDwItem, sMachDw, nLink, Table.ActiveMachinesList, Table.AssociationList))
             End If
          End If
          If bPropertyTable Then
@@ -241,7 +237,7 @@ Module TableUtility
       End If
       ' se nessuna lavorazione, ne aggiungo una vuota
       If Table.AssociationList.Count = 0 Then
-         Table.AssociationList.Add(New MTableAssociationGridBoxItem(False, String.Empty, 0, 0, String.Empty, Nothing, String.Empty, Nothing, String.Empty, Nothing, String.Empty, 0, Table.ActiveMachinesList, Table.AssociationList))
+         Table.AssociationList.Add(New MTableAssociationGridBoxItem(False, String.Empty, 0, 0, String.Empty, Nothing, String.Empty, Nothing, String.Empty, Nothing, String.Empty, Table.ActiveMachinesList, Table.AssociationList))
       End If
       Return True
    End Function
@@ -480,8 +476,7 @@ Module TableUtility
                                                                                                                ", MachUp = '" & SelectedTable.AssociationList(Index).MachUp & "'", String.Empty) &
                                      If(Not String.IsNullOrEmpty(SelectedTable.AssociationList(Index).MachDw), ", MachDwOrd = '" & SelectedTable.AssociationList(Index).RefMachDwItem.RWGroupId & "'" &
                                                                                                                ", MachDwJoin = '" & If(SelectedTable.AssociationList(Index).RefMachDwItem.Join, 1, 0) & "'" &
-                                                                                                               ", MachDw = '" & SelectedTable.AssociationList(Index).MachDw & "'", String.Empty) &
+                                                                                                               ", MachDw = '" & SelectedTable.AssociationList(Index).MachDw & "'", String.Empty) & " }"
-                                     If(Not String.IsNullOrEmpty(SelectedTable.AssociationList(Index).Link), ", Link = '" & SelectedTable.AssociationList(Index).Link & "'", String.Empty) & " }"
          If Index < SelectedTable.AssociationList.Count - 1 Then
             CurrentLine &= " ,"
          End If

StructureDataForMessenger.vb

@@ -1,6 +1,4 @@
 Imports EgtUILib
-Imports EgtWPFLib5
-Imports EgtWPFLib5.MachiningTreeViewItem
 
 Public Class PrepareInputBoxParam
    Friend sTitle As String
@@ -64,112 +62,4 @@ Public Class NewMachOpParam
       Me.SelMachOpId = SelMachOpId
    End Sub
 
-End Class
-
-Public Class InfoItem
-   Inherits VMBase
-
-#Region "FIELDS & PROPERTIES"
-
-   Friend nId As Integer
-   ''' <summary>
-   ''' Indice lista info note
-   ''' </summary>
-   Public ReadOnly Property Id As Integer
-      Get
-         Return Id
-      End Get
-   End Property
-
-   Friend sKey As String
-   ''' <summary>
-   ''' Chiave lista info note
-   ''' </summary>
-   Public ReadOnly Property Key As String
-      Get
-         Return sKey
-      End Get
-   End Property
-
-   Friend sValour As String
-   ''' <summary>
-   ''' Valore lista info note
-   ''' </summary>
-   Public Property Valour As String
-      Get
-         Return sValour
-      End Get
-      Set(value As String)
-         sValour = value
-         NotifyPropertyChanged(NameOf(Valour))
-      End Set
-   End Property
-
-#End Region    ' Fields & Properties
-
-   ' Comandi
-   Private m_cmdRemoveInfoItem As ICommand
-   Private m_cmdDoneInfo As ICommand
-
-#Region "CONSTRUCTORS"
-
-   Sub New(nId As Integer, sKey As String, sValue As String)
-      Me.nId = nId
-      Me.sKey = sKey
-      Me.sValour = sValue
-   End Sub
-
-#End Region    ' Constructors
-
-#Region "COMMANDS"
-
-#Region "RemoveItemNoteCommand"
-
-   ''' <summary>
-   ''' Comando per rimuovere l'informazione selezionata dalla combobox
-   ''' </summary>
-   Public ReadOnly Property RemoveInfoItemCommand As ICommand
-      Get
-         If m_cmdRemoveInfoItem Is Nothing Then
-            m_cmdRemoveInfoItem = New Command(AddressOf RemoveInfoItem)
-         End If
-         Return m_cmdRemoveInfoItem
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Rimuove l'informazione selezionata dalla combobox
-   ''' </summary>
-   ''' <param name="param"></param>
-   Public Sub RemoveInfoItem(ByVal param As Object)
-      Map.refInputExpanderVM.RemoveItemInfo(Me)
-   End Sub
-
-#End Region    ' RemoveItemNoteCommand
-
-#Region "DoneInfoCommand"
-
-   ''' <summary>
-   ''' Comando per la conferma modifica o aggiunta nuova informazione
-   ''' </summary>
-   Public ReadOnly Property DoneInfoCommand As ICommand
-      Get
-         If m_cmdDoneInfo Is Nothing Then
-            m_cmdDoneInfo = New Command(AddressOf DoneInfo)
-         End If
-         Return m_cmdDoneInfo
-      End Get
-   End Property
-
-   ''' <summary>
-   ''' Conferma modifica o aggiunta nuova informazione
-   ''' </summary>
-   Public Sub DoneInfo(ByVal param As Object)
-      Map.refInputExpanderVM.Done(Me)
-   End Sub
-
-#End Region    ' DoneInfoCommand
-
-#End Region    ' Commands
-
 End Class

TopCommandBar/TopCommandBarVM.vb

@@ -219,12 +219,8 @@ Public Class TopCommandBarVM
          Dim bAllowEmpty As Boolean = (Keyboard.IsKeyDown(Key.LeftShift) OrElse Keyboard.IsKeyDown(Key.RightShift))
          ' Cerco di preimpostare come corrente la macchina opportuna
          If Not bAllowEmpty AndAlso EgtGetSelectedObjCount() = 0 AndAlso EgtGetMachGroupCount() > 0 Then
-            Dim nMchGrpId As Integer = EgtGetCurrMachGroup()
-            If nMchGrpId = GDB_ID.NULL Then
-               nMchGrpId = EgtGetFirstMachGroup()
-            End If
             Dim sMachineName As String = ""
-            If EgtGetMachGroupMachineName(nMchGrpId, sMachineName) Then
+            if EgtGetMachGroupMachineName( EgtGetFirstMachGroup(), sMachineName) Then
                Map.refMachinePanelVM.SelectedMachine = Map.refMachinePanelVM.MachinesList.FirstOrDefault(Function(x) x.Name = sMachineName)
             End If
          End If
@@ -236,7 +232,7 @@ Public Class TopCommandBarVM
          If EgtGetCurrMachGroup() = GDB_ID.NULL Then
             ExecExitMachScript()
             EgtDraw()
-            ' altrimenti, aggiusto...
+         ' altrimenti, aggiusto...
          Else
             ' se parametri di una lavorazione aperti, disattivo database utensili, lavorazioni e setup 
             Dim bIsEnabled As Boolean = Not IsNothing(Map.refOperationParametersExpanderVM) AndAlso Not Map.refOperationParametersExpanderVM.ParametersIsExpanded

Utility/Dictionary.xaml

@@ -38,6 +38,7 @@
    <EgtCAM5:DoorPanelVM x:Key="DoorsPanelViewModel"/>
    <EgtCAM5:GunStockPanelVM x:Key="GunStockPanelViewModel"/>
    <EgtCAM5:MyMachGroupPanelVM x:Key="MachGroupPanelViewModel"/>
+   <EgtCAM5:WinFormPluginControlVM x:Key="WinFormPluginControlViewModel"/>
    <!--<EgtCAM5:MachGroupPanelVM x:Key="MachGroupPanelViewModel"/>-->
    <!--<EgtCAM5:OperationExpanderVM x:Key="OperationExpanderViewModel"/>-->
 
@@ -458,6 +459,10 @@
    <Style x:Key="DrawPanelButton" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">
       <Setter Property="Height" Value="30"/>
       <Setter Property="Width" Value="30"/>
+      <Setter Property="ToolTipService.ShowOnDisabled" Value="True"/>
+      <Setter Property="ContextMenuService.Placement" Value="Right"/>
+      <Setter Property="ContextMenuService.HorizontalOffset" Value="-1.5"/>
+      <Setter Property="ContextMenuService.VerticalOffset" Value="-3.5"/>
    </Style>
 
    <Style x:Key="MachiningsTextBlock" TargetType="{x:Type TextBlock}" BasedOn="{StaticResource {x:Type TextBlock}}">
@@ -667,17 +672,13 @@
                      <Image.Style>
                         <Style>
                            <Setter Property="Image.Source" 
-                                   Value="/Resources/TreeView/LampOff.png" />
+                                Value="/Resources/TreeView/LampOff.png" />
                            <Style.Triggers>
                               <DataTrigger Binding="{Binding IsChecked, 
-                                                             RelativeSource={RelativeSource AncestorType={x:Type ToggleButton}}}" Value="True">
+                                    RelativeSource={RelativeSource AncestorType=
+                                    {x:Type ToggleButton}}}" Value="True">
                                  <Setter Property="Image.Source" 
-                                         Value="/Resources/TreeView/LampOn.png" />
+                                        Value="/Resources/TreeView/LampOn.png" />
-                              </DataTrigger>
-                              <DataTrigger Binding="{Binding IsChecked, 
-                                                             RelativeSource={RelativeSource AncestorType={x:Type ToggleButton}}}" Value="{x:Null}">
-                                 <Setter Property="Image.Source" 
-                                         Value="/Resources/TreeView/LampSel.png" />
                               </DataTrigger>
                            </Style.Triggers>
                         </Style>
@@ -1227,9 +1228,9 @@
       <Setter Property="Margin" Value="1,0,0,0"/>
    </Style>
 
-   <Style x:Key="MPExpander_UserNotesTxBxMargin" TargetType="{x:Type EgtWPFLib5:EgtTextBox}">
+    <Style x:Key="MPExpander_UserNotesTxBxMargin" TargetType="{x:Type EgtWPFLib5:EgtTextBox}">
-      <Setter Property="Margin" Value="-1,0,0,0"/>
+        <Setter Property="Margin" Value="-1,0,0,0"/>
-   </Style>
+    </Style>
 
    <!-- ______________________________________________________________________________________________________________________________________________ -->
 
@@ -1262,6 +1263,26 @@
       </Style.Triggers>
    </Style>
 
+<Style x:Key="ListBoxItemStyle" TargetType="ListBoxItem">
+      <Setter Property="Template">
+         <Setter.Value>
+            <ControlTemplate TargetType="ListBoxItem">
+               <Border Name="_Border"
+                       SnapsToDevicePixels="True"
+                       BorderBrush="{StaticResource EgaltechWhite}"
+                       BorderThickness="1">
+                  <ContentPresenter />
+               </Border>
+               <ControlTemplate.Triggers>
+                  <Trigger Property="IsSelected" Value="True">
+                     <Setter TargetName="_Border" Property="Background" Value="{StaticResource Button.Pressed.Background}"/>
+                  </Trigger>
+               </ControlTemplate.Triggers>
+            </ControlTemplate>
+         </Setter.Value>
+      </Setter>
+   </Style>
+   
    <!-- ______________________________________________________________________________________________________________________________________________ -->
 
    <!-- Style CheckBox -->
@@ -1276,4 +1297,20 @@
       </Style.Triggers>-->
    </Style>
 
+
+   <!-- ______________________________________________________________________________________________________________________________________________ -->
+
+
+   <ItemsPanelTemplate x:Key="MenuItemPanelTemplate">
+      <StackPanel Margin="-38,0,0,0" Background="Transparent" />
+   </ItemsPanelTemplate>
+
+   <Style x:Key="ContextMenu_Button" TargetType="{x:Type ContextMenu}">
+      <Setter Property="ItemsPanel" Value="{StaticResource MenuItemPanelTemplate}"/>
+      <Setter Property="Background" Value="Transparent"/>
+      <Setter Property="BorderBrush" Value="Transparent"/>
+      <Setter Property="BorderThickness" Value="0"/>
+      <Setter Property="Width" Value="37"/>
+   </Style>
+
 </ResourceDictionary>

Utility/MachineModel.vb

@@ -38,16 +38,16 @@ Public Module MachineModel
       If EgtUILib.GetPrivateProfileInt(S_MACHININGS, K_CHISELING, 0, m_sCurrMachIniFilePath) <> 0 Then
          ActiveMachiningsFamiliesList.Add(New MachiningsType With {.TypeId = MCH_MY.CHISELING, .TypeName = EgtMsg(MSG_MACHININGSDBPAGE + 9)})
       End If
-      If EgtUILib.GetPrivateProfileInt(S_MACHININGS, K_WATERJETTING, 0, m_sCurrMachIniFilePath) <> 0 Then
-         ActiveMachiningsFamiliesList.Add(New MachiningsType With {.TypeId = MCH_MY.WATERJETTING, .TypeName = EgtMsg(MSG_MACHININGSDBPAGE + 12)})
-      End If
       If IniFile.IsKeyEnabledAdvancedMachining() AndAlso EgtUILib.GetPrivateProfileInt(S_MACHININGS, K_SURFROUGHING, 0, m_sCurrMachIniFilePath) <> 0 Then
          ActiveMachiningsFamiliesList.Add(New MachiningsType With {.TypeId = MCH_MY.SURFROUGHING, .TypeName = EgtMsg(31212)})
       End If
       If IniFile.IsKeyEnabledAdvancedMachining() AndAlso EgtUILib.GetPrivateProfileInt(S_MACHININGS, K_SURFFINISHING, 0, m_sCurrMachIniFilePath) <> 0 Then
          ActiveMachiningsFamiliesList.Add(New MachiningsType With {.TypeId = MCH_MY.SURFFINISHING, .TypeName = EgtMsg(31211)})
       End If
-      If IniFile.IsKeyEnabledAdvancedMachining() AndAlso EgtUILib.GetPrivateProfileInt(S_MACHININGS, K_5AXMILLING, 0, m_sCurrMachIniFilePath) <> 0 Then
+      If EgtUILib.GetPrivateProfileInt(S_MACHININGS, K_WATERJETTING, 0, m_sCurrMachIniFilePath) <> 0 Then
+         ActiveMachiningsFamiliesList.Add(New MachiningsType With {.TypeId = MCH_MY.WATERJETTING, .TypeName = EgtMsg(MSG_MACHININGSDBPAGE + 12)})
+      End If
+      If EgtUILib.GetPrivateProfileInt(S_MACHININGS, K_5AXMILLING, 0, m_sCurrMachIniFilePath) <> 0 Then
          ActiveMachiningsFamiliesList.Add(New MachiningsType With {.TypeId = MCH_MY.FIVEAXISMILLING, .TypeName = EgtMsg(31213)})
       End If
       Return ActiveMachiningsFamiliesList.ToArray

WinFormPluginControl/WinFormPluginControlV.xaml

@@ -1,6 +1,8 @@
 <Grid x:Class="WinFormPluginControlV"
       xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
       xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+      xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+      xmlns:EgtFloating="clr-namespace:EgtWPFLib5.EgtFloating;assembly=EgtWPFLib5"
       DockPanel.Dock="{Binding DockSide}"
       Height="{Binding Height}"
       Width="{Binding Width}"

app.manifest

@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="utf-8"?>
 <assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1">
-  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+   <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
-  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+   <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
-    <security>
+      <security>
-      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+         <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
-        <!-- UAC Manifest Options
+            <!-- UAC Manifest Options
              If you want to change the Windows User Account Control level replace the 
              requestedExecutionLevel node with one of the following.
 
@@ -16,49 +16,49 @@
             Remove this element if your application requires this virtualization for backwards
             compatibility.
         -->
-        <requestedExecutionLevel level="asInvoker" uiAccess="false" />
+            <requestedExecutionLevel level="asInvoker" uiAccess="false" />
-      </requestedPrivileges>
+         </requestedPrivileges>
-    </security>
+      </security>
-  </trustInfo>
+   </trustInfo>
 
-  <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
+   <compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
-    <application>
+      <application>
-      <!-- A list of the Windows versions that this application has been tested on
+         <!-- A list of the Windows versions that this application has been tested on
            and is designed to work with. Uncomment the appropriate elements
            and Windows will automatically select the most compatible environment. -->
 
-      <!-- Windows Vista -->
+         <!-- Windows Vista -->
-      <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />
+         <supportedOS Id="{e2011457-1546-43c5-a5fe-008deee3d3f0}" />
 
-      <!-- Windows 7 -->
+         <!-- Windows 7 -->
-      <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />
+         <supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}" />
 
-      <!-- Windows 8 -->
+         <!-- Windows 8 -->
-      <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />
+         <supportedOS Id="{4a2f28e3-53b9-4441-ba9c-d69d4a4a6e38}" />
 
-      <!-- Windows 8.1 -->
+         <!-- Windows 8.1 -->
-      <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />
+         <supportedOS Id="{1f676c76-80e1-4239-95bb-83d0f6d0da78}" />
 
-      <!-- Windows 10 -->
+         <!-- Windows 10 -->
-      <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />
+         <supportedOS Id="{8e0f7a12-bfb3-4fe8-b9a5-48fd50a15a9a}" />
 
-    </application>
+      </application>
-  </compatibility>
+   </compatibility>
 
-  <!-- Indicates that the application is DPI-aware and will not be automatically scaled by Windows at higher
+   <!-- Indicates that the application is DPI-aware and will not be automatically scaled by Windows at higher
        DPIs. Windows Presentation Foundation (WPF) applications are automatically DPI-aware and do not need 
        to opt in. Windows Forms applications targeting .NET Framework 4.6 that opt into this setting, should 
        also set the 'EnableWindowsFormsHighDpiAutoResizing' setting to 'true' in their app.config. -->
-  <!--
-  <application xmlns="urn:schemas-microsoft-com:asm.v3">
-    <windowsSettings>
-      <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true</dpiAware>
-    </windowsSettings>
-  </application>
-  -->
 
-  <!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
+   <application xmlns="urn:schemas-microsoft-com:asm.v3">
-  <!--
+      <windowsSettings>
+         <dpiAware xmlns="http://schemas.microsoft.com/SMI/2005/WindowsSettings">true/PM</dpiAware>
+      </windowsSettings>
+   </application>
+
+
+   <!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
+   <!--
   <dependency>
     <dependentAssembly>
       <assemblyIdentity