-piccola correzione

-aggiunto selezione in scena e apertura in albero
-sitemato accensione luce

AboutBoxWindow/AboutBoxView.xaml

@@ -13,8 +13,8 @@
          </Grid.ColumnDefinitions>
          <Grid.RowDefinitions>
             <RowDefinition Height="0.5*"/>
-            <RowDefinition Height="1*"/>
+            <RowDefinition Height="1.75*"/>
-            <RowDefinition Height="0.25*"/>
+            <RowDefinition Height="0.15*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
             <RowDefinition Height="0.5*"/>
@@ -31,7 +31,7 @@
                <ColumnDefinition Width="1*"/>
             </Grid.ColumnDefinitions>
             <Border Name="LogoBrd" Grid.Column="1" Background="White">
-               <Image Source="/Resources/AboutBoxImage.png" Stretch="Uniform"/>
+               <Image Source="/Resources/AboutBox/EgalwareLogo.png" Stretch="Uniform"/>
             </Border>
          </Grid>
          <TextBlock Name="DescriptionLbl" Grid.Column="1" Grid.Row="3" HorizontalAlignment="Center"

AboutBoxWindow/AboutBoxView.xaml.vb

@@ -78,7 +78,7 @@ Public Class AboutBoxWndV
       End If
       If Not bExtensions Then sInfo &= Environment.NewLine & "---"
       InfoLbl.Text = sInfo
-      ExitBtn.Content = EgtMsg(MSG_MISSINGKEYWD + 4)          'Ok
+      ExitBtn.Content = EgtMsg(10104)          'Ok
    End Sub
 
 End Class

Application.xaml.vb

@@ -210,7 +210,8 @@ Class Application
    Friend Const GUNSTOCKMODIF As String = "GunStockModif"
 
    Private Sub Application_DispatcherUnhandledException(ByVal sender As System.Object, ByVal e As System.Windows.Threading.DispatcherUnhandledExceptionEventArgs)
-      MessageBox.Show(e.Exception.Message)
+      'MessageBox.Show(e.Exception.Message)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, e.Exception.Message)
       e.Handled = True
    End Sub
 

AttachedBehaviours/AutomaticCloseExpander.vb

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

AttachedBehaviours/InputBindingsManager.vb

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

Base/TabViewModel.vb

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

Base/TreeView/TreeViewItemBase.vb

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

Command/Command.vb

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

Constants/ConstDoors.vb

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

CurrSetUp/CurrSetUpV.xaml.vb

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

CurrSetUp/CurrSetUpVM.vb

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

DrawPanel/DrawPanelVM.vb

@@ -11,22 +11,22 @@ Public Class DrawPanelVM
 
    Public ReadOnly Property Draw2DMsg As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 44)
+         Return EgtMsg(5244)     ' Disegno 2D
       End Get
    End Property
    Public ReadOnly Property Draw3DMsg As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 45)
+         Return EgtMsg(5245)     ' Disegno 3D
       End Get
    End Property
    Public ReadOnly Property ModifyMsg As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 46)
+         Return EgtMsg(5246)     ' Modifica
       End Get
    End Property
    Public ReadOnly Property TransformMsg As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 47)
+         Return EgtMsg(5247)     ' Trasforma
       End Get
    End Property
 
@@ -37,62 +37,62 @@ Public Class DrawPanelVM
    'Proprietà ToolTip
    Public ReadOnly Property PointToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 1)
+         Return EgtMsg(5201)     ' Punto<br/>Vettore (Shift)<br/>Riferimento (Ctrl)
       End Get
    End Property
    Public ReadOnly Property Line2PToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 2)
+         Return EgtMsg(5202)     ' Linea 2 Punti<br/>Linea 2 Punti con Continuazione (Ctrl)
       End Get
    End Property
    Public ReadOnly Property LinePDLToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 3)
+         Return EgtMsg(5203)     ' Linea Punto Direzione Lunghezza<br/>Linea Punto Vettore Direzione Lunghezza (Shift)
       End Get
    End Property
    Public ReadOnly Property CirclePDToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 4)
+         Return EgtMsg(5204)     ' Cerchio Centro Punto
       End Get
    End Property
    Public ReadOnly Property CircleCDToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 5)
+         Return EgtMsg(5205)     ' Cerchio Centro Diametro
       End Get
    End Property
    Public ReadOnly Property Circle3PToolTip As String
       Get
-         Return EgtMsg(5156)
+         Return EgtMsg(5156)     ' Cerchio 3 Punti
       End Get
    End Property
    Public ReadOnly Property ArcCSEToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 6)
+         Return EgtMsg(5206)     ' Arco Centro Punti Inizio e Fine
       End Get
    End Property
    Public ReadOnly Property Arc3PToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 7)
+         Return EgtMsg(5207)     ' Arco 3 Punti<br/>Arco 2 Punti Raggio (Shift)
       End Get
    End Property
    Public ReadOnly Property ArcPDPToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 8)
+         Return EgtMsg(5208)     ' Arco Punto e Direzione Inizio Punto Fine<br/>Arco Punto e Vettore Direzione Inizio Punto Fine (Shift)<br/>Arco Punto e Direzione Inizio Punto Fine con Continuazione (Ctrl)
       End Get
    End Property
    Public ReadOnly Property Rectangle2PToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 11)
+         Return EgtMsg(5211)     ' Rettangolo 2 Punti
       End Get
    End Property
    Public ReadOnly Property PolygonToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 12)
+         Return EgtMsg(5212)     ' Poligono
       End Get
    End Property
    Public ReadOnly Property PolygonSideToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 13)
+         Return EgtMsg(5213)     ' Poligono da Lato
       End Get
    End Property
    Public ReadOnly Property TextToolTip As String
@@ -118,37 +118,37 @@ Public Class DrawPanelVM
 
    Public ReadOnly Property PlaneToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 15)
+         Return EgtMsg(5215)     ' Piano contornato<br/>Regione piana (Shift)
       End Get
    End Property
    Public ReadOnly Property ExtrudeToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 16)
+         Return EgtMsg(5216)     ' Estrusione
       End Get
    End Property
    Public ReadOnly Property RevolveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 17)
+         Return EgtMsg(5217)     ' Rivoluzione
       End Get
    End Property
    Public ReadOnly Property ScrewToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 18)
+         Return EgtMsg(5218)     ' Avvitamento
       End Get
    End Property
    Public ReadOnly Property SweptToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 48)
+         Return EgtMsg(5248)     ' Swept (Sezione, Guida)
       End Get
    End Property
    Public ReadOnly Property RuledToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 19)
+         Return EgtMsg(5219)     ' Rigata
       End Get
    End Property
    Public ReadOnly Property MergeSurfToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 20)
+         Return EgtMsg(5220)     ' Unisci Superfici
       End Get
    End Property
    Public ReadOnly Property ExplodeSurfToolTip As String
@@ -209,159 +209,159 @@ Public Class DrawPanelVM
 
    Public ReadOnly Property DeleteToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 23)
+         Return EgtMsg(5223)     ' Cancella
       End Get
    End Property
    Public ReadOnly Property ChangeLayerToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 24)
+         Return EgtMsg(5224)     ' Cambia Layer<br/>Cambia Layer con Trasformazioni (Shift)
       End Get
    End Property
    Public ReadOnly Property ChangeStatusToolTip As String
       Get
-         Return EgtMsg(5250)
+         Return EgtMsg(5250)     ' Nascondi<br/>Visualizza Layer (Shift)<br/>Visualizza Pezzo (Ctrl)
       End Get
    End Property
 
    Public ReadOnly Property ChangeAlphaToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 25)
+         Return EgtMsg(5225)     ' Cambia Trasparenza
       End Get
    End Property
    Public ReadOnly Property ResetColorToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 26)
+         Return EgtMsg(5226)     ' Annulla Colore
       End Get
    End Property
    Public ReadOnly Property ChangeColorToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 27)
+         Return EgtMsg(5227)     ' Cambia Colore
       End Get
    End Property
    Public ReadOnly Property InvertCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 28)
+         Return EgtMsg(5228)     ' Inverti Curva
       End Get
    End Property
    Public ReadOnly Property ChangeStartToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 29)
+         Return EgtMsg(5229)     ' Cambia Punto Iniziale di Curva Chiusa
       End Get
    End Property
    Public ReadOnly Property ExtendCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 30)
+         Return EgtMsg(5230)     ' Estendi o Accorcia Curva
       End Get
    End Property
    Public ReadOnly Property BreakCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 31)
+         Return EgtMsg(5231)     ' Spezza Curva
       End Get
    End Property
    Public ReadOnly Property SplitCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 32)
+         Return EgtMsg(5232)     ' Dividi Curva
       End Get
    End Property
    Public ReadOnly Property JoinCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 33)
+         Return EgtMsg(5233)     ' Unisci Curve<br/>Unisci Curve creando una Copia (Shift)<br/>Fondi Curve nella Composita (Ctrl)
       End Get
    End Property
    Public ReadOnly Property ExplodeCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 34)
+         Return EgtMsg(5234)     ' Esplodi Curve e Testi
       End Get
    End Property
    Public ReadOnly Property ThickCurveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 35)
+         Return EgtMsg(5235)     ' Spessore e Estrusione Curva
       End Get
    End Property
    Public ReadOnly Property FilletToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 9)
+         Return EgtMsg(5209)     ' Raccordo
       End Get
    End Property
    Public ReadOnly Property ChamferToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 10)
+         Return EgtMsg(5210)     ' Smusso
       End Get
    End Property
    Public ReadOnly Property ArcFlipToolTip As String
       Get
-         Return EgtMsg( 5159)
+         Return EgtMsg(5159)     ' Arco Capovolto<br/>Arco Esplementare (Shift)
       End Get
    End Property
    Public ReadOnly Property OffsetToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 43)
+         Return EgtMsg(5243)     ' Offset
       End Get
    End Property
    Public ReadOnly Property ModifyCurveToolTip As String
       Get
-         Return EgtMsg( 5160)
+         Return EgtMsg(5160)     ' Modifica forma
       End Get
    End Property
    Public ReadOnly Property AddPointCurveToolTip As String
       Get
-         Return EgtMsg( 5161)
+         Return EgtMsg(5161)     ' Aggiungi Punto<br/>Trasforma in Arco (Shift)<br/>Chiudi Curva Composita (Ctrl)
       End Get
    End Property
    Public ReadOnly Property RemovePointCurveToolTip As String
       Get
-         Return EgtMsg( 5162)
+         Return EgtMsg(5162)     ' Rimuovi Punto<br/>Trasforma in Retta (Shift)<br/>Apri Curva Composita (Ctrl)
       End Get
    End Property
    Public ReadOnly Property ApproxCurveToolTip As String
       Get
-         Return EgtMsg(5163)
+         Return EgtMsg(5163)     ' Approssima Curva<br/>Approssima Curva con Linee (Shift)
       End Get
    End Property
    Public ReadOnly Property ModifyArcRadiusToolTip As String
       Get
-         Return EgtMsg(5164)
+         Return EgtMsg(5164)     ' Modifica Raggio di Arco o Circonferenza
       End Get
    End Property
    Public ReadOnly Property ModifyTextToolTip As String
       Get
-         Return EgtMsg(5249)
+         Return EgtMsg(5249)     ' Modifica Testo
       End Get
    End Property
 
    Public ReadOnly Property MoveToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 36)
+         Return EgtMsg(5236)     ' Muovi
       End Get
    End Property
    Public ReadOnly Property RotateToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 37)
+         Return EgtMsg(5237)     ' Ruota
       End Get
    End Property
    Public ReadOnly Property Rotate3DToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 38)
+         Return EgtMsg(5238)     ' Ruota 3D
       End Get
    End Property
    Public ReadOnly Property MirrorToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 39)
+         Return EgtMsg(5239)     ' Specchia
       End Get
    End Property
    Public ReadOnly Property Mirror3DToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 40)
+         Return EgtMsg(5240)     ' Specchia 3D
       End Get
    End Property
    Public ReadOnly Property ScaleToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 41)
+         Return EgtMsg(5241)     ' Scala
       End Get
    End Property
    Public ReadOnly Property Scale3DToolTip As String
       Get
-         Return EgtMsg(MSG_DRAWPANEL + 42)
+         Return EgtMsg(5242)     ' Scala 3D
       End Get
    End Property
 
@@ -425,7 +425,6 @@ Public Class DrawPanelVM
       OnPropertyChanged(NameOf(DrawPanel_Visibility))
    End Sub
 
-
 #Region "Button state"
 
    Private m_bLayerOk As Boolean
@@ -435,7 +434,7 @@ Public Class DrawPanelVM
       End Get
       Set(value As Boolean)
          m_bLayerOk = value
-         OnPropertyChanged("bLayerOk")
+         OnPropertyChanged(NameOf(bLayerOk))
       End Set
    End Property
    Private m_bSelOk As Boolean
@@ -445,7 +444,7 @@ Public Class DrawPanelVM
       End Get
       Set(value As Boolean)
          m_bSelOk = value
-         OnPropertyChanged("bSelOk")
+         OnPropertyChanged(NameOf(bSelOk))
       End Set
    End Property
    Private m_bLayerOkAndSelOk As Boolean
@@ -455,7 +454,7 @@ Public Class DrawPanelVM
       End Get
       Set(value As Boolean)
          m_bLayerOkAndSelOk = value
-         OnPropertyChanged("bLayerOkAndSelOk")
+         OnPropertyChanged(NameOf(bLayerOkAndSelOk))
       End Set
    End Property
 

EgtCAM5.vbproj

@@ -161,6 +161,15 @@
       <DependentUpon>CurrSetUpV.xaml</DependentUpon>
     </Compile>
     <Compile Include="CurrSetUp\CurrSetUpVM.vb" />
+    <Compile Include="EgtColorPicker\EgtColorPickerV.xaml.vb">
+      <DependentUpon>EgtColorPickerV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="EgtManageFileDialog\EgtManageFileDialogV.xaml.vb">
+      <DependentUpon>EgtManageFileDialogV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="EgtMessageBox\EgtMessageBoxV.xaml.vb">
+      <DependentUpon>EgtMessageBoxV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="DataGridMultiselectManaging\IListItemConverter.vb" />
     <Compile Include="DataGridMultiselectManaging\MultiSelectorBehaviours.vb" />
     <Compile Include="DataGridMultiselectManaging\TwoListSynchronizer.vb" />
@@ -428,7 +437,6 @@
       <DependentUpon>GunStockWndV.xaml</DependentUpon>
     </Compile>
     <Compile Include="Special-GunStock\GunStockWndVM.vb" />
-    <Compile Include="Utility\TMDbParamVisibility.vb" />
     <Compile Include="StructureDataForMessenger.vb" />
     <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\DispositionParameterExpander\DispositionUtility.vb" />
     <Compile Include="ToolsDbWindow\ToolsUpdate.vb" />
@@ -459,6 +467,18 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="EgtColorPicker\EgtColorPickerV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>XamlIntelliSenseFileGenerator</Generator>
+    </Page>
+    <Page Include="EgtManageFileDialog\EgtManageFileDialogV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="EgtMessageBox\EgtMessageBoxV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="EstimationsDetailsWnd\EstimationsDetailsWndV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -1038,6 +1058,45 @@
   <ItemGroup>
     <Resource Include="Resources\DrawPanel\StmMoveVertex.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Error.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Information.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Question.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Warning.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Folder.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\New.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Restore.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Root.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Asterisk.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Exclamation.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtMessageBox\Hand.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\AboutBox\EgalwareLogo.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\Egalware.ico" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\EgtCAM5\EgtCAM5R32.exe

EgtColorPicker/EgtColorPickerV.xaml

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

EgtColorPicker/EgtColorPickerV.xaml.vb

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

EgtManageFileDialog/EgtManageFileDialogV.xaml

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

EgtManageFileDialog/EgtManageFileDialogV.xaml.vb

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

EgtMessageBox/EgtMessageBoxV.xaml

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

EgtMessageBox/EgtMessageBoxV.xaml.vb

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

EstimationsDetailsWnd/EstimationsDetailsWndVM.vb

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

ExecutePanel/ExecutePanelVM.vb

@@ -32,7 +32,7 @@ Public Class ExecutePanelVM
 
    Public ReadOnly Property ExecToolTip As String
       Get
-         Return EgtMsg(MSG_TOPCOMMANDBAR + 8)
+         Return EgtMsg(5108)     ' Esegui Script<br/>Esegui Script recenti (Tasto Destro)
       End Get
    End Property
 

GridPanel/GridPanelVM.vb

@@ -19,42 +19,42 @@ Public Class GridPanelVM
 
    Public ReadOnly Property CPlaneTopToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 19)
+         Return EgtMsg(5269)     ' Griglia da Sopra
       End Get
    End Property
    Public ReadOnly Property CPlaneFrontToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 20)
+         Return EgtMsg(5270)     ' Griglia di Fronte
       End Get
    End Property
    Public ReadOnly Property CPlaneRightToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 21)
+         Return EgtMsg(5271)     ' Griglia da Destra
       End Get
    End Property
    Public ReadOnly Property CPlaneBackToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 22)
+         Return EgtMsg(5272)     ' Griglia da Dietro
       End Get
    End Property
    Public ReadOnly Property CPlaneLeftToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 23)
+         Return EgtMsg(5273)     ' Griglia da Sinistra
       End Get
    End Property
    Public ReadOnly Property CPlaneBottomToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 24)
+         Return EgtMsg(5274)     ' Griglia da Sotto
       End Get
    End Property
    Public ReadOnly Property CPlaneElevationToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 26)
+         Return EgtMsg(5276)     ' Elevazione Griglia
       End Get
    End Property
    Public ReadOnly Property CPlaneOriginToolTip As String
       Get
-         Return EgtMsg(MSG_GRIDVIEWPANEL + 27)
+         Return EgtMsg(5277)     ' Origine Griglia
       End Get
    End Property
 

InstrumentPanel/InstrumentPanelV.xaml

@@ -5,13 +5,11 @@
                               IsTopDockable="True" IsBottomDockable="True" IsLeftDockable="False" IsRightDockable="False"
                               TitleBarOrientation="Horizontal">
 
-   <!--<StackPanel Background="Transparent" Orientation="Horizontal">-->
    <ToggleButton ToolTip="{Binding AnalyzeToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding AnalyzeIsChecked}" IsEnabled="{Binding AnalyzeIsEnabled}">
       <Image Source="/Resources/GridViewPanel/Analyze.png" Stretch="Uniform"/>
    </ToggleButton>
    <ToggleButton ToolTip="{Binding GetDistToolTip}" Style="{StaticResource GridViewPanelToggleButton}" IsChecked="{Binding GetDistIsChecked}">
       <Image Source="/Resources/GridViewPanel/GetDist.png" Stretch="Uniform"/>
    </ToggleButton>
-   <!--</StackPanel>-->
 
 </EgtFloating:EgtFloatingPanel>

InstrumentPanel/InstrumentPanelVM.vb

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

MachGroupPanel/MyMachGroupPanelVM.vb

@@ -1,8 +1,4 @@
-Imports System.Collections.ObjectModel
+Imports System.IO
-Imports System.IO
-Imports EgtCAM5.MyMachinePanelVM
-Imports System.Security.Cryptography
-Imports System.Windows.Forms.AxHost
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -72,7 +68,8 @@ Public Class MyMachGroupPanelVM
             ' se la lista gruppi è vuota creo un nuovo gruppo
             If MachGroupList.Count = 0 Then
                ' Vuoi creare un nuovo Gruppo di Lavoro con i pezzi selezionati ?    -   LAVORA
-               If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+               'If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+               If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then  ' Vuoi creare un nuovo Gruppo di Lavoro<br/>con i pezzi selezionati ? Sicuro di voler cancellare il Gruppo di Lavorazione?
                   Return If(AddNewMachGroup(nGroupId, vPart), 0, 1)
                Else
                   Return -2
@@ -96,7 +93,8 @@ Public Class MyMachGroupPanelVM
             ' altrimenti creo il primo gruppo
          Else
             ' Vuoi creare un nuovo Gruppo di Lavoro con i pezzi selezionati ?    -   LAVORA
-            If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+            'If MessageBox.Show(EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5552), EgtMsg(5002), MessageBoxButton.YesNo, MessageBoxImage.Question) = MessageBoxResult.Yes Then  ' Vuoi creare un nuovo Gruppo di Lavoro<br/>con i pezzi selezionati ? Sicuro di voler cancellare il Gruppo di Lavorazione?
                Return If(AddNewMachGroup(nGroupId, vPart), 0, 1)
             Else
                Return -2
@@ -129,7 +127,8 @@ Public Class MyMachGroupPanelVM
       EgtLuaSetGlobStringVar("DISP.PARTS", sParts)
       If Not EgtLuaExecFile(sScriptPath) Then
          EgtOutLog("Error executing disposition init script " & sScriptPath)
-         MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 2) & " " & sScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_DISPOSITIONERRORS + 2) & " " & sScriptPath, EgtMsg(MSG_DISPOSITIONERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5462) & " " & sScriptPath, EgtMsg(5461), MessageBoxButton.OK, MessageBoxImage.Error) ' Errore nella esecuzione dello script automatico di disposizione ERRORE DI ESECUZIONE SCRIPT
          Return False
       End If
       Dim nErr As Integer = 999
@@ -306,7 +305,8 @@ Public Class MyMachGroupPanelVM
       If Not String.IsNullOrEmpty(sDefaultSetUpName) Then
          If Not EgtImportSetup(String.Empty) Then
             EgtOutLog("Error loading default setup " & sDefaultSetUpName)
-            MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 9) & " " & sDefaultSetUpName, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 9) & " " & sDefaultSetUpName, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6479) & " " & sDefaultSetUpName, EgtMsg(15001), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore nel caricamento del setup  Errore
          End If
       End If
    End Sub
@@ -329,7 +329,7 @@ Public Class MyMachGroupPanelVM
          Case Else
             ' Se il materiale specificato nel file INI della macchina non corrisponde ai 4 sopracitati viene emesso un messaggio di errore 
             EgtWPFLib5.MachiningTreeViewItem.m_MatType = Nothing
-            MsgBox(EgtMsg(31409), MsgBoxStyle.Exclamation, EgtMsg(31551))
+            MsgBox(EgtMsg(31409), MsgBoxStyle.Exclamation, EgtMsg(31551))     ' Errore
       End Select
    End Sub
 
@@ -373,7 +373,8 @@ Public Class MyMachGroupPanelVM
       Dim nSelectedMachGroupIndex As Integer = MachGroupList.IndexOf(SelectedMachGroup)
       If nSelectedMachGroupIndex = 0 And MachGroupList.Count = 1 Then
          ' chiedo conferma prima di cancellare il gruppo di lavorazione
-         Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         'Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5502), "", MessageBoxButton.YesNo, MessageBoxImage.Question)    ' Sicuro di voler cancellare il Gruppo di Lavorazione?
             Case MessageBoxResult.Yes
                ' cancello il gruppo corrente
                EgtRemoveMachGroup(EgtGetMachGroupId(MachGroupList(nSelectedMachGroupIndex).Name))
@@ -386,7 +387,8 @@ Public Class MyMachGroupPanelVM
          End Select
       Else
          ' chiedo conferma prima di cancellare il gruppo di lavorazione
-         Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         'Select Case MessageBox.Show(EgtMsg(MSG_MACHGROUP + 2), "", MessageBoxButton.YesNo, MessageBoxImage.Question)
+         Select Case EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5502), "", MessageBoxButton.YesNo, MessageBoxImage.Question)    ' Sicuro di voler cancellare il Gruppo di Lavorazione?
             Case MessageBoxResult.Yes
                Dim nNewInd As Integer = -1
                If nSelectedMachGroupIndex = 0 And MachGroupList.Count > 1 Then
@@ -421,8 +423,7 @@ Public Class MyMachGroupPanelVM
          Map.refOperationsListExpanderVM.LoadOperationList(GDB_ID.NULL)
          Map.refMachinePanelVM.UpdateCurrentMachine()
          Map.refMachiningTreeExpanderVM.UpdateOperationMachiningList()
-         Map.refEstimationsExpanderVM.Estimation_IsEnabled =
+         Map.refEstimationsExpanderVM.Estimation_IsEnabled = (EgtUILib.GetPrivateProfileInt(S_ESTIMATIONS, K_EST_ENABLE, 0, IniFile.m_sCurrMachIniFilePath) <> 0)
-                     (EgtUILib.GetPrivateProfileInt(S_ESTIMATIONS, K_EST_ENABLE, 0, IniFile.m_sCurrMachIniFilePath) <> 0)
          ' Setto il Materiale in base alla Macchina associata al MachGroup corrente
          LoadMaterialType()
          ' Zoom all

MachOptionsWindow/MachOptionVM.vb

@@ -106,19 +106,19 @@ Public Class MachOptionVM
 
    Public ReadOnly Property SafeZMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 1)
+         Return EgtMsg(6401)     ' Z di sicurezza
       End Get
    End Property
 
    Public ReadOnly Property SafeAggrBottZMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 8)
+         Return EgtMsg(6408)     ' Sicurezza rinvio da sotto
       End Get
    End Property
 
    Public ReadOnly Property HolesToleranceMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 9)
+         Return EgtMsg(6409)     ' Tolleranza fori
       End Get
    End Property
    Public ReadOnly Property ApproxLinTolMsg As String
@@ -129,13 +129,13 @@ Public Class MachOptionVM
 
    Public ReadOnly Property SplitArcsMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 2)
+         Return EgtMsg(6402)     ' Spezzatura archi
       End Get
    End Property
 
    Public ReadOnly Property DefaultSetUpMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGOPTIONPAGE + 7)
+         Return EgtMsg(6407)     ' Attrezzaggio predefinito
       End Get
    End Property
 
@@ -226,13 +226,13 @@ Public Class SplitArcTypeConverter
    Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
       Select Case CInt(value)
          Case MCH_SA.NEVER
-            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 3)
+            Return EgtMsg(6403)     ' Mai
          Case MCH_SA.GEN_PLANE
-            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 4)
+            Return EgtMsg(6404)     ' Piano generico
          Case MCH_SA.NO_XY_PLANE
-            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 5)
+            Return EgtMsg(6405)     ' Piano diverso da XY
          Case Else
-            Return EgtMsg(MSG_MACHININGOPTIONPAGE + 6)
+            Return EgtMsg(6406)     ' Sempre
       End Select
    End Function
 

MachinePanel/MyMachinePanelVM.vb

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

MachiningDbWindow/MyMachiningDbV.xaml

@@ -1,9 +1,6 @@
 <EgtWPFLib5:EgtCustomWindow x:Class="MyMachiningDbV"
                             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:sys="clr-namespace:System;assembly=mscorlib"
-   xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:local="clr-namespace:EgtCAM5"
                             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
                             Title="{Binding Title}" Icon="/Resources/EgtCAM5.ico"
                             TitleBarBrush="{StaticResource EgaltechBlue1}"
@@ -20,66 +17,6 @@
 
    <EgtWPFLib5:EgtCustomWindow.Resources>
       <EgtWPFLib5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <EgtWPFLib5:ErrorVisibilityConverter x:Key="ErrorVisibilityConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLap">47</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SelectedSolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
-
    </EgtWPFLib5:EgtCustomWindow.Resources>
 
    <Grid>
@@ -141,7 +78,6 @@
                         <ColumnDefinition Width="1*"/>
                      </Grid.ColumnDefinitions>
 
-                            <!--<Image Grid.Column="0" Source="{Binding PictureString}" Height="32" Margin="0,8,6,4" />-->
                      <TextBlock Grid.Column="1" Text="{Binding NamePar}" Height="18" FontSize="15"  Margin="10"/>
 
                   </Grid>

MainWindow/MainWindowV.xaml.vb

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

MainWindow/MainWindowVM.vb

@@ -1,7 +1,4 @@
-Imports System.Collections.ObjectModel
+Imports System.Threading
-Imports System.Threading
-Imports System.Windows.Threading
-Imports System.Runtime.InteropServices
 Imports System.Math
 Imports EgtUILib
 Imports EgtWPFLib5
@@ -41,7 +38,7 @@ Public Class MainWindowVM
       Set(value As String)
          If value <> m_Title Then
             m_Title = value
-            OnPropertyChanged("Title")
+            OnPropertyChanged(NameOf(Title))
          End If
       End Set
    End Property
@@ -61,8 +58,9 @@ Public Class MainWindowVM
    Public ReadOnly Property TopCommandBar As TopCommandBarV
       Get
          If IsNothing(m_TopCommandBar) Then
-            m_TopCommandBar = New TopCommandBarV
+            m_TopCommandBar = New TopCommandBarV With {
-            m_TopCommandBar.DataContext = New TopCommandBarVM
+               .DataContext = New TopCommandBarVM
+            }
          End If
          Return m_TopCommandBar
       End Get
@@ -75,8 +73,9 @@ Public Class MainWindowVM
       Get
          If m_bfirst Then
             m_bfirst = False
-            m_StatusBar = New StatusBarV
+            m_StatusBar = New StatusBarV With {
-            m_StatusBar.DataContext = New MyStatusBarVM
+               .DataContext = New MyStatusBarVM
+            }
          End If
          Return m_StatusBar
       End Get
@@ -88,8 +87,9 @@ Public Class MainWindowVM
       Get
          If m_bFirstProjectPage Then
             m_bFirstProjectPage = False
-            m_ProjectPage = New ProjectV
+            m_ProjectPage = New ProjectV With {
-            m_ProjectPage.DataContext = New ProjectVM
+               .DataContext = New ProjectVM
+            }
          End If
          Return m_ProjectPage
       End Get
@@ -99,7 +99,7 @@ Public Class MainWindowVM
       Get
 #If PLATFORM = "x64" Then
             Return "/Resources/EgtCAM5_64.ico"
-         #else
+#Else
          Return "/Resources/EgtCAM5.ico"
 #End If
       End Get
@@ -137,8 +137,9 @@ Public Class MainWindowVM
 
    ' Manage the MainWindow_Unloaded event. This method is invoked by the cmdMainWindow_Unloaded.
    Public Sub AboutBox(ByVal param As Object)
-      Dim AboutBoxWindow As New AboutBoxWndV
+      Dim AboutBoxWindow As New AboutBoxWndV With {
-      AboutBoxWindow.Owner = Application.Current.MainWindow
+         .Owner = Application.Current.MainWindow
+      }
       AboutBoxWindow.ShowDialog()
    End Sub
 
@@ -621,12 +622,11 @@ Public Class MainWindowVM
    ''' </summary>
    Private m_allowWindowToClose As Boolean = False
 
-
 #End Region
 
 #Region "MEF Plugin"
 
-   Private m_Loader As MEFLoader = New MEFLoader()
+   Private m_Loader As New MEFLoader()
 
    Private Function GetPathByName(ByVal name As String) As String
       Dim PluginNameSplit() As String = name.Split("."c)

OptionPanel/DrawOptionPanel/InfoExpander/InfoExpanderVM.vb

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

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml

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

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderV.xaml.vb

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

OptionPanel/DrawOptionPanel/InputExpander/InputExpanderVM.vb

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

OptionPanel/DrawOptionPanel/ManageLayerExpander/LayerTreeView.vb

@@ -115,7 +115,7 @@ Public Class LayerTreeViewItem
    Public Sub SetHidden(bVal As Boolean)
       If bVal <> m_bHidden Then
          m_bHidden = bVal
-         NotifyPropertyChanged("IsHidden")
+         NotifyPropertyChanged(Name(IsHidden))
       End If
    End Sub
 
@@ -127,7 +127,7 @@ Public Class LayerTreeViewItem
       Set(value As String)
          If value <> m_sPictureString Then
             m_sPictureString = value
-            NotifyPropertyChanged("PictureString")
+            NotifyPropertyChanged(NameOf(PictureString))
          End If
       End Set
    End Property

OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderV.xaml

@@ -21,8 +21,9 @@
             <Button Content="{Binding ColorMsg}" Command="{Binding LayerColorCommand}"  Height="30"/>
          </UniformGrid>
 
-         <TreeView Name="LayerTreeView" MinHeight="150" MaxHeight="250" 
+         <TreeView x:Name="LayerTreeView" MinHeight="150" MaxHeight="250" 
                    ItemsSource="{Binding Path=LayerList}"
+                   SelectedItemChanged="LayerTreeView_SelectedItemChanged"
                    VirtualizingStackPanel.IsVirtualizing = "True"
                    VirtualizingStackPanel.VirtualizationMode = "Recycling">
             <interactivity:Interaction.Triggers>
@@ -51,11 +52,10 @@
                      </Grid.ColumnDefinitions>
 
                      <ToggleButton Style="{StaticResource EgtCAM5_LampToggleButton}" Grid.Column="0" 
-                                   IsChecked="{Binding OnOff}" Visibility="{Binding IsHidden}" Focusable="False" Height="15" Width="15" Margin="0,0,5,0"/>
+                                   IsChecked="{Binding OnOff}" Visibility="{Binding IsHidden}" Focusable="True" Height="15" Width="15" Margin="0,0,5,0"/>
                      <Image Grid.Column="1" Source="{Binding PictureString}" Height="15" Margin="0,0,5,0"/>
-                     <TextBlock Grid.Column="2" Text="{Binding Name}" Margin="0,0,5,0"/>
+                     <TextBlock Grid.Column="2" Text="{Binding Name}" Margin="0,0,5,0" Name="Pippo"/>
                      <Ellipse Grid.Column="3" Height="10" Width="10" Fill="{Binding LayerColor}" />
-
                   </Grid>
                </HierarchicalDataTemplate>
             </TreeView.Resources>

OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderV.xaml.vb

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

OptionPanel/DrawOptionPanel/ManageLayerExpander/ManageLayerExpanderVM.vb

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

OptionPanel/DrawOptionPanelVM.vb

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

OptionPanel/MachiningOptionPanel/EstimationsExpander/EstimationsExpander.vb

@@ -1,5 +1,4 @@
-Imports System.Collections.ObjectModel
+Imports System.IO
-Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -29,7 +28,7 @@ Public Class EstimationsExpanderVM
       End Get
       Set(value As Boolean)
          m_Estimation_IsEnabled = value
-         NotifyPropertyChanged("Estimation_IsEnabled")
+         NotifyPropertyChanged(NameOf(Estimation_IsEnabled))
       End Set
    End Property
 
@@ -55,7 +54,8 @@ Public Class EstimationsExpanderVM
       ' Verifico che il file esista
       If Not File.Exists(sEstFile) Then
          ' File delle stime non trovato
-         MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5318), EgtMsg(5315), MessageBoxButton.OK, MessageBoxImage.Warning) ' File delle stime non trovato AVVERTIMENTO
          Return
       End If
       ' Visualizzazione
@@ -77,14 +77,14 @@ Public Class EstimationsExpanderVM
       ' Abilito la selezione di tutti i tipi di geometria
       Map.refProjectVM.SceneSelMode = SceneSelModeOpt.PARTCURVESANDSURFACES
       CalcEstimation()
-      NotifyPropertyChanged("Time")
+      NotifyPropertyChanged(NameOf(Time))
-      NotifyPropertyChanged("CutLen")
+      NotifyPropertyChanged(NameOf(CutLen))
 
       m_Estimation_IsExpanded = True
       Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = False
       Map.refOperationsListExpanderVM.EstimationExpander_Get_IsExpanded(True)
-      NotifyPropertyChanged("Estimation_IsExpanded")
+      NotifyPropertyChanged(NameOf(Estimation_IsExpanded))
-      Map.refMachiningOptionPanelVM.OnPropertyChanged("GenerateIsEnabled")
+      Map.refMachiningOptionPanelVM.OnPropertyChanged(NameOf(Map.refMachiningOptionPanelVM.GenerateIsEnabled))
       ' disattivo database utensili, lavorazioni e setup se vado in stima
       Map.refMachinePanelVM.ToolMachSetUpIsEnabled(False, False, False)
       ' disattivo MTable e SpecialPanel se vado in stima
@@ -97,8 +97,8 @@ Public Class EstimationsExpanderVM
       m_Estimation_IsExpanded = False
       Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = True
       Map.refOperationsListExpanderVM.EstimationExpander_Get_IsExpanded(False)
-      NotifyPropertyChanged("Estimation_IsExpanded")
+      NotifyPropertyChanged(NameOf(Estimation_IsExpanded))
-      Map.refMachiningOptionPanelVM.OnPropertyChanged("GenerateIsEnabled")
+      Map.refMachiningOptionPanelVM.OnPropertyChanged(NameOf(Map.refMachiningOptionPanelVM.GenerateIsEnabled))
       ' attivo database utensili, lavorazioni e setup se esco dalla stima
       Map.refMachinePanelVM.ToolMachSetUpIsEnabled(True, True, True)
       ' attivo MTable e SpecialPanel se esco dalla stima
@@ -115,7 +115,8 @@ Public Class EstimationsExpanderVM
       If bAskSave Then
          If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
             ' Il progetto deve essere salvato prima di poter essere generato. Vuoi farlo ?
-            If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            'If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5331), EgtMsg(5315), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then ' Il progetto deve essere salvato prima della generazione CN. Vuoi farlo ? AVVERTIMENTO
                ' Abbandono
                bOk = False
             Else
@@ -130,7 +131,8 @@ Public Class EstimationsExpanderVM
       Else
          If String.IsNullOrEmpty(sCurrFilePath) Then
             ' File delle stime non trovato
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 18), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5318), EgtMsg(5315), MessageBoxButton.OK, MessageBoxImage.Warning) ' File delle stime non trovato AVVERTIMENTO
             bOk = False
          End If
       End If

OptionPanel/MachiningOptionPanel/EstimationsExpander/EstimationsExpanderV.xaml

@@ -1,8 +1,6 @@
 <UserControl x:Class="EstimationsExpanderV"
              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:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <StackPanel>
 

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderV.xaml

@@ -1,7 +1,6 @@
 <UserControl x:Class="MachiningTreeExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:local="clr-namespace:EgtCAM5">
 
    <Expander Header="{Binding MachListHdr}" IsExpanded="{Binding IsEnabled}" IsEnabled="{Binding IsEnabled}"
@@ -9,11 +8,6 @@
       <UniformGrid MaxHeight="300">
          <TreeView Name="MachiningsTreeView" Grid.Row="1"
             ItemsSource="{Binding Path=MachiningsList}">
-            <!--<interactivity:Interaction.Triggers>
-               <interactivity:EventTrigger EventName="MouseDoubleClick">
-                  <interactivity:InvokeCommandAction Command="{Binding TreeViewDoubleClickCommand}" CommandParameter="{Binding ElementName=MachiningsTreeView,Path=SelectedItem}"/>
-               </interactivity:EventTrigger>
-            </interactivity:Interaction.Triggers>-->
             <TreeView.InputBindings>
                <KeyBinding Key="Escape" Command="{Binding CancelNewCommand}" CommandParameter="Escape"/>
             </TreeView.InputBindings>

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderV.xaml.vb

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

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeExpanderVM.vb

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

OptionPanel/MachiningOptionPanel/MachiningsTreeViewExpander/MachiningTreeViewExpander.vb

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

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderV.xaml

@@ -82,7 +82,6 @@
       <TextBox Text="{Binding InputValue,UpdateSourceTrigger=PropertyChanged}" Margin="5,0,5,5">
          <TextBox.InputBindings>
             <KeyBinding Key="Enter" Command="{Binding DoneCommand}"/>
-            <!--<KeyBinding Key="S" Modifiers="Control" Command="{Binding ShowCommand}"/>-->
          </TextBox.InputBindings>
       </TextBox>
       <TextBlock Text="{Binding InputErrorMsg,Mode=OneWay}" Margin="5,5,5,5"
@@ -93,8 +92,6 @@
             <ColumnDefinition Width="1*"/>
             <ColumnDefinition Width="1*"/>
          </Grid.ColumnDefinitions>
-         <!--<Button Command="{Binding ShowCommand}" Visibility="{Binding ShowBtnVisibility}"
-               Content="{Binding ShowMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>-->
          <Button Command="{Binding DoneCommand}" Grid.Column="1"
                  Content="{Binding OkMsg}" Style="{StaticResource EgtCAM5_InputButton}"/>
       </Grid>

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderVM.vb

@@ -68,12 +68,12 @@ Public Class DispositionParameterExpanderVM
                End If
                If m_MoveIsChecked Then
                   m_RawRefGroupVisibility = Visibility.Visible
-                  OnPropertyChanged("RawRefGroupVisibility")
+                  OnPropertyChanged(NameOf(RawRefGroupVisibility))
                End If
             Else
                ' Nascondo i bottoni per impostare la posizione di riferimento del grezzo
                m_RawRefGroupVisibility = Visibility.Collapsed
-               OnPropertyChanged("RawRefGroupVisibility")
+               OnPropertyChanged(NameOf(RawRefGroupVisibility))
                ' smarco la prima entità selezionata
                EgtResetMark(EgtGetFirstSelectedObj)
                EgtDeselectAll()
@@ -81,7 +81,7 @@ Public Class DispositionParameterExpanderVM
             End If
             m_RawPartIsExpanded = value
             ActiveObject = ObjectType.RAWPART
-            OnPropertyChanged("RawPartIsExpanded")
+            OnPropertyChanged(NameOf(RawPartIsExpanded))
          End If
       End Set
    End Property
@@ -105,7 +105,7 @@ Public Class DispositionParameterExpanderVM
             End If
             m_PartIsExpanded = value
             ActiveObject = ObjectType.PART
-            OnPropertyChanged("PartIsExpanded")
+            OnPropertyChanged(NameOf(PartIsExpanded))
          End If
       End Set
    End Property
@@ -133,7 +133,7 @@ Public Class DispositionParameterExpanderVM
             End If
             m_FixtureIsExpanded = value
             ActiveObject = ObjectType.FIXTURE
-            OnPropertyChanged("FixtureIsExpanded")
+            OnPropertyChanged(NameOf(FixtureIsExpanded))
          End If
       End Set
    End Property
@@ -147,22 +147,22 @@ Public Class DispositionParameterExpanderVM
          If value <> m_MoveIsChecked Then
             Map.refProjectVM.SetMoveInDisposition(value)
             InputValue = String.Empty
-            OnPropertyChanged("InputValue")
+            OnPropertyChanged(NameOf(InputValue))
             If value Then
                If m_RawPartIsExpanded Then
                   m_RawRefGroupVisibility = Visibility.Visible
-                  OnPropertyChanged("RawRefGroupVisibility")
+                  OnPropertyChanged(NameOf(RawRefGroupVisibility))
                Else
                   m_RawRefGroupVisibility = Visibility.Collapsed
-                  OnPropertyChanged("RawRefGroupVisibility")
+                  OnPropertyChanged(NameOf(RawRefGroupVisibility))
                End If
                m_InputMsg = "Move to:"
             Else
                m_RawRefGroupVisibility = Visibility.Collapsed
-               OnPropertyChanged("RawRefGroupVisibility")
+               OnPropertyChanged(NameOf(RawRefGroupVisibility))
                m_InputMsg = "Rotate of:"
             End If
-            OnPropertyChanged("InputMsg")
+            OnPropertyChanged(NameOf(InputMsg))
             m_MoveIsChecked = value
          End If
       End Set
@@ -176,7 +176,7 @@ Public Class DispositionParameterExpanderVM
       Set(value As String)
          If Not String.IsNullOrEmpty(m_InputErrorMsg) Then
             m_InputErrorMsg = String.Empty
-            OnPropertyChanged("InputErrorMsg")
+            OnPropertyChanged(NameOf(InputErrorMsg))
          End If
          m_InputValue = value
       End Set
@@ -205,8 +205,9 @@ Public Class DispositionParameterExpanderVM
    Public ReadOnly Property FixtureParameters As ContentControl
       Get
          If IsNothing(m_FixtureParameters) Then
-            m_FixtureParameters = New FixtureParametersV
+            m_FixtureParameters = New FixtureParametersV With {
-            m_FixtureParameters.DataContext = New FixtureParametersVM(m_ExpandFixtureFunction)
+               .DataContext = New FixtureParametersVM(m_ExpandFixtureFunction)
+            }
          End If
          Return m_FixtureParameters
       End Get
@@ -216,8 +217,9 @@ Public Class DispositionParameterExpanderVM
    Public ReadOnly Property RawPartOptions As ContentControl
       Get
          If IsNothing(m_RawPartOptions) Then
-            m_RawPartOptions = New RawPartOptionV
+            m_RawPartOptions = New RawPartOptionV With {
-            m_RawPartOptions.DataContext = New RawPartOptionVM
+               .DataContext = New RawPartOptionVM
+            }
          End If
          Return m_RawPartOptions
       End Get
@@ -241,7 +243,7 @@ Public Class DispositionParameterExpanderVM
 
    Public ReadOnly Property OkMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 1)
+         Return EgtMsg(5431)     ' Ok
       End Get
    End Property
 
@@ -257,7 +259,7 @@ Public Class DispositionParameterExpanderVM
       OpenDispositionFunction = AddressOf OpenDispositionParameters
       MoveIsChecked = True
       m_BLIsChecked = True
-      OnPropertyChanged("BLIsChecked")
+      OnPropertyChanged(NameOf(BLIsChecked))
       m_RawRefPosition = MCH_CR.BL
    End Sub
 
@@ -317,7 +319,7 @@ Public Class DispositionParameterExpanderVM
                StringToLen(Values(1), InputPoint.y)
             Else
                m_InputErrorMsg = "Il valore non è una cordinata XY"
-               OnPropertyChanged("InputErrorMsg")
+               OnPropertyChanged(NameOf(InputErrorMsg))
                Return
             End If
             ' Vettore di movimento
@@ -384,7 +386,7 @@ Public Class DispositionParameterExpanderVM
             Dim InputAngle As Double = 0
             If Not StringToDouble(sVal, InputAngle) Then
                m_InputErrorMsg = "Il valore non è un angolo valido"
-               OnPropertyChanged("InputErrorMsg")
+               OnPropertyChanged(NameOf(InputErrorMsg))
                Return
             End If
             ' eseguo rotazione
@@ -397,14 +399,14 @@ Public Class DispositionParameterExpanderVM
                         DispositionUtility.VerifyRawPosition(nSelId, vtOrigMove, vtRefMove)
                      Else
                         m_InputErrorMsg = "Impossibile ruotare il grezzo."
-                        OnPropertyChanged("InputErrorMsg")
+                        OnPropertyChanged(NameOf(InputErrorMsg))
                      End If
                   Case ObjectType.PART
                      'EgtMove...
                   Case ObjectType.FIXTURE
                      If Not EgtRotateFixture(nSelId, InputAngle) Then
                         m_InputErrorMsg = "Impossibile ruotare la ventosa"
-                        OnPropertyChanged("InputErrorMsg")
+                        OnPropertyChanged(NameOf(InputErrorMsg))
                      End If
                End Select
                nSelId = EgtGetNextSelectedObj()

OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionUtility.vb

@@ -214,10 +214,6 @@ Public NotInheritable Class DispositionUtility
             If Not VerifyRawPartFixturePos(nMoveId, vtMove, vtRefMove) Then
                bErrorVerify = True
             End If
-            'Dim sOut As String = "VerifyRaw : Count=" & nCount & " Err=" & If(bErrorVerify, "1", "0") &
-            '                              " Move=" & LenToString(vtMove.x, 3) & "," & LenToString(vtMove.y, 3) &
-            '                              " RefMove=" & LenToString(vtRefMove.x, 3) & "," & LenToString(vtRefMove.y, 3)
-            'EgtOutLog(sOut)
          End If
       End If
       ' Se non c'è errore ma necessaria correzione riferimento

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

@@ -36,7 +36,7 @@ Public Class FixtureParametersVM
 
    Public ReadOnly Property OkMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 1)
+         Return EgtMsg(5431)     ' Ok
       End Get
    End Property
 
@@ -77,7 +77,7 @@ Public Class FixtureParametersVM
    Friend Sub UpdateFixtureTypeList()
       m_FixtureTypeList = New ObservableCollection(Of FixtureListItem)(FixtureType.ReadFixtureTypeFromMachIni())
       UpdateFixtureCount()
-      OnPropertyChanged("FixtureTypeList")
+      OnPropertyChanged(NameOf(FixtureTypeList))
    End Sub
 
    ' Definizione comandi
@@ -116,9 +116,9 @@ Public Class FixtureParametersVM
       ' recupero area della tavola
       Dim ptTableMin As Point3d
       Dim ptTableMax As Point3d
-      if Not EgtGetTableArea(1, ptTableMin, ptTableMax) Then
+      If Not EgtGetTableArea(1, ptTableMin, ptTableMax) Then
          m_FixtureErrorMsg = "Tavola non definita"
-         OnPropertyChanged("FixtureErrorMsg")
+         OnPropertyChanged(NameOf(FixtureErrorMsg))
          Return
       End If
       ' dimensioni tavola
@@ -129,7 +129,7 @@ Public Class FixtureParametersVM
       Dim nAddedFixtureId As Integer = EgtAddFixture(SelectedFixture.Name, ptTableMid, 0, 20)
       If nAddedFixtureId = GDB_ID.NULL Then
          m_FixtureErrorMsg = "Impossibile posizionare la ventosa sulla tavola"
-         OnPropertyChanged("FixtureErrorMsg")
+         OnPropertyChanged(NameOf(FixtureErrorMsg))
          Return
       End If
       ' Se la ventosa ha punti di hook da ancorare
@@ -160,7 +160,7 @@ Public Class FixtureParametersVM
       ' sottraggo la ventosa aggiunta dal conto di quelle disponibili
       SelectedFixture.UsedNumber += 1
       EgtDraw()
-      OnPropertyChanged("FixtureErrorMsg")
+      OnPropertyChanged(NameOf(FixtureErrorMsg))
    End Sub
 
    ' Funzione che cerca una posizione valida per la ventosa libera di muoversi
@@ -491,7 +491,7 @@ Public Class FixtureType
       Set(value As Integer)
          If value <> m_TotalNumber Then
             m_TotalNumber = value
-            NotifyPropertyChanged("UsedTotalRatio")
+            NotifyPropertyChanged(NameOf(UsedTotalRatio))
          End If
       End Set
    End Property
@@ -502,15 +502,15 @@ Public Class FixtureType
       Set(value As Integer)
          If value <> m_UsedNumber Then
             m_UsedNumber = value
-            NotifyPropertyChanged("UsedTotalRatio")
+            NotifyPropertyChanged(NameOf(UsedTotalRatio))
             If UsedNumber >= TotalNumber Then
                m_IsEnabled = False
                m_IsSelected = False
-               NotifyPropertyChanged("IsSelected")
+               NotifyPropertyChanged(NameOf(IsSelected))
             Else
                m_IsEnabled = True
             End If
-            NotifyPropertyChanged("IsEnabled")
+            NotifyPropertyChanged(NameOf(IsEnabled))
          End If
       End Set
    End Property

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

@@ -1,5 +1,4 @@
-Imports System.ComponentModel
+Imports EgtUILib
-Imports EgtUILib
 
 Public Class RawPartOptionVM
    Inherits ViewModelBase
@@ -35,7 +34,7 @@ Public Class RawPartOptionVM
             End If
             EgtDraw()
             m_MoveWithFixture = value
-            OnPropertyChanged("MoveWithFixture")
+            OnPropertyChanged(NameOf(MoveWithFixture))
          End If
       End Set
    End Property
@@ -56,32 +55,32 @@ Public Class RawPartOptionVM
 
    Public ReadOnly Property NewMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 3)
+         Return EgtMsg(5433)     ' Nuovo
       End Get
    End Property
    Public ReadOnly Property RemoveMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 4)
+         Return EgtMsg(5434)     ' Rimuovi
       End Get
    End Property
    Public ReadOnly Property LenghtMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 5)
+         Return EgtMsg(5435)     ' Lunghezza
       End Get
    End Property
    Public ReadOnly Property WidthMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 6)
+         Return EgtMsg(5436)     ' Larghezza
       End Get
    End Property
    Public ReadOnly Property HeightMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 7)
+         Return EgtMsg(5437)     ' Altezza
       End Get
    End Property
    Public ReadOnly Property PositionMsg As String
       Get
-         Return EgtMsg(MSG_DISPOSITION + 8)
+         Return EgtMsg(5438)     ' Posizione
       End Get
    End Property
 
@@ -122,7 +121,7 @@ Public Class RawPartOptionVM
    Public Sub NewRawPart()
       DispositionUtility.ShowParts()
       m_bRawPartParamVisibility = Visibility.Visible
-      OnPropertyChanged("RawPartParamVisibility")
+      OnPropertyChanged(NameOf(RawPartParamVisibility))
    End Sub
 
 #End Region ' NewRawPartCommand

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/BeamMillingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="BeamMillingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class BeamMillingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/ChiselingParameterExpanderV.xaml

@@ -7,70 +7,7 @@
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class ChiselingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/FiveAxisMachinigParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="FiveAxisMachinigParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
    
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/GenMachiningParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="GenMachiningParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class GenMachiningParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderV.xaml

@@ -1,78 +1,10 @@
 <UserControl x:Class="MachiningParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5">
-             xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-             xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-             xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
-      <sys:Int32 x:Key="TabMax">62</sys:Int32>
-      <sys:Int32 x:Key="TabMin">63</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel>

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

@@ -1,6 +1,3 @@
-Imports EgtWPFLib5
-Imports EgtWPFLib5.EgtFloating
-
 Public Class MachiningParameterExpanderV
 
    Sub New()

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MachiningParameterExpanderVM.vb

@@ -1,6 +1,4 @@
-Imports System.ComponentModel
+Imports EgtUILib
-Imports System.Collections.ObjectModel
-Imports EgtUILib
 Imports EgtWPFLib5
 
 Public Class MachiningParameterExpanderVM
@@ -74,7 +72,7 @@ Public Class MachiningParameterExpanderVM
    End Property
    Friend Sub SetViewTool(value As Boolean)
       ViewTool = value
-      NotifyPropertyChanged("ViewTool")
+      NotifyPropertyChanged(NameOf(ViewTool))
    End Sub
 
    ' Slider per muovere l'utensile in aggiunta ai pulsanti indietro e avanti
@@ -278,9 +276,6 @@ Public Class MachiningParameterExpanderVM
                SurfRoughExpanderV.DataContext = m_CurrOperation
                Return SurfRoughExpanderV
          End Select
-
-         'MachiningParameterExpanderItem.ReadOperationParam()
-
          Return Nothing
       End Get
    End Property
@@ -289,25 +284,25 @@ Public Class MachiningParameterExpanderVM
 
    Public ReadOnly Property UpdateMachiningBtnMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 3)        'Applica Lavorazione
+         Return EgtMsg(5403)     ' Applica Lavorazione
       End Get
    End Property
 
    Public ReadOnly Property ViewToolBtnMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 13)       'Anteprima Utensile
+         Return EgtMsg(5413)     ' Anteprima Utensile
       End Get
    End Property
 
    Public ReadOnly Property NextStepToolBtnMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 14)       'Avanti
+         Return EgtMsg(5414)     ' Avanti
       End Get
    End Property
 
    Public ReadOnly Property PrevStepToolBtnMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 15)       'Indietro
+         Return EgtMsg(5415)     ' Indietro
       End Get
    End Property
 
@@ -323,7 +318,7 @@ Public Class MachiningParameterExpanderVM
    Sub New()
       EgtWPFLib5.MachiningDbWindowVM.m_sMachineIniPath = IniFile.m_sCurrMachIniFilePath
       Map.SetRefMachiningParameterExpanderVM(Me)
-      NotifyPropertyChanged("ParamExpanderPageV")
+      NotifyPropertyChanged(NameOf(ParamExpanderPageV))
    End Sub
 
 #End Region    ' Constructor
@@ -367,7 +362,8 @@ Public Class MachiningParameterExpanderVM
                sErrorList += Environment.NewLine + " - " + m_CurrOperation.GetErrorString([property])
             End If
          Next [property]
-         MessageBox.Show(EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+         'MessageBox.Show(EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5423) + sErrorList, EgtMsg(30009), MessageBoxButton.OK, MessageBoxImage.Exclamation) ' La lavorazione non può essere applicata per i seguenti motivi: ATTENZIONE
          Return
       End If
 
@@ -446,10 +442,12 @@ Public Class MachiningParameterExpanderVM
             Dim sInfo As String = String.Empty
             EgtGetOutstrokeInfo(sInfo)
             If Not String.IsNullOrEmpty(sInfo) Then sErr &= " " & sInfo
-            MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)  ' ERRORE
          Else
             ' Errore nel calcolo della lavorazione!
-            MessageBox.Show(EgtMsg(5345), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(5345), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5345), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore nel calcolo della lavorazione! ERRORE
          End If
       Else
          If EgtGetMachMgrWarningId(0) <> 0 Then
@@ -474,67 +472,16 @@ Public Class MachiningParameterExpanderVM
 
    Private Sub IsModified(IsModified As Boolean) Handles m_CurrOperation.m_IsModified
       m_CurrOperation_IsModified = IsModified
-      ' NotifyPropertyChanged("CurrOperation_IsModified")
+      NotifyPropertyChanged(NameOf(UpdateMachiningBtn_Background))
-      NotifyPropertyChanged("UpdateMachiningBtn_Background")
    End Sub
 
    Private Sub ErrorOnOperation(ErrorOnOperation As Boolean) Handles m_CurrOperation.m_ErrorOnOperation
       m_CurrOperation_ErrorOnOperation = ErrorOnOperation
-      ' NotifyPropertyChanged("CurrOperation_ErrorOnOperation")
+      NotifyPropertyChanged(NameOf(UpdateMachiningBtn_Background))
-      NotifyPropertyChanged("UpdateMachiningBtn_Background")
    End Sub
 
 End Class
 
-''' <summary>
-''' Class that represent a Converter that use machining type and param type, to set the visibility state of the param type.
-''' </summary>
-Public Class OperationParamVisibilityConverter
-   Implements IValueConverter
-
-   Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
-      Select Case CInt(value)
-         Case MCH_OY.NONE
-            Return Visibility.Hidden
-         Case MCH_OY.DISP
-            Return TMDbParamVisibility.OperationDisposition(CInt(parameter))
-         Case MCH_OY.DRILLING
-            Return TMDbParamVisibility.Drilling(CInt(parameter))
-         Case MCH_OY.SAWING
-            Return TMDbParamVisibility.Sawing(CInt(parameter))
-         Case MCH_OY.MILLING
-            Return TMDbParamVisibility.Milling(CInt(parameter))
-         Case MCH_OY.POCKETING
-            Return TMDbParamVisibility.Pocketing(CInt(parameter))
-         Case MCH_OY.MORTISING
-            Return TMDbParamVisibility.Mortising(CInt(parameter))
-         Case MCH_OY.SAWROUGHING
-            Return TMDbParamVisibility.Sawroughing(CInt(parameter))
-         Case MCH_OY.SAWFINISHING
-            Return TMDbParamVisibility.Sawfinishing(CInt(parameter))
-         Case MCH_OY.GENMACHINING
-            Return TMDbParamVisibility.GenMachining(CInt(parameter))
-         Case MCH_OY.CHISELING
-            Return TMDbParamVisibility.Chiseling(CInt(parameter))
-         Case MCH_OY.SURFFINISHING
-            Return TMDbParamVisibility.SurfFinishing(CInt(parameter))
-         Case MCH_OY.SURFROUGHING
-            Return TMDbParamVisibility.SurfRoughing(CInt(parameter))
-         Case MCH_OY.WATERJETTING
-            Return TMDbParamVisibility.WaterJetting(CInt(parameter))
-         Case MCH_OY.FIVEAXISMILLING
-            Return TMDbParamVisibility.FiveAxMachining(CInt(parameter))
-         Case Else
-            Return Visibility.Hidden
-      End Select
-   End Function
-
-   Public Function ConvertBack(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
-      Throw New NotImplementedException
-   End Function
-
-End Class
-
 ''' <summary>
 ''' Class that represent a Converter that convert mm in inch if necessary for the param depth.
 ''' </summary>

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MortisingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="MortisingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class MortisingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/PocketingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="PocketingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class PocketingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneDrillingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="StoneDrillingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneDrillingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneMillingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="StoneMillingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneMillingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawFinishingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="StoneSawFinishingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneSawFinishingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawRoughingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="StoneSawRoughingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneSawRoughingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="StoneSawingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class StoneSawingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/SurfFinishingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="SurfFinishingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class SurfFinishingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/SurfRoughingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="SurfRoughingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
    
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WaterjettingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="WaterjettingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class WaterjettingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodDrillingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="WoodDrillingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class WoodDrillingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodMillingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="WoodMillingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class WoodMillingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodSawingParameterExpanderV.xaml

@@ -1,76 +1,12 @@
 <UserControl x:Class="WoodSawingParameterExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-             xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
              xmlns:EgtCAM5="clr-namespace:EgtCAM5"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <UserControl.Resources>
-      <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
       <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
-      <sys:Int32 x:Key="Invert">0</sys:Int32>
-      <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
-      <sys:Int32 x:Key="WorkSide">2</sys:Int32>
-      <sys:Int32 x:Key="HeadSide">3</sys:Int32>
-      <sys:Int32 x:Key="LeadInType">4</sys:Int32>
-      <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
-      <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
-      <sys:Int32 x:Key="CurveUse">7</sys:Int32>
-      <sys:Int32 x:Key="StepType">8</sys:Int32>
-      <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
-      <sys:Int32 x:Key="Speed">10</sys:Int32>
-      <sys:Int32 x:Key="Feed">11</sys:Int32>
-      <sys:Int32 x:Key="StartFeed">12</sys:Int32>
-      <sys:Int32 x:Key="EndFeed">13</sys:Int32>
-      <sys:Int32 x:Key="TipFeed">14</sys:Int32>
-      <sys:Int32 x:Key="OffSr">15</sys:Int32>
-      <sys:Int32 x:Key="OffSl">16</sys:Int32>
-      <sys:Int32 x:Key="SideAngle">17</sys:Int32>
-      <sys:Int32 x:Key="Approx">18</sys:Int32>
-      <sys:Int32 x:Key="StartPos">19</sys:Int32>
-      <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
-      <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
-      <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
-      <sys:Int32 x:Key="StepPar">23</sys:Int32>
-      <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
-      <sys:Int32 x:Key="TabLen">25</sys:Int32>
-      <sys:Int32 x:Key="TabDist">26</sys:Int32>
-      <sys:Int32 x:Key="TabHeight">27</sys:Int32>
-      <sys:Int32 x:Key="TabAngle">28</sys:Int32>
-      <sys:Int32 x:Key="LiTang">29</sys:Int32>
-      <sys:Int32 x:Key="LiPerp">30</sys:Int32>
-      <sys:Int32 x:Key="LiElev">31</sys:Int32>
-      <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
-      <sys:Int32 x:Key="LoTang">33</sys:Int32>
-      <sys:Int32 x:Key="LoPerp">34</sys:Int32>
-      <sys:Int32 x:Key="LoElev">35</sys:Int32>
-      <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
-      <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
-      <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
-      <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
-      <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
-      <sys:Int32 x:Key="SideStep">41</sys:Int32>
-      <sys:Int32 x:Key="VertFeed">42</sys:Int32>
-      <sys:Int32 x:Key="NamePar">43</sys:Int32>
-      <sys:Int32 x:Key="Tool">44</sys:Int32>
-      <sys:Int32 x:Key="DepthStr">45</sys:Int32>
-      <sys:Int32 x:Key="UserNotes">46</sys:Int32>
-      <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
-      <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
-      <sys:Int32 x:Key="SubType">49</sys:Int32>
-      <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
-      <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
-      <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
-      <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
-      <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
-      <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
-      <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
-      <sys:Int32 x:Key="OscEnable">58</sys:Int32>
-      <sys:Int32 x:Key="OscHeight">59</sys:Int32>
-      <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
-      <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
    </UserControl.Resources>
 
    <StackPanel Name="OperationParametersStackPanel">

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

@@ -1,5 +1,4 @@
-Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
-Imports EgtWPFLib5.EgtFloating
 
 Public Class WoodSawingParameterExpanderV
 

OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/MachiningOpListBoxItem.vb

@@ -1,6 +1,4 @@
-Imports System.ComponentModel
+Imports EgtUILib
-Imports System.Collections.ObjectModel
-Imports EgtUILib
 
 Public Class MachiningOpListBoxItem
    Inherits OperationListBoxItem
@@ -98,13 +96,13 @@ Public Class MachiningOpListBoxItem
             ' imposto il nome originale
             m_ModifiedName = Name
             ' do il focus al nome
-            RaiseEvent m_ModifyNameGetFocus()
+            'RaiseEvent m_ModifyNameGetFocus()
             ' se esco da modifica
          End If
-         NotifyPropertyChanged("ModifiedName")
+         NotifyPropertyChanged(NameOf(ModifiedName))
-         NotifyPropertyChanged("Name")
+         NotifyPropertyChanged(NameOf(Name))
-         NotifyPropertyChanged("Name_Visibility")
+         NotifyPropertyChanged(NameOf(Name_Visibility))
-         NotifyPropertyChanged("ModifyName_Visibility")
+         NotifyPropertyChanged(NameOf(ModifyName_Visibility))
       End Set
    End Property
 
@@ -201,7 +199,8 @@ Public Class MachiningOpListBoxItem
       ' verifico che il nome non inizi con disp
       If m_ModifiedName.StartsWith("disp", StringComparison.InvariantCultureIgnoreCase) Then
          m_CloseModifyLostFocus = False
-         MessageBox.Show(EgtMsg(MSG_OPERATION + 21), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(EgtMsg(MSG_OPERATION + 21), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5421), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)   ' Il nome non può iniziare con "Disp" Errore
          Return
       End If
       ' Imposto il nuovo nome
@@ -209,9 +208,10 @@ Public Class MachiningOpListBoxItem
          If Not EgtSetOperationName(Id, m_ModifiedName) Then
             m_Spy = False
             m_CloseModifyLostFocus = False
-            MessageBox.Show(EgtMsg(MSG_OPERATION + 22), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
+            'MessageBox.Show(EgtMsg(MSG_OPERATION + 22), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5422), EgtMsg(10001), MessageBoxButton.OK, MessageBoxImage.Warning)   ' Nome già utilizzato Errore
             m_IsActive_ModifyName = True
-            NotifyPropertyChanged("ModifyName_Visibility")
+            NotifyPropertyChanged(NameOf(ModifyName_Visibility))
             m_Spy = True
             Return
          End If

OptionPanel/MachiningOptionPanel/OperationExpander/OperationListBoxItem/OperationListBoxItem.vb

@@ -70,9 +70,9 @@ Public Class OperationListBoxItem
                ' Ne deseleziono la geometria
                EgtDeselectAll()
 
-               Map.refOperationsListExpanderVM.OnPropertyChanged("MoveUp_IsEnabled")
+               Map.refOperationsListExpanderVM.OnPropertyChanged(NameOf(Map.refOperationsListExpanderVM.MoveUp_IsEnabled))
-               Map.refOperationsListExpanderVM.OnPropertyChanged("MoveDown_IsEnabled")
+               Map.refOperationsListExpanderVM.OnPropertyChanged(NameOf(Map.refOperationsListExpanderVM.MoveDown_IsEnabled))
-               NotifyPropertyChanged("IsSelected")
+               NotifyPropertyChanged(NameOf(IsSelected))
                ' Aggiorno visualizzazione
                EgtDraw()
                Return
@@ -85,10 +85,6 @@ Public Class OperationListBoxItem
             Map.refProjectVM.SceneSelMode = SceneSelModeOpt.ALL
             ' Se l'operazione è una disposizione
             If EgtGetOperationType(Id) = MCH_OY.DISP Then
-               '' Abilito la selezione delle Fixture
-               'Map.refProjectVM.SceneSelType = SceneSelTypeOpt.FIXTURE
-               ' Abilito la selezione di tutti i tipi di geometria
-               'Map.refProjectVM.SceneSelMode = SceneSelModeOpt.ALL
                ' Altrimenti è una lavorazione
             Else
                ' Imposto come corrente la lavorazione selezionata
@@ -115,10 +111,10 @@ Public Class OperationListBoxItem
             End If
             ' Notifico al contentcontrol OperationParameter di aggiornarsi
             If Not IsNothing( Map.refOperationParametersExpanderVM) Then
-               Map.refOperationParametersExpanderVM.OnPropertyChanged("OperationParameters")
+               Map.refOperationParametersExpanderVM.OnPropertyChanged(NameOf(Map.refOperationParametersExpanderVM.OperationParameters))
             End If
-            Map.refOperationsListExpanderVM.OnPropertyChanged("MoveUp_IsEnabled")
+            Map.refOperationsListExpanderVM.OnPropertyChanged(NameOf(Map.refOperationsListExpanderVM.MoveUp_IsEnabled))
-            Map.refOperationsListExpanderVM.OnPropertyChanged("MoveDown_IsEnabled")
+            Map.refOperationsListExpanderVM.OnPropertyChanged(NameOf(Map.refOperationsListExpanderVM.MoveDown_IsEnabled))
             ' Notifico l'operazione selezionata all'expander con l'albero delle lavorazioni aggiungibili
             If Not IsNothing(Map.refMachiningTreeExpanderVM) Then
                Map.refMachiningTreeExpanderVM.nSelectedOperationId = Me.Id
@@ -132,11 +128,10 @@ Public Class OperationListBoxItem
             Map.refMachiningParameterExpanderVM.ResetSliderValue()
          End If
 
-         'OnPropertyChanged("ToolExpanderHeader")
+         Map.refOperationsListExpanderVM.OnPropertyChanged(NameOf(Map.refOperationsListExpanderVM.DuplicateCmd_IsEnabled))
-         Map.refOperationsListExpanderVM.OnPropertyChanged("DuplicateCmd_IsEnabled")
+         Map.refOperationsListExpanderVM.OnPropertyChanged(NameOf(Map.refOperationsListExpanderVM.MachToDb_IsEnabled))
-         Map.refOperationsListExpanderVM.OnPropertyChanged("MachToDb_IsEnabled")
+         Map.refOperationsListExpanderVM.OnPropertyChanged(NameOf(Map.refOperationsListExpanderVM.Rename_IsEnabled))
-         Map.refOperationsListExpanderVM.OnPropertyChanged("Rename_IsEnabled")
+         NotifyPropertyChanged(NameOf(IsSelected))
-         NotifyPropertyChanged("IsSelected")
       End Set
    End Property
 

OptionPanel/MachiningOptionPanel/OperationParametersExpander/OperationParametersExpanderV.xaml

@@ -1,10 +1,6 @@
 <UserControl x:Class="OperationParametersExpanderV"
              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:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <StackPanel Name="OperationParametersExpanderViewStackPanel" IsEnabled="{Binding OperParamsViewIsEnabled}">
 

OptionPanel/MachiningOptionPanel/OperationParametersExpander/OperationParametersExpanderV.xaml.vb

@@ -1,180 +1,3 @@
-Imports EgtWPFLib5
+Public Class OperationParametersExpanderV
-Imports EgtWPFLib5.EgtFloating
-
-Public Class OperationParametersExpanderV
-
-   '   Private m_OperationExpanderVM As OperationExpanderVM
-
-   '   Private EgtFloatingTray As EgtFloatingTray
-   '   Private OptionPanelView As UserControl
-   '   Private OptionPanelViewStackPanel As StackPanel
-   '   'Private OperationParameters As ContentPresenter
-   '   Private MachiningTreeContentPresenter As ContentPresenter
-   '   Private MachiningTreeUserControl As UserControl
-   '   Private MachiningTreeExpander As Expander
-   '   Private SimulationContentPresenter As ContentPresenter
-   '   Private SimulationUserControl As UserControl
-   '   Private SimulationExpanderStackPanel As StackPanel
-   '   Private SimulationExpander As Expander
-   '   Private GenerateButton As Button
-
-   '   Private m_bFirst As Boolean = True
-
-   '#Region "CONSTRUCTOR"
-
-   '   Sub New()
-   '      ' Funzione che interpreta l'xaml
-   '      InitializeComponent()
-   '      ' Assegno al riferimento locale al VM il VM preso dal DataContext
-   '      m_OperationExpanderVM = DirectCast(Me.DataContext, OperationExpanderVM)
-   '   End Sub
-
-   '#End Region    ' CONSTRUCTOR
-
-   '#Region "EVENTS"
-
-   '   Private Sub MachiningOpListBoxItem_LostKeyboardFocus(sender As Object, e As KeyboardFocusChangedEventArgs)
-   '      Dim TextBox As TextBox = TryCast(sender, TextBox)
-   '      If IsNothing(TextBox) Then Return
-   '      Dim SelOp As MachiningOpListBoxItem = TryCast(TextBox.DataContext, MachiningOpListBoxItem)
-   '      If IsNothing(SelOp) Then Return
-   '      If MachiningOpListBoxItem.m_CloseModifyLostFocus Then
-   '         SelOp.ModifyNameEsc()
-   '      Else
-   '         If MachiningOpListBoxItem.m_Spy Then
-   '            MachiningOpListBoxItem.m_CloseModifyLostFocus = True
-   '            MachiningOpListBoxItem.m_Spy = False
-   '         End If
-   '         Keyboard.Focus(TextBox)
-   '      End If
-   '   End Sub
-
-   '   Private Sub MachiningOpListBoxItem_IsVisibleChanged(sender As Object, e As DependencyPropertyChangedEventArgs)
-   '      Dim bNewVal As Boolean = False
-   '      Try
-   '         bNewVal = CType(e.NewValue, Boolean)
-   '      Catch
-   '      End Try
-   '      If bNewVal Then
-   '         Dim inElem As IInputElement = TryCast(sender, IInputElement)
-   '         If Not IsNothing(inElem) Then Keyboard.Focus(inElem)
-   '      End If
-   '   End Sub
-
-   '#End Region    ' EVENTS
-
-   '   Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
-   '      If m_bFirst Then
-   '         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
-   '         OptionPanelView = FindAncestor(Of UserControl)(Me)
-   '         OptionPanelViewStackPanel = DirectCast(OptionPanelView.Content, StackPanel)
-   '         MachiningTreeContentPresenter = DirectCast(OptionPanelViewStackPanel.Children(1), ContentPresenter)
-   '         MachiningTreeUserControl = DirectCast(MachiningTreeContentPresenter.Content, UserControl)
-   '         MachiningTreeExpander = DirectCast(MachiningTreeUserControl.Content, Expander)
-   '         SimulationContentPresenter = DirectCast(OptionPanelViewStackPanel.Children(2), ContentPresenter)
-   '         SimulationUserControl = DirectCast(SimulationContentPresenter.Content, UserControl)
-   '         SimulationExpanderStackPanel = DirectCast(SimulationUserControl.Content, StackPanel)
-   '         SimulationExpander = DirectCast(SimulationExpanderStackPanel.Children(0), Expander)
-   '         GenerateButton = DirectCast(SimulationExpanderStackPanel.Children(2), Button)
-   '         ' Gestisco l'evento SizeChanged della Tray 
-   '         AddHandler EgtFloatingTray.SizeChanged, AddressOf OperationExpanderTray_SizeChanged
-   '         m_bFirst = False
-   '      End If
-   '      CalculateOperationParametersStackPanelMaxHeight()
-   '   End Sub
-
-   '   Private Sub OperationExpanderTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
-   '      CalculateOperationParametersStackPanelMaxHeight()
-   '      'For Each Expander In OperationParametersStackPanel.Children
-   '      '   If TypeOf Expander Is Expander Then
-   '      '      Dim CurrExpander As Expander = DirectCast(Expander, Expander)
-   '      '      CurrExpander.IsExpanded = False
-   '      '   End If
-   '      'Next
-   '   End Sub
-
-   '   Private Sub CalculateOperationParametersStackPanelMaxHeight()
-   '      Dim OccupiedHeight As Double = 0
-   '      If Not MachiningTreeExpander.IsExpanded Then
-   '         OccupiedHeight += MachiningTreeExpander.ActualHeight
-   '      Else
-   '         Dim MachiningTreeExpanderContent As FrameworkElement = DirectCast(MachiningTreeExpander.Content, FrameworkElement)
-   '         MachiningTreeExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '         OccupiedHeight += (MachiningTreeExpander.ActualHeight - MachiningTreeExpanderContent.DesiredSize.Height)
-   '      End If
-   '      If Not SimulationExpander.IsExpanded Then
-   '         OccupiedHeight += SimulationExpander.ActualHeight
-   '      Else
-   '         Dim SimulationExpanderContent As FrameworkElement = DirectCast(SimulationExpander.Content, FrameworkElement)
-   '         SimulationExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '         OccupiedHeight += (SimulationExpander.ActualHeight - SimulationExpanderContent.DesiredSize.Height)
-   '      End If
-   '      OccupiedHeight += GenerateButton.ActualHeight
-   '      'Aggiungo altezza OperationsList header Expander
-   '      If Not OperationsListExpander.IsExpanded Then
-   '         OccupiedHeight += OperationsListExpander.ActualHeight
-   '      Else
-   '         Dim OperationsListExpanderContent As FrameworkElement = DirectCast(OperationsListExpander.Content, FrameworkElement)
-   '         OperationsListExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '         OccupiedHeight += (OperationsListExpander.ActualHeight - OperationsListExpanderContent.DesiredSize.Height)
-   '      End If
-   '      If Not OperationParametersExpander.IsExpanded Then
-   '         OccupiedHeight += OperationParametersExpander.ActualHeight
-   '      Else
-   '         Dim OperationParametersExpanderContent As FrameworkElement = DirectCast(OperationParametersExpander.Content, FrameworkElement)
-   '         OperationParametersExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '         OccupiedHeight += (OperationParametersExpander.ActualHeight - OperationParametersExpanderContent.DesiredSize.Height)
-   '      End If
-   '      '' Aggiungo altezza contenuto OperationParameters che però è fuori dallo Stackpanel
-   '      'OperationFirstParametersStackPanel.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '      'If OperationFirstParametersStackPanel.DesiredSize.Height <> 0 Then
-   '      '   OccupiedHeight += OperationFirstParametersStackPanel.DesiredSize.Height
-   '      'Else
-   '      '   ' aggiungo il valore calcolato provando se non viene calcolato dal sistema al momento
-   '      '   OccupiedHeight += 10
-   '      'End If
-   '      'OperationParametersStackPanel.MaxHeight = OptionPanelViewStackPanel.MaxHeight - OccupiedHeight
-   '   End Sub
-
-   '   ' Funzione che permette di trovare il primo contenitore di tipo T di un elemento grafico dependencyObject 
-   '   Public Function FindAncestor(Of T As Class)(dependencyObject As DependencyObject) As T
-   '      Dim target As DependencyObject = dependencyObject
-   '      Do
-   '         target = LogicalTreeHelper.GetParent(target)
-   '      Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
-   '      If IsNothing(target) Then
-   '         target = dependencyObject
-   '         Do
-   '            target = VisualTreeHelper.GetParent(target)
-   '         Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
-   '      End If
-   '      Return TryCast(target, T)
-   '   End Function
-
-   '   'Public Sub ItemsControl_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
-   '   '   Dim ListControl As ListBox = DirectCast(sender, ListBox)
-   '   '   If Not IsNothing(ListControl.SelectedItem) Then
-   '   '      Dim SelectedItemIndex As Integer = ListControl.Items.IndexOf(ListControl.SelectedItem)
-   '   '      ListControl.Dispatcher.BeginInvoke(DirectCast(Sub()
-   '   '                                                       ListControl.UpdateLayout()
-   '   '                                                       If ListControl.SelectedItem IsNot Nothing Then
-   '   '                                                          ListControl.ScrollIntoView(ListControl.SelectedItem)
-   '   '                                                       End If
-   '   '                                                    End Sub, Action))
-   '   '      If SelectedItemIndex > 0 Then
-   '   '         ListControl.Dispatcher.BeginInvoke(DirectCast(Sub()
-   '   '                                                          ListControl.UpdateLayout()
-   '   '                                                          ListControl.ScrollIntoView(ListControl.Items(SelectedItemIndex - 1))
-   '   '                                                       End Sub, Action))
-   '   '      End If
-   '   '      If SelectedItemIndex < ListControl.Items.Count - 2 Then
-   '   '         ListControl.Dispatcher.BeginInvoke(DirectCast(Sub()
-   '   '                                                          ListControl.UpdateLayout()
-   '   '                                                          ListControl.ScrollIntoView(ListControl.Items(SelectedItemIndex + 1))
-   '   '                                                       End Sub, Action))
-   '   '      End If
-   '   '   End If
-
-   '   'End Sub
 
 End Class

OptionPanel/MachiningOptionPanel/OperationParametersExpander/OperationParametersExpanderVM.vb

@@ -1,7 +1,4 @@
-Imports System.Collections.ObjectModel
+Imports EgtUILib
-Imports System.IO
-Imports EgtUILib
-Imports EgtWPFLib5
 
 Public Class OperationParametersExpanderVM
    Inherits ViewModelBase
@@ -13,7 +10,7 @@ Public Class OperationParametersExpanderVM
       End Get
       Set(value As Boolean)
          m_OperParamsViewIsEnabled = value
-         OnPropertyChanged("OperParamsViewIsEnabled")
+         OnPropertyChanged(NameOf(OperParamsViewIsEnabled))
       End Set
    End Property
 
@@ -39,7 +36,7 @@ Public Class OperationParametersExpanderVM
    Public Property ParametersExpanderName As String
       Get
          If String.IsNullOrEmpty(m_ParametersExpanderName) Then
-            Return EgtMsg(MSG_OPERATION + 2)
+            Return EgtMsg(5402)     ' Parametri Operazione
          Else
             Return m_ParametersExpanderName
          End If
@@ -48,7 +45,7 @@ Public Class OperationParametersExpanderVM
          If value <> m_ParametersExpanderName Then
             m_ParametersExpanderName = value
          End If
-         OnPropertyChanged("ParametersExpanderName")
+         OnPropertyChanged(NameOf(ParametersExpanderName))
       End Set
    End Property
 
@@ -64,8 +61,9 @@ Public Class OperationParametersExpanderVM
          Next
          If selOperation.m_Type = MCH_OY.DISP Then
             If IsNothing(m_DispositionParameterExpander) Then
-               m_DispositionParameterExpander = New DispositionParameterExpanderV
+               m_DispositionParameterExpander = New DispositionParameterExpanderV With {
-               m_DispositionParameterExpander.DataContext = New DispositionParameterExpanderVM(m_OpenDispositionFunction)
+                  .DataContext = New DispositionParameterExpanderVM(m_OpenDispositionFunction)
+               }
             End If
             Return m_DispositionParameterExpander
          Else
@@ -75,7 +73,7 @@ Public Class OperationParametersExpanderVM
                   .DataContext = m_MachiningParameterExpanderVM
                }
             End If
-            m_MachiningParameterExpanderVM.NotifyPropertyChanged("ParamExpanderPageV")
+            m_MachiningParameterExpanderVM.NotifyPropertyChanged(NameOf(m_MachiningParameterExpanderVM.ParamExpanderPageV))
             Return m_MachiningParameterExpander
          End If
       End Get
@@ -181,7 +179,7 @@ Public Class OperationParametersExpanderVM
          ' Imposto visualizzazione utensile
          Map.refMachiningParameterExpanderVM.SetViewTool( True)
       End If
-      OnPropertyChanged("ParametersIsExpanded")
+      OnPropertyChanged(NameOf(ParametersIsExpanded))
       Return True
    End Function
 
@@ -216,7 +214,7 @@ Public Class OperationParametersExpanderVM
       Map.refProjectVM.SceneSelType = SceneSelTypeOpt.NULL
       ' Resetto il tipo di selezione
       Map.refProjectVM.SceneSelMode = SceneSelModeOpt.NULL
-      OnPropertyChanged("ParametersIsExpanded")
+      OnPropertyChanged(NameOf(ParametersIsExpanded))
       Return True
    End Function
 

OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderV.xaml

@@ -1,10 +1,7 @@
 <UserControl x:Class="OperationsListExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:sys="clr-namespace:System;assembly=mscorlib"
+             xmlns:EgtCAM5="clr-namespace:EgtCAM5">
-   xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
-   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
-   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <StackPanel Name="OperationsListExpanderViewStackPanel" IsEnabled="{Binding OpersListViewIsEnabled}">
 
@@ -26,14 +23,7 @@
                <ListBox.Resources>
                   <DataTemplate DataType="{x:Type EgtCAM5:MachiningOpListBoxItem}">
                      <DataTemplate.Resources>
-                        <Style x:Key="LayoutRoot" TargetType="Grid">
+                        <Style x:Key="LayoutRoot" TargetType="{x:Type Grid}"/>
-                           <!--<Style.Triggers>
-                              --><!--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">
-                                 <Setter Property="FocusManager.FocusedElement" Value="{Binding ElementName=Box}"/>
-                              </DataTrigger>
-                           </Style.Triggers>-->
-                        </Style>
                      </DataTemplate.Resources>
                      <Border Background="Transparent">
                         <Border.InputBindings>
@@ -41,7 +31,7 @@
                                          Command="{Binding DataContext.OperationListDoubleClickCommand, RelativeSource={RelativeSource AncestorType={x:Type EgtCAM5:OperationsListExpanderV}}}"
                                          CommandParameter="{Binding Id}"/>
                         </Border.InputBindings>
-                        <Grid Style="{StaticResource LayoutRoot}">
+                        <Grid Style="{StaticResource LayoutRoot}" FocusManager.FocusedElement="{Binding ElementName=Box}">
                            <Grid.ColumnDefinitions>
                               <ColumnDefinition Width="Auto"/>
                               <ColumnDefinition Width="Auto"/>
@@ -54,10 +44,17 @@
                                       Visibility="{Binding Name_Visibility}" Margin="0,0,5,0"/>
                            <TextBox Grid.Column="1" Text="{Binding ModifiedName, UpdateSourceTrigger=PropertyChanged}"
                                     Width="150"
-                                    x:Name="Box"
+                                    x:Name="Box" IsEnabled="True" Focusable="True" 
                                     Visibility="{Binding ModifyName_Visibility}" Margin="0,0,5,0">
-                              <!--IsVisibleChanged="MachiningOpListBoxItem_IsVisibleChanged"
+                              <!--<TextBox.Style>
-                                    LostKeyboardFocus="MachiningOpListBoxItem_LostKeyboardFocus">-->
+                                 <Style TargetType="{x:Type TextBox}">
+                                    <Style.Triggers>
+                                       <DataTrigger Binding="{Binding IsSelected}" Value="True">
+                                          <Setter Property="FocusManager.FocusedElement" Value="{Binding ElementName=Box}"/>
+                                       </DataTrigger>
+                                    </Style.Triggers>
+                                 </Style>
+                              </TextBox.Style>-->
                               <TextBox.InputBindings>
                                  <KeyBinding Key="Enter" Command="{Binding ModifyNameEnterCommand}"/>
                                  <KeyBinding Key="Escape" Command="{Binding ModifyNameEscCommand}"/>
@@ -88,14 +85,6 @@
                      <StackPanel Orientation="Vertical"/>
                   </ItemsPanelTemplate>
                </ListBox.ItemsPanel>
-               <!--<Interactivity:Interaction.Triggers>
-                  <Interactivity:EventTrigger EventName="MouseDoubleClick">
-                     <Interactivity:InvokeCommandAction Command="{Binding OperationListDoubleClickCommand}"/>
-                  </Interactivity:EventTrigger>
-               </Interactivity:Interaction.Triggers>-->
-               <!--<Interactivity:Interaction.Behaviors>
-                  <EgtCAM5:ScrollIntoViewForListBox/>
-               </Interactivity:Interaction.Behaviors>-->
                <ListBox.InputBindings>
                   <KeyBinding Key="Delete" Command="{Binding CancelOperationCommand}"/>
                </ListBox.InputBindings>

OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderV.xaml.vb

@@ -1,155 +1,4 @@
-Imports EgtWPFLib5
+Public Class OperationsListExpanderV
-Imports EgtWPFLib5.EgtFloating
-
-Public Class OperationsListExpanderV
-
-   '   Private m_OperationExpanderVM As OperationExpanderVM
-
-   '   Private EgtFloatingTray As EgtFloatingTray
-   '   Private OptionPanelView As UserControl
-   '   Private OptionPanelViewStackPanel As StackPanel
-   '   'Private OperationParameters As ContentPresenter
-   '   Private MachiningTreeContentPresenter As ContentPresenter
-   '   Private MachiningTreeUserControl As UserControl
-   '   Private MachiningTreeExpander As Expander
-   '   Private SimulationContentPresenter As ContentPresenter
-   '   Private SimulationUserControl As UserControl
-   '   Private SimulationExpanderStackPanel As StackPanel
-   '   Private SimulationExpander As Expander
-   '   Private GenerateButton As Button
-
-   '   Private m_bFirst As Boolean = True
-
-   '#Region "CONSTRUCTOR"
-
-   '   Sub New()
-   '      ' Funzione che interpreta l'xaml
-   '      InitializeComponent()
-   '      ' Assegno al riferimento locale al VM il VM preso dal DataContext
-   '      m_OperationExpanderVM = DirectCast(Me.DataContext, OperationExpanderVM)
-   '   End Sub
-
-   '#End Region    ' CONSTRUCTOR
-
-   '#Region "EVENTS"
-
-   '   Private Sub MachiningOpListBoxItem_LostKeyboardFocus(sender As Object, e As KeyboardFocusChangedEventArgs)
-   '      Dim TextBox As TextBox = TryCast(sender, TextBox)
-   '      If IsNothing(TextBox) Then Return
-   '      Dim SelOp As MachiningOpListBoxItem = TryCast(TextBox.DataContext, MachiningOpListBoxItem)
-   '      If IsNothing(SelOp) Then Return
-   '      If MachiningOpListBoxItem.m_CloseModifyLostFocus Then
-   '         SelOp.ModifyNameEsc()
-   '      Else
-   '         If MachiningOpListBoxItem.m_Spy Then
-   '            MachiningOpListBoxItem.m_CloseModifyLostFocus = True
-   '            MachiningOpListBoxItem.m_Spy = False
-   '         End If
-   '         Keyboard.Focus(TextBox)
-   '      End If
-   '   End Sub
-
-   '   Private Sub MachiningOpListBoxItem_IsVisibleChanged(sender As Object, e As DependencyPropertyChangedEventArgs)
-   '      Dim bNewVal As Boolean = False
-   '      Try
-   '         bNewVal = CType(e.NewValue, Boolean)
-   '      Catch
-   '      End Try
-   '      If bNewVal Then
-   '         Dim inElem As IInputElement = TryCast(sender, IInputElement)
-   '         If Not IsNothing(inElem) Then Keyboard.Focus(inElem)
-   '      End If
-   '   End Sub
-
-   '#End Region    ' EVENTS
-
-   '   Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
-   '      If m_bFirst Then
-   '         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
-   '         OptionPanelView = FindAncestor(Of UserControl)(Me)
-   '         OptionPanelViewStackPanel = DirectCast(OptionPanelView.Content, StackPanel)
-   '         MachiningTreeContentPresenter = DirectCast(OptionPanelViewStackPanel.Children(1), ContentPresenter)
-   '         MachiningTreeUserControl = DirectCast(MachiningTreeContentPresenter.Content, UserControl)
-   '         MachiningTreeExpander = DirectCast(MachiningTreeUserControl.Content, Expander)
-   '         SimulationContentPresenter = DirectCast(OptionPanelViewStackPanel.Children(2), ContentPresenter)
-   '         SimulationUserControl = DirectCast(SimulationContentPresenter.Content, UserControl)
-   '         SimulationExpanderStackPanel = DirectCast(SimulationUserControl.Content, StackPanel)
-   '         SimulationExpander = DirectCast(SimulationExpanderStackPanel.Children(0), Expander)
-   '         GenerateButton = DirectCast(SimulationExpanderStackPanel.Children(2), Button)
-   '         ' Gestisco l'evento SizeChanged della Tray 
-   '         AddHandler EgtFloatingTray.SizeChanged, AddressOf OperationExpanderTray_SizeChanged
-   '         m_bFirst = False
-   '      End If
-   '      CalculateOperationParametersStackPanelMaxHeight()
-   '   End Sub
-
-   '   Private Sub OperationExpanderTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
-   '      CalculateOperationParametersStackPanelMaxHeight()
-   '      'For Each Expander In OperationParametersStackPanel.Children
-   '      '   If TypeOf Expander Is Expander Then
-   '      '      Dim CurrExpander As Expander = DirectCast(Expander, Expander)
-   '      '      CurrExpander.IsExpanded = False
-   '      '   End If
-   '      'Next
-   '   End Sub
-
-   '   Private Sub CalculateOperationParametersStackPanelMaxHeight()
-   '      Dim OccupiedHeight As Double = 0
-   '      If Not MachiningTreeExpander.IsExpanded Then
-   '         OccupiedHeight += MachiningTreeExpander.ActualHeight
-   '      Else
-   '         Dim MachiningTreeExpanderContent As FrameworkElement = DirectCast(MachiningTreeExpander.Content, FrameworkElement)
-   '         MachiningTreeExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '         OccupiedHeight += (MachiningTreeExpander.ActualHeight - MachiningTreeExpanderContent.DesiredSize.Height)
-   '      End If
-   '      If Not SimulationExpander.IsExpanded Then
-   '         OccupiedHeight += SimulationExpander.ActualHeight
-   '      Else
-   '         Dim SimulationExpanderContent As FrameworkElement = DirectCast(SimulationExpander.Content, FrameworkElement)
-   '         SimulationExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '         OccupiedHeight += (SimulationExpander.ActualHeight - SimulationExpanderContent.DesiredSize.Height)
-   '      End If
-   '      OccupiedHeight += GenerateButton.ActualHeight
-   '      'Aggiungo altezza OperationsList header Expander
-   '      If Not OperationsListExpander.IsExpanded Then
-   '         OccupiedHeight += OperationsListExpander.ActualHeight
-   '      Else
-   '         Dim OperationsListExpanderContent As FrameworkElement = DirectCast(OperationsListExpander.Content, FrameworkElement)
-   '         OperationsListExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '         OccupiedHeight += (OperationsListExpander.ActualHeight - OperationsListExpanderContent.DesiredSize.Height)
-   '      End If
-   '      If Not OperationParametersExpander.IsExpanded Then
-   '         OccupiedHeight += OperationParametersExpander.ActualHeight
-   '      Else
-   '         Dim OperationParametersExpanderContent As FrameworkElement = DirectCast(OperationParametersExpander.Content, FrameworkElement)
-   '         OperationParametersExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '         OccupiedHeight += (OperationParametersExpander.ActualHeight - OperationParametersExpanderContent.DesiredSize.Height)
-   '      End If
-   '      '' Aggiungo altezza contenuto OperationParameters che però è fuori dallo Stackpanel
-   '      'OperationFirstParametersStackPanel.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
-   '      'If OperationFirstParametersStackPanel.DesiredSize.Height <> 0 Then
-   '      '   OccupiedHeight += OperationFirstParametersStackPanel.DesiredSize.Height
-   '      'Else
-   '      '   ' aggiungo il valore calcolato provando se non viene calcolato dal sistema al momento
-   '      '   OccupiedHeight += 10
-   '      'End If
-   '      'OperationParametersStackPanel.MaxHeight = OptionPanelViewStackPanel.MaxHeight - OccupiedHeight
-   '   End Sub
-
-   '   ' Funzione che permette di trovare il primo contenitore di tipo T di un elemento grafico dependencyObject 
-   '   Public Function FindAncestor(Of T As Class)(dependencyObject As DependencyObject) As T
-   '      Dim target As DependencyObject = dependencyObject
-   '      Do
-   '         target = LogicalTreeHelper.GetParent(target)
-   '      Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
-   '      If IsNothing(target) Then
-   '         target = dependencyObject
-   '         Do
-   '            target = VisualTreeHelper.GetParent(target)
-   '         Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
-   '      End If
-   '      Return TryCast(target, T)
-   '   End Function
 
    Public Sub ItemsControl_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
       Dim ListControl As ListBox = DirectCast(sender, ListBox)
@@ -174,7 +23,6 @@ Public Class OperationsListExpanderV
                                                           End Sub, Action))
          End If
       End If
-
    End Sub
 
 End Class

OptionPanel/MachiningOptionPanel/OperationsListExpander/OperationsListExpanderVM.vb

@@ -30,19 +30,11 @@ Public Class OperationsListExpanderVM
    End Sub
 
    Private Sub EndNewMachining(SelOpId As Integer)
-      '' Deseleziono eventuali geometrie selezionate
-      'EgtDeselectAll()
-      'EgtDraw()
       ' Sblocco la lista operazioni
       IsEnabledOperationList = True
       ' Disabilito e chiudo l'expander con l'albero delle lavorazioni
       Map.refMachiningTreeExpanderVM.CodeCommand = True
       Map.refMachiningTreeExpanderVM.IsEnabled = False
-      '' Disabilito la selezione
-      'Map.refProjectVM.SceneSelType = SceneSelTypeOpt.NULL)
-      '' Disabilito la selezione di curve e superfici del pezzo
-      'Map.refProjectVM.SceneSelMode = SceneSelModeOpt.NULL)
-
       ' Apro i parametri della lavorazione aggiunta
       Map.refOperationParametersExpanderVM.ParametersIsExpanded = True
       m_NewMachining = False
@@ -72,7 +64,7 @@ Public Class OperationsListExpanderVM
       End Get
       Set(value As Boolean)
          m_OpersListViewIsEnabled = value
-         OnPropertyChanged("OpersListViewIsEnabled")
+         OnPropertyChanged(NameOf(OpersListViewIsEnabled))
       End Set
    End Property
 
@@ -96,7 +88,7 @@ Public Class OperationsListExpanderVM
       Set(value As Boolean)
          If value <> m_IsEnabledOperationList Then
             m_IsEnabledOperationList = value
-            OnPropertyChanged("IsEnabledOperationList")
+            OnPropertyChanged(NameOf(IsEnabledOperationList))
          End If
       End Set
    End Property
@@ -176,67 +168,67 @@ Public Class OperationsListExpanderVM
 
    Public ReadOnly Property OperationListHeader As String
       Get
-         Return EgtMsg(MSG_OPERATION + 1)
+         Return EgtMsg(5401)     ' Operazioni
       End Get
    End Property
 
    Public ReadOnly Property NewMachiningBtnContent As String
       Get
-         Return EgtMsg(MSG_OPERATION + 4)
+         Return EgtMsg(5404)     ' Nuova Lav
       End Get
    End Property
 
    Public ReadOnly Property NewPositioningBtnContent As String
       Get
-         Return EgtMsg(MSG_OPERATION + 5)
+         Return EgtMsg(5405)     ' Nuova Disp
       End Get
    End Property
 
    Public ReadOnly Property CancelOperationBtnContent As String
       Get
-         Return EgtMsg(MSG_OPERATION + 6)
+         Return EgtMsg(5406)     ' Cancella
       End Get
    End Property
 
    Public ReadOnly Property MoveUpMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 8)
+         Return EgtMsg(5408)     ' Sposta su
       End Get
    End Property
 
    Public ReadOnly Property MoveDownMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 9)
+         Return EgtMsg(5409)     ' Sposta giù
       End Get
    End Property
 
    Public ReadOnly Property UpdateMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 10)
+         Return EgtMsg(5410)     ' Aggiorna
       End Get
    End Property
 
    Public ReadOnly Property SetUpMsg As String
       Get
-         Return EgtMsg(MSG_SETUP + 1)
+         Return EgtMsg(6451)     ' SetUp
       End Get
    End Property
 
    Public ReadOnly Property DuplicateMachMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 16)
+         Return EgtMsg(5416)     ' Duplica
       End Get
    End Property
 
    Public ReadOnly Property MachToDbMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 17)
+         Return EgtMsg(5417)     ' Copia nel Db
       End Get
    End Property
 
    Public ReadOnly Property RenameMsg As String
       Get
-         Return EgtMsg(MSG_OPERATION + 20)
+         Return EgtMsg(5420)     ' Rinomina
       End Get
    End Property
 
@@ -386,8 +378,6 @@ Public Class OperationsListExpanderVM
                   ' Posso cancellare solo l'ultima disposizione
                   If EgtGetOperationPhase(Operation.Id) = EgtGetPhaseCount() Then
                      EgtRemoveLastPhase()
-                     'Else
-                     '   Return
                   End If
                Else
                   ' Deseleziono la geometria selezionata
@@ -489,8 +479,8 @@ Public Class OperationsListExpanderVM
             EgtSetCurrMachining( PreviousId)
             EgtApplyMachining( False)
             EgtDraw()
-            OnPropertyChanged( "MoveUp_IsEnabled")
+            OnPropertyChanged(NameOf(MoveUp_IsEnabled))
-            OnPropertyChanged( "MoveDown_IsEnabled")
+            OnPropertyChanged(NameOf(MoveDown_IsEnabled))
             Map.refProjectVM.EmitTitle()
          Else
             Dim nCurrPhase As Integer = EgtGetOperationPhase(LastSelectedId)
@@ -564,8 +554,8 @@ Public Class OperationsListExpanderVM
                EgtApplyMachining( False)
             Next
             EgtDraw()
-            OnPropertyChanged( "MoveUp_IsEnabled")
+            OnPropertyChanged(NameOf(MoveUp_IsEnabled))
-            OnPropertyChanged( "MoveDown_IsEnabled")
+            OnPropertyChanged(NameOf(MoveDown_IsEnabled))
             Map.refProjectVM.EmitTitle()
          Else
             If EgtGetOperationType( NextId) <> MCH_OY.DISP Then
@@ -631,12 +621,14 @@ Public Class OperationsListExpanderVM
       ' In caso di errori, li segnalo
       If Not bOk Then
          If Not String.IsNullOrEmpty(sErr) Then
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)  ' ERRORE
          Else
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore in generazione! ERRORE
          End If
       Else
-         Map.refStatusBarVM.NotifyStatusOutput(EgtMsg(MSG_OPERATION + 11))
+         Map.refStatusBarVM.NotifyStatusOutput(EgtMsg(5411))      ' Aggiornamento completato con successo
       End If
       Map.refProjectVM.EmitTitle()
    End Sub
@@ -664,7 +656,8 @@ Public Class OperationsListExpanderVM
       ' verifico che il file di configurazione attrezzaggio (lua) della macchina esista
       If Not File.Exists(IniFile.m_sCurrMachScriptsDirPath & "\" & SETUP_LUA) Then
          EgtOutLog("SetUp error: SetUp configuration file doesn't exist ")
-         MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 7), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6477), EgtMsg(6471), MessageBoxButton.OK, MessageBoxImage.Error)   ' Il file di configurazione non esiste! Errore
          Return
       End If
       ' carico Lua che contiene le funzioni per ottenere le posizioni valide dell'utensile selezionato,
@@ -683,7 +676,8 @@ Public Class OperationsListExpanderVM
          EgtLuaGetGlobIntVar("STU.ERR", nErr)
          If nErr = 0 Then
             If EgtGetHeadExitCount(sHead) = 0 Then
-               MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               'MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 8), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
+               EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(6478), EgtMsg(6471), MessageBoxButton.OK, MessageBoxImage.Error)   ' L'attrezzaggio usa una testa che non esiste sulla macchina! Errore
                Return
             End If
          End If
@@ -777,7 +771,7 @@ Public Class OperationsListExpanderVM
       ' apro la finetra che chiede il nome e verifica che non sia già utilizzato (Nome lavorazione nel Db)
       Dim NameDialogVM As New EgtWPFLib5.NameDialogVM With {
          .VerifyChars = False,
-         .Title = EgtMsg(MSG_OPERATION + 18),
+         .Title = EgtMsg(5418),     ' Nome lavorazione nel Db
          .Name = TryCast(selOperation, MachiningOpListBoxItem).LibMach,
          .NameVerifyer = AddressOf NameVerifyer}
       Dim NameWnd As New EgtWPFLib5.NameDialogV(Application.Current.MainWindow, NameDialogVM)
@@ -880,17 +874,24 @@ Public Class OperationsListExpanderVM
    ' verifico che il nome non sia già utilizzato
    Private Function NameVerifyer(Name As String) As Boolean
       If String.IsNullOrWhiteSpace(Name) Then
-         MessageBox.Show(EgtMsg(MSG_EGTSAVEFILEDIALOG + 8),
+         'MessageBox.Show(EgtMsg(MSG_EGTSAVEFILEDIALOG + 8),
-                         EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
+         '                EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
+         '                MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(30008),      ' Il nome non può essere vuoto!
+                                                             EgtMsg(30007),      ' ERRORE
                                                              MessageBoxButton.OK, MessageBoxImage.Error)
          Return False
       End If
       Dim TempName As String = Name
       EgtMdbGetMachiningNewName(TempName)
       If String.Compare(TempName, Name, True) = 0 Then Return True
-      MessageBox.Show(Name & " " &
+      'MessageBox.Show(Name & " " &
-                      EgtMsg(MSG_EGTSAVEFILEDIALOG + 3),
+      '                EgtMsg(MSG_EGTSAVEFILEDIALOG + 3),
-                      EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
+      '                EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
+      '                MessageBoxButton.OK, MessageBoxImage.Error)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, Name & " " &
+                                                          EgtMsg(30003),      ' esiste già
+                                                          EgtMsg(30007),      ' Sostituirlo?
                                                           MessageBoxButton.OK, MessageBoxImage.Error)
       Return False
    End Function
@@ -932,36 +933,8 @@ Public Class OperationsListExpanderVM
       Dim SelectedOperation As MachiningOpListBoxItem = TryCast(selOperation, MachiningOpListBoxItem)
       If IsNothing(SelectedOperation) Then Return
       SelectedOperation.IsActive_ModifyName = True
-      ' apro la finetra che chiede il nome e verifica che non sia già utilizzato
-      'Dim NewName As String = m_SelectedOperation.Name
-      'Dim NameDialogVM As New EgtWPFLib5.NameDialogVM With {
-      '   .Title = "Nome lavorazione in Db",
-      '   .Name = m_SelectedOperation.Name,
-      '   .NameVerifyer = AddressOf NameVerifyer}
-      'Dim NameWnd As New EgtWPFLib5.NameDialogV(Application.Current.MainWindow, NameDialogVM)
-      'If Not NameWnd.ShowDialog() Then Return
-      '' creo lavorazione nel Db
-      'EgtMdbAddMachining(NameDialogVM.Name, m_SelectedOperation.m_Type)
    End Sub
 
-   '' verifico che il nome non sia già utilizzato
-   'Private Function NameVerifyer(Name As String) As Boolean
-   '   If String.IsNullOrWhiteSpace(Name) Then
-   '      MessageBox.Show(EgtMsg(MSG_EGTSAVEFILEDIALOG + 8),
-   '                      EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
-   '                      MessageBoxButton.OK, MessageBoxImage.Error)
-   '      Return False
-   '   End If
-   '   Dim TempName As String = Name
-   '   'EgtGetMachiningNewName(TempName)
-   '   If String.Compare(TempName, Name, True) = 0 Then Return True
-   '   MessageBox.Show(Name & " " &
-   '                   EgtMsg(MSG_EGTSAVEFILEDIALOG + 3),
-   '                   EgtMsg(MSG_EGTSAVEFILEDIALOG + 7),
-   '                   MessageBoxButton.OK, MessageBoxImage.Error)
-   '   Return False
-   'End Function
-
 #End Region ' RenameCommand
 
 #End Region     ' Commands
@@ -975,7 +948,7 @@ Public Class OperationsListExpanderVM
       Map.refProjectVM.SceneSelType = SceneSelTypeOpt.MACHPATH
       ' Abilito la selezione di tutti i tipi di geometria
       Map.refProjectVM.SceneSelMode = SceneSelModeOpt.ALL
-      OnPropertyChanged("ListIsExpanded")
+      OnPropertyChanged(NameOf(ListIsExpanded))
       Map.refMachinePanelVM.ToolMachSetUpIsEnabled(True, True, True)
       If Not IsNothing(Map.refDoorPanelVM) Then Map.refDoorPanelVM.MTableIsEnabled(True)
       If Not IsNothing(Map.refSpecialPanelVM) Then Map.refSpecialPanelVM.SpecialPanelIsEnabled(True)
@@ -984,8 +957,7 @@ Public Class OperationsListExpanderVM
 
    Friend Function ExitOperationsList() As Boolean
       m_ListIsExpanded = False
-
+      OnPropertyChanged(NameOf(ListIsExpanded))
-      OnPropertyChanged("ListIsExpanded")
       Return True
    End Function
 
@@ -1166,29 +1138,14 @@ Public Class OperationsListExpanderVM
       For Index = 0 To OperationList.Count - 1
          If OperationList(Index).IsSelected Then
             OperationList(Index).IsSelected = False
-            'OperationList(Index).NotifyPropertyChanged("IsSelected")
-            'Exit For
          End If
       Next
       ' Ora cerco l'Operazione tramite nId e la seleziono
       Dim nOpId As Integer = EgtGetParent(EgtGetParent(EgtGetParent(nId)))
-      'Dim i As Integer = 0
-      'For Each Item In OperationList
-      '   Dim nOpType As Integer = EgtGetOperationType(nOpId)
-      '   If Item.Id = nOpId And nOpType <> MCH_OY.NONE And nOpType <> MCH_OY.DISP Then
-      '      '(OperationListBoxItem)OperationList.Where(Function(x) x.Id = nOpId).IsSelected = True
-      '      OperationList(i).IsSelected = True
-      '      'Item.IsSelected = True
-      '      'Item.NotifyPropertyChanged("IsSelected")
-      '      Exit For
-      '   End If
-      '   i = i + 1
-      'Next
       For Index = 0 To OperationList.Count - 1
          Dim nOpType As Integer = EgtGetOperationType(nOpId)
          If OperationList(Index).Id = nOpId And nOpType <> MCH_OY.NONE And nOpType <> MCH_OY.DISP Then
             OperationList(Index).IsSelected = True
-            'OperationList(Index).NotifyPropertyChanged("IsSelected")
             Exit For
          End If
       Next

OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderV.xaml

@@ -1,7 +1,6 @@
 <UserControl x:Class="SimulationExpanderV"
              xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
              xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
-   xmlns:sys="clr-namespace:System;assembly=mscorlib"
              xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
 
    <StackPanel>

OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderVM.vb

@@ -1,5 +1,4 @@
-Imports System.Collections.ObjectModel
+Imports System.IO
-Imports System.IO
 Imports EgtUILib
 Imports EgtWPFLib5
 
@@ -29,7 +28,7 @@ Public Class SimulationExpanderVM
       End Get
       Set(value As Boolean)
          m_Simulation_IsEnabled = value
-         NotifyPropertyChanged("Simulation_IsEnabled")
+         NotifyPropertyChanged(NameOf(Simulation_IsEnabled))
       End Set
    End Property
 
@@ -40,7 +39,7 @@ Public Class SimulationExpanderVM
       End Get
       Set(value As Boolean)
          m_bOnlySimulation = value
-         NotifyPropertyChanged("bOnlySimulation")
+         NotifyPropertyChanged(NameOf(bOnlySimulation))
       End Set
    End Property
 
@@ -52,7 +51,7 @@ Public Class SimulationExpanderVM
          value = Math.Max(1, Math.Min(value, 100))
          If Math.Abs(value - m_SliderValue) > 1 Then
             m_SliderValue = value
-            NotifyPropertyChanged("SliderValue")
+            NotifyPropertyChanged(NameOf(SliderValue))
          End If
          EgtSimSetStep(value * GetSliderX())
       End Set
@@ -108,13 +107,15 @@ Public Class SimulationExpanderVM
             MessageBox.Show(EgtMsg(5334), EgtMsg(5320), MessageBoxButton.OK, MessageBoxImage.Information)
          ElseIf nErr <> 0 Then
             Dim sErr As String = EgtGetLastMachMgrErrorString()
-            MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)  ' ERRORE
          Else
-            MessageBox.Show(EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore in generazione! ERRORE
          End If
          bNcView = False
       Else
-         Map.refStatusBarVM.NotifyStatusOutput(EgtMsg(5332) & "  (" & sCncFile & ")")
+         Map.refStatusBarVM.NotifyStatusOutput(EgtMsg(5332) & "  (" & sCncFile & ")")     ' Generato con successo
       End If
       ' Torno alla fase originale (o alla prima se non definita)
       EgtSetCurrPhase(If(nPhase = 0, 1, nPhase), True)
@@ -157,8 +158,8 @@ Public Class SimulationExpanderVM
       m_Simulation_IsExpanded = True
       Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = False
       Map.refOperationsListExpanderVM.SimulationExpander_Get_IsExpanded(True)
-      NotifyPropertyChanged("Simulation_IsExpanded")
+      NotifyPropertyChanged(NameOf(Simulation_IsExpanded))
-      Map.refMachiningOptionPanelVM.OnPropertyChanged("GenerateIsEnabled")
+      Map.refMachiningOptionPanelVM.OnPropertyChanged(NameOf(Map.refMachiningOptionPanelVM.GenerateIsEnabled))
       ' disattivo database utensili, lavorazioni e setup se vado in simulazione
       Map.refMachinePanelVM.ToolMachSetUpIsEnabled(False, False, False)
       ' disattivo MTable e SpecialPanel se vado in simulazione
@@ -170,7 +171,7 @@ Public Class SimulationExpanderVM
          Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = False
          Map.refEstimationsExpanderVM.Estimation_IsEnabled = False
          Map.refMachGroupPanelVM.SetMachGroupState(False)
-         Map.refEstimationsExpanderVM.NotifyPropertyChanged("Estimation_IsEnabled")
+         Map.refEstimationsExpanderVM.NotifyPropertyChanged(NameOf(Map.refEstimationsExpanderVM.Estimation_IsEnabled))
       End If
       Return True
    End Function
@@ -187,8 +188,8 @@ Public Class SimulationExpanderVM
       m_Simulation_IsExpanded = False
       Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = True
       Map.refOperationsListExpanderVM.SimulationExpander_Get_IsExpanded(False)
-      NotifyPropertyChanged("Simulation_IsExpanded")
+      NotifyPropertyChanged(NameOf(Simulation_IsExpanded))
-      Map.refMachiningOptionPanelVM.OnPropertyChanged("GenerateIsEnabled")
+      Map.refMachiningOptionPanelVM.OnPropertyChanged(NameOf(Map.refMachiningOptionPanelVM.GenerateIsEnabled))
       ' attivo database utensili, lavorazioni e setup se esco dalla simulazione
       Map.refMachinePanelVM.ToolMachSetUpIsEnabled(True, True, True)
       ' disattivo MTable e SpecialPanel se esco dalla simulazione
@@ -207,9 +208,11 @@ Public Class SimulationExpanderVM
       ' In caso di errori, li segnalo
       If Not bOk Then
          If Not String.IsNullOrEmpty(sErr) Then
-            MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)  ' ERRORE
          Else
-            MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            'MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)
+            EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5306), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)   ' Errore in generazione! ERRORE
          End If
       End If
       If Not bModified Then EgtResetModified()
@@ -261,7 +264,7 @@ Public Class SimulationExpanderVM
       End If
       ' Aggiorno visualizzazione dati macchina
       ShowCncData()
-      StatusMsg = EgtMsg(MSG_SIMULATION + 14)   ' HOME
+      StatusMsg = EgtMsg(5314)   ' HOME
    End Sub
 
    Public Overrides Sub ExecSim()
@@ -270,8 +273,8 @@ Public Class SimulationExpanderVM
       Map.refTopCommandBarVM.DrawIsEnabled = False
       Map.refOperationsListExpanderVM.OpersListViewIsEnabled = False
       Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = False
-      Map.refMachGroupPanelVM.SetMachGroupState(False)
+      Map.refMachGroupPanelVM.SetMachGroupState(False) ' Map.refMachGroupPanelVM.MachGroupPanelIsEnabled = False
-      Map.refEstimationsExpanderVM.NotifyPropertyChanged("Estimation_IsEnabled")
+      Map.refEstimationsExpanderVM.NotifyPropertyChanged(NameOf(Map.refEstimationsExpanderVM.Estimation_IsEnabled))
       m_bStopOnNextCollision = True
       If Not EgtSimStart(False) Then
          Dim nErr As Integer = EgtGetLastMachMgrErrorId()
@@ -299,22 +302,23 @@ Public Class SimulationExpanderVM
                If GetStatus() = MCH_SIM_ST.UI_STEP And nMove = MCH_SIM.END_STEP Then
                   ' Imposto stato Pausa
                   SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
-                  StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
+                  StatusMsg = EgtMsg(5311)   ' PAUSA
                   ' Aggiornamenti per bottone Play/Pause
                   SetShowPlay(True)
-                  NotifyPropertyChanged("PlayPauseImage")
+                  NotifyPropertyChanged(NameOf(PlayPauseImage))
                End If
                ' Se movimento con collisione
             ElseIf nMove = MCH_SIM.COLLISION Then
                If m_bStopOnNextCollision Then
                   ' Imposto stato Pausa
                   SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
-                  StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
+                  StatusMsg = EgtMsg(5311)   ' PAUSA
                   ' Aggiornamenti per bottone Play/Pause
                   SetShowPlay(True)
-                  NotifyPropertyChanged("PlayPauseImage")
+                  NotifyPropertyChanged(NameOf(PlayPauseImage))
                   ' Messaggio
-                  MessageBox.Show(EgtMsg(MSG_SIMULATION + 19), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.OK, MessageBoxImage.Warning)
+                  'MessageBox.Show(EgtMsg(MSG_MESSAGEBOX + 10), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)    ' Errore sconosciuto - ERRORE
+                  EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5319), EgtMsg(5315), MessageBoxButton.OK, MessageBoxImage.Warning)
                Else
                   m_bStopOnNextCollision = True
                End If
@@ -323,26 +327,30 @@ Public Class SimulationExpanderVM
                SetSimulationStatus(MCH_SIM_ST.UI_STOP)
                ' Aggiornamenti per bottone Play/Pause
                SetShowPlay(True)
-               NotifyPropertyChanged("PlayPauseImage")
+               NotifyPropertyChanged(NameOf(PlayPauseImage))
                ' Abilito check VMill
                VMill_IsEnabled = True
                Select Case nMove
                   Case MCH_SIM.END_
-                     StatusMsg = EgtMsg(MSG_SIMULATION + 1)   ' END
+                     StatusMsg = EgtMsg(5301)   ' END
                   Case MCH_SIM.STOP_
                      ' Simulazione fermata dall'utente (non necessita messaggio)
                   Case MCH_SIM.OUTSTROKE
                      Dim sInfo As String = String.Empty
                      EgtGetOutstrokeInfo(sInfo)
-                     MessageBox.Show(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        'Extracorsa ...
+                     'MessageBox.Show(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        ' Extracorsa ...
+                     EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5302) & " " & sInfo, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Stop)        ' Extracorsa ...
                   Case MCH_SIM.DIR_ERR
-                     MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Direzione utensile irraggiungibile
+                     'MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         ' Direzione utensile irraggiungibile
+                     EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5303), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Stop)         ' Direzione utensile irraggiungibile
                   Case Else
                      If EgtGetLastMachMgrErrorId() <> 0 Then
                         Dim sErr As String = EgtGetLastMachMgrErrorString()
-                        MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     '.... - ERRORE
+                        'MessageBox.Show(sErr, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     ' .... - ERRORE
+                        EgtMessageBoxV.Show(Application.Current.MainWindow, sErr, EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Exclamation)                     ' .... - ERRORE
                      Else
-                        MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     'Errore - ERRORE
+                        'MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Error)     ' Errore - ERRORE
+                        EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5304), EgtMsg(5305), MessageBoxButton.OK, MessageBoxImage.Error)     ' Errore - ERRORE
                      End If
                End Select
             End If
@@ -379,7 +387,7 @@ Public Class SimulationExpanderVM
          Map.refOperationParametersExpanderVM.OperParamsViewIsEnabled = True
          Map.refMachGroupPanelVM.SetMachGroupState(True)
       End If
-      Map.refEstimationsExpanderVM.NotifyPropertyChanged("Estimation_IsEnabled")
+      Map.refEstimationsExpanderVM.NotifyPropertyChanged(NameOf(Map.refEstimationsExpanderVM.Estimation_IsEnabled))
       If IniFile.m_bSimulEndExitApp Then
          refMainWindowVM.CloseApplication(Nothing)
       End If
@@ -414,7 +422,8 @@ Public Class SimulationExpanderVM
       If bAskSave Then
          If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
             ' Il progetto deve essere salvato prima di poter essere generato. Vuoi farlo ?
-            If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            'If MessageBox.Show(EgtMsg(MSG_SIMULATION + 31), EgtMsg(MSG_SIMULATION + 15), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+            If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(5331), EgtMsg(5315), MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then ' Il progetto deve essere salvato prima della generazione CN. Vuoi farlo ? AVVERTIMENTO
                ' Abbandono
                Return False
             Else
@@ -457,10 +466,10 @@ Public Class SimulationExpanderVM
          If nFlag = 11 Then
             ' Imposto stato Pausa
             SetSimulationStatus(MCH_SIM_ST.UI_PAUSE)
-            StatusMsg = EgtMsg(MSG_SIMULATION + 11)   ' PAUSA
+            StatusMsg = EgtMsg(5311)   ' PAUSA
             ' Aggiornamenti per bottone Play/Pause
             SetShowPlay(True)
-            NotifyPropertyChanged("PlayPauseImage")
+            NotifyPropertyChanged(NameOf(PlayPauseImage))
             ' Dichiaro di non arrestarsi alla successiva notifica di collisione
             m_bStopOnNextCollision = False
          End If

OptionPanel/MachiningOptionPanelVM.vb

@@ -31,8 +31,9 @@ Public Class MachiningOptionPanelVM
    Public ReadOnly Property MachiningsTreeExpander As ContentControl
       Get
          If IsNothing(m_MachiningsTreeExpander) Then
-            m_MachiningsTreeExpander = New MachiningTreeExpanderV
+            m_MachiningsTreeExpander = New MachiningTreeExpanderV With {
-            m_MachiningsTreeExpander.DataContext = New MachiningTreeExpanderVM
+               .DataContext = New MachiningTreeExpanderVM
+            }
          End If
          Return m_MachiningsTreeExpander
       End Get
@@ -42,8 +43,9 @@ Public Class MachiningOptionPanelVM
    Public ReadOnly Property SimulationExpander As ContentControl
       Get
          If IsNothing(m_SimulationExpander) Then
-            m_SimulationExpander = New SimulationExpanderV
+            m_SimulationExpander = New SimulationExpanderV With {
-            m_SimulationExpander.DataContext = New SimulationExpanderVM
+               .DataContext = New SimulationExpanderVM
+            }
          End If
          Map.refSimulationExpanderVM.Simulation_IsEnabled = True
          Return m_SimulationExpander
@@ -54,11 +56,11 @@ Public Class MachiningOptionPanelVM
    Public ReadOnly Property EstimationsExpander As ContentControl
       Get
          If IsNothing(m_EstimationsExpander) Then
-            m_EstimationsExpander = New EstimationsExpanderV
+            m_EstimationsExpander = New EstimationsExpanderV With {
-            m_EstimationsExpander.DataContext = New EstimationsExpanderVM
+               .DataContext = New EstimationsExpanderVM
+            }
          End If
-         Map.refEstimationsExpanderVM.Estimation_IsEnabled =
+         Map.refEstimationsExpanderVM.Estimation_IsEnabled = (EgtUILib.GetPrivateProfileInt(S_ESTIMATIONS, K_EST_ENABLE, 0, IniFile.m_sCurrMachIniFilePath) <> 0)
-                       (EgtUILib.GetPrivateProfileInt(S_ESTIMATIONS, K_EST_ENABLE, 0, IniFile.m_sCurrMachIniFilePath) <> 0)
          Return m_EstimationsExpander
       End Get
    End Property
@@ -121,7 +123,7 @@ Public Class MachiningOptionPanelVM
                Case MachiningOptionPanelExpander.ESTIMATIONS
                   Map.refEstimationsExpanderVM.InitEstimations()
             End Select
-            OnPropertyChanged("OpenExpander")
+            OnPropertyChanged(NameOf(OpenExpander))
          End If
       End Set
    End Property
@@ -136,7 +138,7 @@ Public Class MachiningOptionPanelVM
 
    Public ReadOnly Property GenerateMsg As String
       Get
-         Return EgtMsg(MSG_SIMULATION + 30)                 'GENERA
+         Return EgtMsg(5330)     ' GENERA
       End Get
    End Property
 
@@ -154,12 +156,10 @@ Public Class MachiningOptionPanelVM
 #Region "METHODS"
 
    Friend Function InitMachiningOptionPanel() As Boolean
-      'EgtZoom(ZM.ALL)
       Return True
    End Function
 
    Friend Function ExitMachiningOptionPanel() As Boolean
-
       Return True
    End Function
 

OptionPanel/OptionPanelVM.vb

@@ -60,14 +60,14 @@ Public Class OptionPanelVM
          Map.refSimulationExpanderVM.Simulation_IsExpanded = False
          Map.refEstimationsExpanderVM.Estimation_IsExpanded = False
       End If
-      NotifyPropertyChanged("ModePanel")
+      NotifyPropertyChanged(NameOf(ModePanel))
    End Sub
 
    Friend Sub MachiningMode_IsChecked()
       m_DrawIsChecked = False
       m_MachiningIsChecked = True
       EgtZoom(ZM.ALL, False)
-      NotifyPropertyChanged("ModePanel")
+      NotifyPropertyChanged(NameOf(ModePanel))
    End Sub
 
 End Class

OptionsWindow/OptionModule.vb

@@ -84,7 +84,8 @@ Friend Module OptionModule
       End While
       If nIndex = 1 Then
          EgtOutLog("Error missing languages section in Config.ini")
-         MessageBox.Show("Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
+         'MessageBox.Show("Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, "Error : missing languages informations", "EgtCAM5", MessageBoxButton.OK, MessageBoxImage.Error)
          End
       End If
       ' Inizializzo la lingua corrente

OptionsWindow/OptionWindowV.xaml

@@ -331,15 +331,6 @@
                         </DataTemplate>
                      </ComboBox.ItemTemplate>
                   </ComboBox>
-                  <!--<TextBlock Text="{Binding GeomTypeWaterJetMsg}" VerticalAlignment="Center"/>
-                  <ComboBox ItemsSource="{Binding GeomTypeList, Mode=OneWay}"
-                            SelectedItem="{Binding SelectedWaterJetGeomType}" Height="25">
-                     <ComboBox.ItemTemplate>
-                        <DataTemplate>
-                           <TextBlock Text="{Binding Converter={StaticResource GeomTypeConverter}}"/>
-                        </DataTemplate>
-                     </ComboBox.ItemTemplate>
-                  </ComboBox>-->
                   <TextBlock Text="{Binding GeomTypeFiveAxMsg}" VerticalAlignment="Center"/>
                   <ComboBox ItemsSource="{Binding GeomTypeList, Mode=OneWay}"
                             SelectedItem="{Binding SelectedFiveAxGeomType}" Height="25">
@@ -435,6 +426,65 @@
          </StackPanel>
       </TabItem>
 
+      <TabItem Header="{Binding CubeMsg}" Visibility="Collapsed">
+         <StackPanel Margin="5,10,5,0">
+            <GroupBox Header="{Binding CubeInfoMsg}"
+                      Margin="0,0,0,5">
+               <Grid Margin="5,5,5,10">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*"/>
+                     <ColumnDefinition Width="1*"/>
+                  </Grid.ColumnDefinitions>
+                  <Grid.RowDefinitions>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                     <RowDefinition Height="1*"/>
+                  </Grid.RowDefinitions>
+                  <TextBlock Text="{Binding CubeCoordinateMsg}" 
+                             Style="{StaticResource TextBlock_Cubetto}"/>
+                  <ComboBox Grid.Column="1"
+                            ItemsSource="{Binding CoordinatesList, Mode=OneWay}"
+                            SelectedItem="{Binding SelectedCoordinate}"
+                            Style="{StaticResource ComboBox_Cubetto}">
+                     <ComboBox.ItemTemplate>
+                        <DataTemplate>
+                           <TextBlock Text="{Binding Converter={StaticResource ComboBoxNameConverter}}"/>
+                        </DataTemplate>
+                     </ComboBox.ItemTemplate>
+                  </ComboBox>
+
+                  <TextBlock Grid.Row="1"
+                             Text="{Binding SizeCubMsg}" 
+                             Style="{StaticResource TextBlock_Cubetto}"/>
+                  <TextBox Grid.Row="1"
+                           Grid.Column="1" 
+                           Text="{Binding SizeCube}" 
+                           Style="{StaticResource TextBox_Cubetto}"/>
+
+                  <TextBlock Grid.Row="2" 
+                             Text="{Binding DistXMsg}" 
+                             Style="{StaticResource TextBlock_Cubetto}"/>
+                  <TextBox Grid.Row="2" 
+                           Grid.Column="1" 
+                           Text="{Binding DistX}" 
+                           Style="{StaticResource TextBox_Cubetto}"/>
+
+                  <TextBlock Grid.Row="3" 
+                             Text="{Binding DistYMsg}" 
+                             Style="{StaticResource TextBlock_Cubetto}"/>
+                  <TextBox Grid.Row="3" 
+                           Grid.Column="1" 
+                           Text="{Binding DistY}" 
+                           Style="{StaticResource TextBox_Cubetto}"/>
+               </Grid>
+            </GroupBox>
+            <Button Content="{Binding CreateCubeMsg}"
+                    Command="{Binding CreateCube_Command}"
+                    Style="{StaticResource Button_Cubetto}"/>
+         </StackPanel>
+      </TabItem>
+
    </TabControl>
 
 </EgtWPFLib5:EgtCustomWindow>

OptionsWindow/OptionWindowVM.vb

@@ -3,6 +3,7 @@ Imports System.Collections.ObjectModel
 Imports System.IO
 Imports EgtUILib
 Imports System.Globalization
+Imports EgtWPFLib5
 
 Public Class OptionWindowVM
    Inherits VMBase
@@ -27,7 +28,7 @@ Public Class OptionWindowVM
       End Get
    End Property
 
-   Private m_UnitMeasureList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(MSG_OPTIONPAGE + 45)})
+   Private m_UnitMeasureList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(6545)})   ' Unità corrente
    Public ReadOnly Property UnitMeasureList As List(Of String)
       Get
          Return m_UnitMeasureList
@@ -51,35 +52,35 @@ Public Class OptionWindowVM
       End Get
    End Property
 
-   Private m_ScaleDXFList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(MSG_OPTIONPAGE + 46)})
+   Private m_ScaleDXFList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(6546)})   ' Altra
    Public ReadOnly Property ScaleDXFList As List(Of String)
       Get
          Return m_ScaleDXFList
       End Get
    End Property
 
-   Private m_ScaleSTLList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(MSG_OPTIONPAGE + 46)})
+   Private m_ScaleSTLList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(6546)})   ' Altra
    Public ReadOnly Property ScaleSTLList As List(Of String)
       Get
          Return m_ScaleSTLList
       End Get
    End Property
 
-   Private m_ScaleOffList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(MSG_OPTIONPAGE + 46)})
+   Private m_ScaleOffList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(6546)}) ' Altra
    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)})
+   Private m_ScalePlyList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(6546)}) ' Altra
    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)})
+   Private m_ScaleImageList As List(Of String) = New List(Of String)({"mm", "inch", EgtMsg(6546)}) ' Altra
    Public ReadOnly Property ScaleImageList As List(Of String)
       Get
          Return m_ScaleImageList
@@ -192,17 +193,6 @@ Public Class OptionWindowVM
       End Set
    End Property
 
-   'Public Property SelectedWaterJetGeomType As SceneSelModeOpt
-   '   Get
-   '      Return OptionModule.m_SelGeomWaterJetting
-   '   End Get
-   '   Set(value As SceneSelModeOpt)
-   '      If WritePrivateProfileString(S_MACH, K_SELGEOMWATERJETTING, CInt(value).ToString()) Then
-   '         OptionModule.m_SelGeomWaterJetting = value
-   '      End If
-   '   End Set
-   'End Property
-
    Public Property SelectedFiveAxGeomType As SceneSelModeOpt
       Get
          Return OptionModule.m_SelGeomFiveAxMilling
@@ -340,7 +330,7 @@ Public Class OptionWindowVM
             OptionModule.m_dDxfScaleFactor = dVal
             WritePrivateProfileString(S_IMPORT, K_DXFSCALE, DoubleToString(OptionModule.m_dDxfScaleFactor, 5))
             Map.refProjectVM.GetController().SetScaleForDxfImport(OptionModule.m_dDxfScaleFactor)
-            NotifyPropertyChanged("DxfScaleFactor")
+            NotifyPropertyChanged(NameOf(DxfScaleFactor))
          End If
       End Set
    End Property
@@ -355,7 +345,7 @@ Public Class OptionWindowVM
             OptionModule.m_dStlScaleFactor = dVal
             WritePrivateProfileString(S_IMPORT, K_STLSCALE, DoubleToString(OptionModule.m_dStlScaleFactor, 5))
             Map.refProjectVM.GetController().SetScaleForStlImport(OptionModule.m_dStlScaleFactor)
-            NotifyPropertyChanged("StlScaleFactor")
+            NotifyPropertyChanged(NameOf(StlScaleFactor))
          End If
       End Set
    End Property
@@ -400,7 +390,7 @@ Public Class OptionWindowVM
             OptionModule.m_dImgScaleFactor = dVal
             WritePrivateProfileString(S_IMPORT, K_IMGSCALE, DoubleToString(OptionModule.m_dImgScaleFactor, 5))
             Map.refProjectVM.GetController().SetScaleForImageImport(OptionModule.m_dImgScaleFactor)
-            NotifyPropertyChanged("ImageScaleFactor")
+            NotifyPropertyChanged(NameOf(ImageScaleFactor))
          End If
       End Set
    End Property
@@ -496,7 +486,7 @@ Public Class OptionWindowVM
          ElseIf OptionModule.m_nLenIsMM = 1 Then
             Return "mm"
          Else
-            Return EgtMsg(MSG_OPTIONPAGE + 45)
+            Return EgtMsg(6545)     ' Unità corrente
          End If
       End Get
       Set(value As String)
@@ -558,7 +548,7 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          m_DXFScaleEnable = value
-         NotifyPropertyChanged("DXFScaleEnable")
+         NotifyPropertyChanged(NameOf(DXFScaleEnable))
       End Set
    End Property
 
@@ -569,7 +559,7 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          m_STLScaleEnable = value
-         NotifyPropertyChanged("STLScaleEnable")
+         NotifyPropertyChanged(NameOf(STLScaleEnable))
       End Set
    End Property
 
@@ -602,7 +592,7 @@ Public Class OptionWindowVM
       End Get
       Set(value As Boolean)
          m_ImageScaleEnable = value
-         NotifyPropertyChanged("ImageScaleEnable")
+         NotifyPropertyChanged(NameOf(ImageScaleEnable))
       End Set
    End Property
 
@@ -614,7 +604,7 @@ Public Class OptionWindowVM
             Return ScaleDXFList(ScaleDXFList.IndexOf("inch"))
          Else
             DXFScaleEnable = True
-            Return ScaleDXFList(ScaleDXFList.IndexOf(EgtMsg(MSG_OPTIONPAGE + 46)))
+            Return ScaleDXFList(ScaleDXFList.IndexOf(EgtMsg(6546)))     ' Altra
          End If
       End Get
       Set(value As String)
@@ -639,7 +629,7 @@ Public Class OptionWindowVM
             Return ScaleSTLList(ScaleSTLList.IndexOf("inch"))
          Else
             STLScaleEnable = True
-            Return ScaleSTLList(ScaleSTLList.IndexOf(EgtMsg(MSG_OPTIONPAGE + 46)))
+            Return ScaleSTLList(ScaleSTLList.IndexOf(EgtMsg(6546)))     ' Altra
          End If
       End Get
       Set(value As String)
@@ -714,7 +704,7 @@ Public Class OptionWindowVM
             Return ScaleImageList(ScaleImageList.IndexOf("inch"))
          Else
             ImageScaleEnable = True
-            Return ScaleImageList(ScaleImageList.IndexOf(EgtMsg(MSG_OPTIONPAGE + 46)))
+            Return ScaleImageList(ScaleImageList.IndexOf(EgtMsg(6546)))    ' Altra
             ImageScaleEnable = True
          End If
       End Get
@@ -812,6 +802,65 @@ Public Class OptionWindowVM
       End Set
    End Property
 
+#Region "CUBETTO"
+
+   ' Lista Coordinate Cubetto 0 = Non Visualizzato, 1 = Top Right, 2 = Top Left, 3 = Bottom Left, 4 = Bottom Right
+   Private m_CoordinatesList As List(Of Integer) = New List(Of Integer)({0, 1, 2, 3, 4})
+   Public ReadOnly Property CoordinatesList As List(Of Integer)
+      Get
+         Return m_CoordinatesList
+      End Get
+   End Property
+
+   ' Coordinata selezionata
+   Private m_SelectedCoordinate As Integer
+   Public Property SelectedCoordinate As Integer
+      Get
+         Return m_SelectedCoordinate
+      End Get
+      Set(value As Integer)
+         m_SelectedCoordinate = value
+         NotifyPropertyChanged(NameOf(SelectedCoordinate))
+      End Set
+   End Property
+
+   ' Lato Cubetto compreso tra 20 e 200
+   Private m_SizeCube As Double
+   Public Property SizeCube As Double
+      Get
+         Return m_SizeCube
+      End Get
+      Set(value As Double)
+         m_SizeCube = value
+         NotifyPropertyChanged(NameOf(SizeCube))
+      End Set
+   End Property
+
+   ' Distanza X
+   Private m_DistX As Double
+   Public Property DistX As Double
+      Get
+         Return m_DistX
+      End Get
+      Set(value As Double)
+         m_DistX = value
+         NotifyPropertyChanged(NameOf(DistX))
+      End Set
+   End Property
+
+   ' Distanza Y
+   Private m_DistY As Double
+   Public Property DistY As Double
+      Get
+         Return m_DistY
+      End Get
+      Set(value As Double)
+         m_DistY = value
+         NotifyPropertyChanged(NameOf(DistY))
+      End Set
+   End Property
+
+#End Region    ' Cubetto
 
    ' Definizione comandi
    Private m_cmdCloseOptions As ICommand
@@ -825,43 +874,46 @@ Public Class OptionWindowVM
    Private m_cmdUpdateBeamCmd As ICommand
    Private m_cmdUpdateWallCmd As ICommand
 
+   ' Comando genera cubetto
+   Private m_cmdCreateCube As ICommand
+
 #Region "Messages"
 
    Public ReadOnly Property Title As String
       Get
-         Return EgtMsg(MSG_MAINWINDOW + 5)
+         Return EgtMsg(5005)     ' Opzioni
       End Get
    End Property
 
    Public ReadOnly Property GenericMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 14)
+         Return EgtMsg(6514)     ' Generale
       End Get
    End Property
 
    Public ReadOnly Property CurrentLanguageMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 1)
+         Return EgtMsg(6501)     ' Lingua corrente
       End Get
    End Property
    Public ReadOnly Property LanguageAdvertMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 2)
+         Return EgtMsg(6502)     ' La nuova lingua diventerà corrente dal prossimo avvio del programma.
       End Get
    End Property
    Public ReadOnly Property TopSceneBackgroundMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 10)
+         Return EgtMsg(6510)     ' Colore della vista in alto
       End Get
    End Property
    Public ReadOnly Property BotSceneBackgroundMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 11)
+         Return EgtMsg(6511)     ' Colore della vista in basso
       End Get
    End Property
    Public ReadOnly Property GridColorMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 17)
+         Return EgtMsg(6517)     ' Colore della griglia
       End Get
    End Property
    Public ReadOnly Property ThickLineMsg As String
@@ -882,57 +934,57 @@ Public Class OptionWindowVM
 
    Public ReadOnly Property CADMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 15)
+         Return EgtMsg(6515)     ' CAD
       End Get
    End Property
    Public ReadOnly Property GeometryToleranceMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 13)
+         Return EgtMsg(6513)     ' Tolleranza geometrica
       End Get
    End Property
    Public ReadOnly Property DefMaterialColorMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 12)
+         Return EgtMsg(6512)     ' Colore di default
       End Get
    End Property
    Public ReadOnly Property DimensionMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 44)   ' Quotatura
+         Return EgtMsg(6544)     ' Quotatura
       End Get
    End Property
    Public ReadOnly Property ExtLineLenMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 37)   ' Estensione linea
+         Return EgtMsg(6537)     ' Estensione linea
       End Get
    End Property
    Public ReadOnly Property ArrowLenMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 38)   ' Dimensione freccia
+         Return EgtMsg(6538)     ' Dimensione freccia
       End Get
    End Property
    Public ReadOnly Property TextDistMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 39)   ' Distanza messaggio
+         Return EgtMsg(6539)     ' Distanza messaggio
       End Get
    End Property
    Public ReadOnly Property LenIsMMMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 40)   ' Unità di misura
+         Return EgtMsg(6540)     ' Unità di misura
       End Get
    End Property
    Public ReadOnly Property DecDigitMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 41)   ' Numero dicmali
+         Return EgtMsg(6541)     ' Numero dicmali
       End Get
    End Property
    Public ReadOnly Property FontMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 42)   ' Caretteri
+         Return EgtMsg(6542)     ' Caretteri
       End Get
    End Property
    Public ReadOnly Property TextHeightMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 43)   ' Dimensione testo
+         Return EgtMsg(6543)     ' Dimensione testo
       End Get
    End Property
 
@@ -978,83 +1030,83 @@ Public Class OptionWindowVM
    End Property
    Public ReadOnly Property UnitScaleMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 47)   ' Unità di scala
+         Return EgtMsg(6547)     ' Unità di scala
       End Get
    End Property
    Public ReadOnly Property FactorScaleMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 48)   ' Fattore di scala
+         Return EgtMsg(6548)     ' Fattore di scala
       End Get
    End Property
    Public ReadOnly Property ImageMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 24)
+         Return EgtMsg(6524)     ' Immagine
       End Get
    End Property
    Public ReadOnly Property ImageWidthMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 25)
+         Return EgtMsg(6525)     ' Larghezza (pixel)
       End Get
    End Property
    Public ReadOnly Property ImageHeightMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 26)
+         Return EgtMsg(6526)     ' Altezza (pixel)
       End Get
    End Property
 
    Public ReadOnly Property CAMMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 16)
+         Return EgtMsg(6516)     ' CAM
       End Get
    End Property
    Public ReadOnly Property MachiningSelGeomMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 6)
+         Return EgtMsg(6506)     ' Geometria selezionabile
       End Get
    End Property
    Public ReadOnly Property GeomTypeMillingMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGSDBPAGE + 3)
+         Return EgtMsg(6203)     ' Fresatura
       End Get
    End Property
    Public ReadOnly Property GeomTypeDrillingMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGSDBPAGE + 1)
+         Return EgtMsg(6201)     ' Foratura
       End Get
    End Property
    Public ReadOnly Property GeomTypeSawingMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGSDBPAGE + 2)
+         Return EgtMsg(6202)     ' Taglio di lama
       End Get
    End Property
    Public ReadOnly Property GeomTypePocketingMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGSDBPAGE + 4)
+         Return EgtMsg(6204)     ' Svuotatura
       End Get
    End Property
    Public ReadOnly Property GeomTypeMortisingMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGSDBPAGE + 5)
+         Return EgtMsg(6205)     ' Mortasatura
       End Get
    End Property
    Public ReadOnly Property GeomTypeChiselingMsg As String
       Get
-         Return EgtMsg(MSG_MACHININGSDBPAGE + 9)
+         Return EgtMsg(6209)     ' Scalpellatura
       End Get
    End Property
    Public ReadOnly Property NewMachiningPosMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 7)
+         Return EgtMsg(6507)     ' Aggiungi la nuova lavorazione alla fine
       End Get
    End Property
    Public ReadOnly Property UseDispositionScriptMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 8)
+         Return EgtMsg(6508)     ' Usa script di disposizione
       End Get
    End Property
    Public ReadOnly Property AddMachineMsg As String
       Get
-         Return EgtMsg(MSG_OPTIONPAGE + 27)   ' Aggiungi macchina
+         Return EgtMsg(6527)     ' Aggiungi macchina
       End Get
    End Property
    Public ReadOnly Property ExportMachineMsg As String
@@ -1101,31 +1153,74 @@ Public Class OptionWindowVM
 
    Public ReadOnly Property GeomTypeGenMsg As String
       Get
-         Return EgtMsg(6208)
+         Return EgtMsg(6208)     ' Lav. generica
       End Get
    End Property
 
    Public ReadOnly Property GeomTypeSurFinishMsg As String
       Get
-         Return EgtMsg(6211)
+         Return EgtMsg(6211)     ' Finitura superfici
       End Get
    End Property
 
    Public ReadOnly Property GeomTypeWaterJetMsg As String
       Get
-         Return EgtMsg(6212)
+         Return EgtMsg(6212)     ' WaterJet
       End Get
    End Property
 
    Public ReadOnly Property GeomTypeFiveAxMsg As String
       Get
-         Return EgtMsg(31213)
+         Return EgtMsg(31213)    ' Lav. 5 assi
       End Get
    End Property
 
    Public ReadOnly Property GeomTypeSurRoughMsg As String
       Get
-         Return EgtMsg(31212)
+         Return EgtMsg(31212)    ' Sgrossatura superfici
+      End Get
+   End Property
+
+   ' Messaggi Cubetto
+   Public ReadOnly Property CubeMsg As String
+      Get
+         Return "Cubetto"
+      End Get
+   End Property
+
+   Public ReadOnly Property CubeInfoMsg As String
+      Get
+         Return "Info Cubetto"
+      End Get
+   End Property
+
+   Public ReadOnly Property CubeCoordinateMsg As String
+      Get
+         Return "Coordinate Cubetto"
+      End Get
+   End Property
+
+   Public ReadOnly Property SizeCubMsg As String
+      Get
+         Return "Size (Min 20 Max 200)"
+      End Get
+   End Property
+
+   Public ReadOnly Property DistXMsg As String
+      Get
+         Return "distX"
+      End Get
+   End Property
+
+   Public ReadOnly Property DistYMsg As String
+      Get
+         Return "distY"
+      End Get
+   End Property
+
+   Public ReadOnly Property CreateCubeMsg As String
+      Get
+         Return "Crea Cubetto"
       End Get
    End Property
 
@@ -1166,7 +1261,7 @@ Public Class OptionWindowVM
          OptionModule.m_TopSceneBackground = BackTopColor
          Map.refProjectVM.GetScene.SetViewBackground(OptionModule.m_TopSceneBackground, OptionModule.m_BotSceneBackground)
          WritePrivateProfileColor(S_SCENE, K_BACKTOP, OptionModule.m_TopSceneBackground)
-         NotifyPropertyChanged("TopSceneBackground")
+         NotifyPropertyChanged(NameOf(TopSceneBackground))
       End If
    End Sub
 
@@ -1198,7 +1293,7 @@ Public Class OptionWindowVM
          OptionModule.m_BotSceneBackground = BackBotColor
          Map.refProjectVM.GetScene.SetViewBackground(OptionModule.m_TopSceneBackground, OptionModule.m_BotSceneBackground)
          WritePrivateProfileColor(S_SCENE, K_BACKBOTTOM, OptionModule.m_BotSceneBackground)
-         NotifyPropertyChanged("BotSceneBackground")
+         NotifyPropertyChanged(NameOf(BotSceneBackground))
       End If
    End Sub
 
@@ -1234,7 +1329,7 @@ Public Class OptionWindowVM
          WritePrivateProfileColor(S_GRID, K_MINLNCOLOR, OptionModule.m_GridColor)
          WritePrivateProfileColor(S_GRID, K_MAJLNCOLOR, OptionModule.m_GridColor)
          EgtDraw()
-         NotifyPropertyChanged("GridColor")
+         NotifyPropertyChanged(NameOf(GridColor))
       End If
    End Sub
 
@@ -1269,7 +1364,7 @@ Public Class OptionWindowVM
          EgtDraw()
          Map.refManageLayerExpanderVM.UpdateHeaderColor(OptionModule.m_DefMaterialColor)
          Map.refManageLayerExpanderVM.LoadObjTree()
-         NotifyPropertyChanged("DefMaterialColor")
+         NotifyPropertyChanged(NameOf(DefMaterialColor))
       End If
    End Sub
 
@@ -1300,9 +1395,19 @@ Public Class OptionWindowVM
          .CheckFileExists = True,
          .ValidateNames = True
       }
+      'Dim LicDlg As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
+      '   .Title = "Apri",
+      '   .InitialDirectory = Path.GetFullPath(IniFile.m_sConfigDir),
+      '   .Filter = "Licences (.lic)|*.lic",
+      '   .CheckFileExists = True,
+      '   .ValidateNames = True,
+      '   .FileName = String.Empty
+      '}
       If LicDlg.ShowDialog() = True Then
+         'If LicDlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
          ' Recupero il direttorio del file
-         Dim sDir As String = Path.GetDirectoryName(LicDlg.FileName)
+         'Dim sDir As String = Path.GetDirectoryName(LicDlg.FileName)
+         Dim sDir As String = LicDlg.FileName
          ' Se il file non è già nel direttorio di configurazione lo copio
          If Not String.Equals(Path.GetFullPath(sDir), Path.GetFullPath(IniFile.m_sConfigDir), StringComparison.OrdinalIgnoreCase) Then
             Try
@@ -1343,7 +1448,16 @@ Public Class OptionWindowVM
          .CheckFileExists = True,
          .ValidateNames = True
       }
+      'Dim MachDlg As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
+      '   .Title = "Apri",
+      '   .InitialDirectory = Path.GetFullPath(IniFile.m_sConfigDir),
+      '   .Filter = "Machines (.zip)|*.zip",
+      '   .CheckFileExists = True,
+      '   .ValidateNames = True,
+      '   .FileName = String.Empty
+      '}
       If MachDlg.ShowDialog() <> True Then Return
+      'If MachDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return
       Dim sMachZip As String = MachDlg.FileName
       Dim sMachName As String = Path.GetFileNameWithoutExtension(Path.GetFileNameWithoutExtension(sMachZip))
       Dim sMachDir As String = Path.Combine(IniFile.m_sMachinesRoot, sMachName)
@@ -1361,8 +1475,9 @@ Public Class OptionWindowVM
       If Not My.Computer.FileSystem.FileExists(Path.Combine(sTempDir, sMachName, sMachName & ".ini")) Or
          Not My.Computer.FileSystem.FileExists(Path.Combine(sTempDir, sMachName, sMachName & ".mlde")) Then
          ' Il file {0} non contiene una macchina  -  Avviso
-         Dim sOut As String = String.Format(EgtMsg(MSG_OPTIONPAGE + 29), sMachZip)
+         Dim sOut As String = String.Format(EgtMsg(6529), sMachZip)
-         MessageBox.Show(sOut, EgtMsg(MSG_MESSAGEBOX + 2), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(sOut, EgtMsg(MSG_MESSAGEBOX + 2), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)  ' Avviso
          ' Rimuovo il direttorio temporaneo ed esco
          My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
@@ -1482,10 +1597,11 @@ Public Class OptionWindowVM
       Map.refMachinePanelVM.InsertMachine(sMachDir)
    End Sub
 
+
+
 #End Region ' AddMachine
 
 #Region "ExportMachine"
-
    ''' <summary>
    ''' Returns a command that export a new machining.
    ''' </summary>
@@ -1507,8 +1623,9 @@ Public Class OptionWindowVM
       EgtGetCurrMachineName(sCurrMachineName)
       ' Creo il dialog per scegliere dove salvare lo zip
       Dim sDirPath As String = String.Empty
-      Dim folderDialog As New Windows.Forms.FolderBrowserDialog
+      Dim folderDialog As New Windows.Forms.FolderBrowserDialog With {
-      folderDialog.Description = EgtMsg(6550)
+         .Description = EgtMsg(6550)      ' Seleziona la cartella in cui si desidera esportare la Macchina
+      }
       If folderDialog.ShowDialog <> Windows.Forms.DialogResult.OK Then
          Return
       End If
@@ -1541,7 +1658,8 @@ Public Class OptionWindowVM
       'La macchina "{0}" è stata esportata con successo.
       Dim sOk As String = String.Format(EgtMsg(6552), sCurrMachineName)
       EgtOutLog(sOk)
-      MessageBox.Show(sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
+      'MessageBox.Show(sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
+      EgtMessageBoxV.Show(Application.Current.MainWindow, sOk, EgtMsg(15003), MessageBoxButton.OK) ' Informazione
    End Sub
 
 #End Region ' ExportMachine
@@ -1576,7 +1694,16 @@ Public Class OptionWindowVM
          .CheckFileExists = True,
          .ValidateNames = True
       }
+      'Dim BeamDlg As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
+      '   .Title = "Apri",
+      '   .InitialDirectory = Path.GetFullPath(IniFile.m_sConfigDir),
+      '   .Filter = "Beam (.zip)|*.zip",
+      '   .CheckFileExists = True,
+      '   .ValidateNames = True,
+      '   .FileName = String.Empty
+      '}
       If BeamDlg.ShowDialog() <> True Then Return
+      'If BeamDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return
       Dim sBeamZip As String = BeamDlg.FileName
       ' Preparo direttorio temporaneo
       Dim sTempDir As String = Path.Combine(IniFile.m_sTempDir, "Beam")
@@ -1606,7 +1733,8 @@ Public Class OptionWindowVM
       If String.Compare(sExeVer, sNewMinExe) < 0 Then
          ' Il nuovo modulo "{0}" richiede un programma con versione minima {1}. - Avviso
          Dim sOut As String = String.Format(EgtMsg(6557), "Beam", sNewMinExe)
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)  ' Avviso
          ' Rimuovo il direttorio temporaneo ed esco
          My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
@@ -1649,7 +1777,6 @@ Public Class OptionWindowVM
 
 #End Region ' UpdateBeam
 
-
 #Region "UpdateWall"
    Public ReadOnly Property UpdateWall_Command() As ICommand
       Get
@@ -1659,7 +1786,6 @@ Public Class OptionWindowVM
          Return m_cmdUpdateWallCmd
       End Get
    End Property
-
    Public Sub UpdateWallCmd()
       ' Recupero la versione del programma in esecuzione
       Dim sExeVer As String = IniFile.GetProgramVersion()
@@ -1680,7 +1806,16 @@ Public Class OptionWindowVM
          .CheckFileExists = True,
          .ValidateNames = True
       }
+      'Dim WallDlg As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
+      '   .Title = "Apri",
+      '   .InitialDirectory = Path.GetFullPath(IniFile.m_sConfigDir),
+      '   .Filter = "Wall (.zip)|*.zip",
+      '   .CheckFileExists = True,
+      '   .ValidateNames = True,
+      '   .FileName = String.Empty
+      '}
       If WallDlg.ShowDialog() <> True Then Return
+      'If WallDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return
       Dim sWallZip As String = WallDlg.FileName
       ' Preparo direttorio temporaneo
       Dim sTempDir As String = Path.Combine(IniFile.m_sTempDir, "Wall")
@@ -1710,7 +1845,8 @@ Public Class OptionWindowVM
       If String.Compare(sExeVer, sNewMinExe) < 0 Then
          ' Il nuovo modulo "{0}" richiede un programma con versione minima {1}. - Avviso
          Dim sOut As String = String.Format(EgtMsg(6557), "Wall", sNewMinExe)
-         MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         'MessageBox.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)
+         EgtMessageBoxV.Show(Application.Current.MainWindow, sOut, EgtMsg(15002), MessageBoxButton.OK, MessageBoxImage.Warning)  ' Avviso
          ' Rimuovo il direttorio temporaneo ed esco
          My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
          Return
@@ -1751,10 +1887,11 @@ Public Class OptionWindowVM
       MessageBox.Show(Application.Current.MainWindow, sOk, EgtMsg(15003), MessageBoxButton.OK)
    End Sub
 
+
+
 #End Region ' UpdateWall
 
 #Region "CloseOptionsCommand"
-
    ''' <summary>
    ''' Returns a command that remove the current selected machining.
    ''' </summary>
@@ -1782,6 +1919,29 @@ Public Class OptionWindowVM
 
 #End Region ' CloseOptionsCommand
 
+#Region "CreateCubeCommand"
+
+   ''' <summary>
+   ''' Returns a command that remove the current selected machining.
+   ''' </summary>
+   Public ReadOnly Property CreateCube_Command() As ICommand
+      Get
+         If m_cmdCreateCube Is Nothing Then
+            m_cmdCreateCube = New RelayCommand(AddressOf CreateCubeCmd)
+         End If
+         Return m_cmdCreateCube
+      End Get
+   End Property
+
+   ''' <summary>
+   ''' Manage the MachiningDb closing.  This method is invoked by the CloseMachiningDbCommand.
+   ''' </summary>
+   Public Sub CreateCubeCmd()
+      ' Richiamo funzione per settare e generare il cubetto
+   End Sub
+
+#End Region ' CreateCubeCommand
+
 #End Region    ' COMMANDS
 
    Private Function SelectColor(Col As Color3d, ByRef NewCol As Color3d) As Boolean
@@ -1801,6 +1961,10 @@ Public Class OptionWindowVM
       ColorDlg.FullOpen = True
       ColorDlg.CustomColors = nCustomColors.ToArray()
       ColorDlg.Color = Col.ToColor()
+      'Dim ColorDlg As New EgtColorPickerV(Application.Current.MainWindow, New EgtColorPickerVM()) With {
+      '   .CustomColors = nCustomColors.ToArray(),
+      '   .Color = Col.ToColor()
+      '}
       ' Visualizzo dialogo
       If ColorDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Return False
       ' Recupero colore scelto
@@ -1823,11 +1987,11 @@ Public Class GeomTypeConverter
    Public Function Convert(value As Object, targetType As Type, parameter As Object, culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
       Select Case CInt(value)
          Case SceneSelModeOpt.PARTCURVES
-            Return EgtMsg(MSG_OPTIONPAGE + 3)
+            Return EgtMsg(6503)     ' Curve
          Case SceneSelModeOpt.PARTSURFACES
-            Return EgtMsg(MSG_OPTIONPAGE + 4)
+            Return EgtMsg(6504)     ' Superfici
          Case Else
-            Return EgtMsg(MSG_OPTIONPAGE + 5)
+            Return EgtMsg(6505)     ' Curve e Superfici
       End Select
    End Function