-modifica a stile tooltip in dizionario

- aggiunta impostazione tolleranza di importazione da INI ( [Import] AdvToler=XXX) con default 0.1.

Icarus/AboutBoxWindow/AboutBoxV.xaml.vb

@@ -35,7 +35,7 @@ Public Class AboutBoxV
                " Ulv" & Map.refMainWindowVM.MainWindowM.nUserLevel.ToString() &
                " Dbg" & Map.refMainWindowVM.MainWindowM.DebugLevel().ToString() & Environment.NewLine
       sInfo &= sKey & " - " & sKlev & " - " & sOpts & sLeftDays & Environment.NewLine
-      sInfo &= "Maintenance plane " & sAssStatus & Environment.NewLine
+      sInfo &= "Maintenance plan " & sAssStatus & Environment.NewLine
       sInfo &= "DataRoot " & Map.refMainWindowVM.MainWindowM.sDataRoot & Environment.NewLine
       sInfo &= "MachinesRoot " & Map.refMainWindowVM.MainWindowM.sMachinesRoot & Environment.NewLine
       Dim sOpSys As String = String.Empty

Icarus/AttachedProperties/TreeViewItemHelper.vb

@@ -72,13 +72,15 @@ Public Module TreeViewItemHelper
       Dim treeViewItem As TreeViewItem = VisualUpwardSearch(Of TreeViewItem)(TryCast(e.OriginalSource, DependencyObject))
       If treeViewItem IsNot Nothing Then
          treeViewItem.IsSelected = True
-         Dim Tree As TreeView = VisualUpwardSearch(Of TreeView)(TryCast(treeViewItem, DependencyObject))
-         If Not IsNothing(Tree) Then
-            Dim myTransform As GeneralTransform = treeViewItem.TransformToAncestor(Tree)
+         If Not IsNothing(treeViewItem.ContextMenu) Then
+            Dim Tree As TreeView = VisualUpwardSearch(Of TreeView)(TryCast(treeViewItem, DependencyObject))
+            If Not IsNothing(Tree) Then
+               Dim myTransform As GeneralTransform = treeViewItem.TransformToAncestor(Tree)
 
-            Dim myOffset As Point = myTransform.Transform(New Point(0, 0))
-            treeViewItem.ContextMenu.HorizontalOffset = -treeViewItem.ActualWidth + (-myOffset.X) + Tree.ActualWidth - 3
-            treeViewItem.ContextMenu.VerticalOffset = -3
+               Dim myOffset As Point = myTransform.Transform(New Point(0, 0))
+               treeViewItem.ContextMenu.HorizontalOffset = -treeViewItem.ActualWidth + (-myOffset.X) + Tree.ActualWidth - 3
+               treeViewItem.ContextMenu.VerticalOffset = -3
+            End If
          End If
          e.Handled = True
       End If

Icarus/ChooseMachineWnd/ChooseMachineWndVM.vb

@@ -1,6 +1,4 @@
 Imports System.Collections.ObjectModel
-Imports System.IO
-Imports EgtUILib
 Imports EgtWPFLib5
 
 Public Class ChooseMachineWndVM

Icarus/Constants/Const3dPrint.vb

@@ -94,6 +94,7 @@
    Public Const MAC_INNERSHELLWIDTH = "InnerStrandW"
    Public Const MAC_OFFSETLEADPOINT = "OffsetLeadPoint"
    Public Const MAC_LEADIN = "LeadIn"
+   Public Const MAC_SINGLELEADIN = "SingleLeadIn"
    Public Const MAC_LEADINTANGDIST = "LeadInTangDist"
    Public Const MAC_LEADINORTHODIST = "LeadInOrthoDist"
    Public Const MAC_LEADOUT = "LeadOut"
@@ -103,6 +104,7 @@
    Public Const MAC_COASTINGFEEDPU = "CoastingFeedPu"
    Public Const MAC_WIPELEN = "WipeLen"
    Public Const MAC_WIPEFEEDPU = "WipeFeedPu"
+   Public Const MAC_SPIRALVASELEN = "SpiralVaseLen"
    Public Const MAC_WIPEDIR = "WipeDir"
    Public Const MAC_FLOORCOUNT = "FloorCount"
    Public Const MAC_G0FEED = "G0Feed"

Icarus/Constants/ConstIni.vb

@@ -104,6 +104,7 @@ Public Module ConstIni
    Public Const K_STLSCALE As String = "StlScale"
    Public Const K_CNCFLAG As String = "CncFlag"
    Public Const K_ADVFLAG As String = "AdvFlag"
+   Public Const K_ADVTOLER As String = "AdvToler"
 
    'Public Const S_SIMUL As String = "Simul"
    'Public Const K_SLIDERX As String = "SliderX"
@@ -133,4 +134,7 @@ Public Module ConstIni
    Public Const S_MRUFILES As String = "MruFiles"
    Public Const S_MRUIMPORTFILES As String = "MruImportFiles"
 
+   Public Const S_TEMPLETESEL As String = "TempleteSel"
+   Public Const K_CURRTEMPLETESEL As String = "CurrTempleteSel"
+
 End Module

Icarus/Constants/ConstMachDataIni.vb

@@ -14,6 +14,7 @@
 Public Module ConstMachDataIni
 
    Public Const MACHDATA_INI_FILE_NAME As String = "Data.ini"
+   Public Const TOOLTIP_INI_FILE_NAME As String = "TooltipData.ini"
 
    Public Const S_TABLE As String = "Table"
    Public Const K_DIMX As String = "DimX"
@@ -26,6 +27,7 @@ Public Module ConstMachDataIni
    Public Const S_45DEGX As String = "45DegX"
    Public Const S_45DEGY As String = "45DegY"
    Public Const S_HORIZONTAL As String = "Horizontal"
+   Public Const S_MULTIPLANAR As String = "MultiPlanar"
    Public Const K_MINX As String = "MinX"
    Public Const K_MAXX As String = "MaxX"
    Public Const K_MINY As String = "MinY"

Icarus/Constants/ConstMachIni.vb

@@ -1,6 +1,7 @@
 Public Module ConstMachIni
 
-   Public Const MACH_INI_FILE_NAME As String = "MachData.ini"
+   Public Const S_GENERAL As String = "General"
+   Public Const K_GEN_STD_VIEW As String = "StandardView"
 
    Public Const S_MACHINING As String = "Machining"
    Public Const K_MACH_INITSCRIPT As String = "InitScript"
@@ -8,12 +9,23 @@
 
    Public Const S_MACH_PRINTING3D As String = "3dPrinting"
    Public Const K_SLICINGTYPE As String = "SlicingType"
+   Public Const K_NEWSLICINGTYPE As String = "NewSlicingType"
    Public Const K_SPEED_MIN As String = "SpeedMin"
    Public Const K_SPEED_MAX As String = "SpeedMax"
    Public Const K_MAX_HEIGHT As String = "HMax"
 
    Public Const S_MINMAX As String = "MinMax"
 
+#Region "ToolTip"
+
+   Public Const K_TITLE As String = "Title"
+   Public Const K_DESCRIPTION As String = "Description"
+   Public Const K_FIRST_ICON As String = "Icon_First"
+   Public Const K_SECOND_ICON As String = "Icon_Second"
+   Public Const K_ORIENTATION_ICON As String = "IconOrientation"
+
+#End Region
+
    Public Const S_VMILL As String = "VMill"
    Public Const K_VM_ENABLE As String = "Enable"
 

Icarus/CurrMachiningPanel/CurrMachining.vb

@@ -106,12 +106,12 @@ Public Class CurrMachining
       Else
          m_nIndex = 0
       End If
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.GENERAL, nPartId, m_nIndex, False))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.LINK, nPartId, m_nIndex, False))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.RIBS, nPartId, m_nIndex, False))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.SHELL_NUMBER, nPartId, m_nIndex, False))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.AUX_SOLID, nPartId, m_nIndex, False))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.INFILL, nPartId, m_nIndex, False))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.GENERAL, nPartId, m_nIndex, False, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.LINK, nPartId, m_nIndex, False, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.RIBS, nPartId, m_nIndex, False, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.SHELL_NUMBER, nPartId, m_nIndex, False, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.AUX_SOLID, nPartId, m_nIndex, False, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.INFILL, nPartId, m_nIndex, False, Me))
       For Each Cathegory In m_CathegoryList
          For Each MachiningParam In Cathegory.MachiningParamList
             AddHandler MachiningParam.PropertyChanged, AddressOf OnMachiningParamPropertyChanged
@@ -124,12 +124,12 @@ Public Class CurrMachining
       ' ricavo lavorazione da lista
       Dim CurrMachiningInDb As MachiningIndex = Map.refTopPanelVM.MachiningList.FirstOrDefault(Function(x) x.nIndex = nIndex)
       m_sCurrGUID = CurrMachiningInDb.sGUID
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.GENERAL, nPartId, m_nIndex, True))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.LINK, nPartId, m_nIndex, True))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.RIBS, nPartId, m_nIndex, True))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.SHELL_NUMBER, nPartId, m_nIndex, True))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.AUX_SOLID, nPartId, m_nIndex, True))
-      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.INFILL, nPartId, m_nIndex, True))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.GENERAL, nPartId, m_nIndex, True, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.LINK, nPartId, m_nIndex, True, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.RIBS, nPartId, m_nIndex, True, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.SHELL_NUMBER, nPartId, m_nIndex, True, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.AUX_SOLID, nPartId, m_nIndex, True, Me))
+      m_CathegoryList.Add(New CurrMachiningCathegory(MachiningCathegory.Cathegories.INFILL, nPartId, m_nIndex, True, Me))
       For Each Cathegory In m_CathegoryList
          For Each MachiningParam In Cathegory.MachiningParamList
             AddHandler MachiningParam.PropertyChanged, AddressOf OnMachiningParamPropertyChanged
@@ -196,8 +196,9 @@ End Class
 Public Class CurrMachiningCathegory
    Inherits MachiningCathegory
 
-   Sub New(Type As Cathegories, nPartId As Integer, nIndex As Integer, bForceFromDb As Boolean)
+   Sub New(Type As Cathegories, nPartId As Integer, nIndex As Integer, bForceFromDb As Boolean, Machining As Machining)
       m_Type = Type
+      m_Machining = Machining
       Select Case m_Type
          Case Cathegories.GENERAL
             m_sName = "General"
@@ -230,6 +231,7 @@ Public Class CurrMachiningCathegory
                                                                 New CurrComboMachiningParam(MachiningParam.Params.LINKTYPE, nPartId, nIndex, bForceFromDb, Me),
                                                                 New CurrNumericMachiningParam(MachiningParam.Params.LINKPARAM, nPartId, nIndex, bForceFromDb, Me),
                                                                 New CurrComboMachiningParam(MachiningParam.Params.LEADIN, nPartId, nIndex, bForceFromDb, Me),
+                                                                New CurrCheckMachiningParam(MachiningParam.Params.SINGLELEADIN, nPartId, nIndex, bForceFromDb, Me),
                                                                 New CurrNumericMachiningParam(MachiningParam.Params.LEADINTANGDIST, nPartId, nIndex, bForceFromDb, Me),
                                                                 New CurrNumericMachiningParam(MachiningParam.Params.LEADINORTHODIST, nPartId, nIndex, bForceFromDb, Me),
                                                                 New CurrComboMachiningParam(MachiningParam.Params.LEADOUT, nPartId, nIndex, bForceFromDb, Me),
@@ -238,7 +240,8 @@ Public Class CurrMachiningCathegory
                                                                 New CurrNumericMachiningParam(MachiningParam.Params.COASTINGLEN, nPartId, nIndex, bForceFromDb, Me),
                                                                 New CurrNumericMachiningParam(MachiningParam.Params.COASTINGFEED_PC, nPartId, nIndex, bForceFromDb, Me),
                                                                 New CurrNumericMachiningParam(MachiningParam.Params.WIPELEN, nPartId, nIndex, bForceFromDb, Me),
-                                                                New CurrNumericMachiningParam(MachiningParam.Params.WIPEFEED_PC, nPartId, nIndex, bForceFromDb, Me)})
+                                                                New CurrNumericMachiningParam(MachiningParam.Params.WIPEFEED_PC, nPartId, nIndex, bForceFromDb, Me),
+                                                                New CurrNumericMachiningParam(MachiningParam.Params.SPIRALVASELEN, nPartId, nIndex, bForceFromDb, Me)})
                                                                 'New CurrNumericMachiningParam(MachiningParam.Params.WIPEDIR, nPartId, nIndex, bForceFromDb, Me)})
          Case Cathegories.RIBS
             m_sName = "Ribs"
@@ -315,6 +318,11 @@ Public Class CurrMachiningCathegory
                Dim MachiningParam As ComboMachiningParam = MachiningParamList.FirstOrDefault(Function(z) z.Type = Param)
                MachiningParam.ManageDependencyParam()
             Next
+            For Each Param In {MachiningParam.Params.SPIRALVASE}
+               Dim GeneralCathegory As MachiningCathegory = Machining.CathegoryList.FirstOrDefault(Function(z) z.Type = Cathegories.GENERAL)
+               Dim MachiningParam As CheckMachiningParam = GeneralCathegory.MachiningParamList.FirstOrDefault(Function(z) z.Type = Param)
+               MachiningParam.ManageDependencyParam(Me)
+            Next
          Case Cathegories.RIBS
             For Each Param In {MachiningParam.Params.RIBSTYPE}
                Dim MachiningParam As ComboMachiningParam = MachiningParamList.FirstOrDefault(Function(z) z.Type = Param)
@@ -360,7 +368,7 @@ Public Class CurrNumericMachiningParam
 
    Public Overrides Property sValue As String
       Get
-         Return If(m_bIsLen, LenToString(m_dValue, 1), DoubleToString(m_dValue, 2))
+         Return If(m_bIsLen, LenToString(m_dValue, 2), DoubleToString(m_dValue, 2))
       End Get
       Set(value As String)
          Dim dTempValue As Double = 0
@@ -473,6 +481,9 @@ Public Class CurrNumericMachiningParam
          Case Params.WIPEFEED_PC
             bReadFromPart = EgtGetInfo(nPartId, MAC_WIPEFEEDPU, m_dValue)
             m_bIsLen = False
+         Case Params.SPIRALVASELEN
+            bReadFromPart = EgtGetInfo(nPartId, MAC_SPIRALVASELEN, m_dValue)
+            m_bIsLen = True
          'Case Params.WIPEDIR
          '   bReadFromPart = EgtGetInfo(nPartId, MAC_WIPEDIR, m_dValue)
          '   m_bIsLen = True
@@ -636,7 +647,7 @@ Public Class CurrNumericMachiningParam
                m_DbParam = DbMachining.CathegoryList.FirstOrDefault(Function(y) y.Type = MachiningCathegory.Cathegories.GENERAL).MachiningParamList.FirstOrDefault(Function(z) z.Type = m_Type)
             Case Params.LINKPARAM, Params.INNERSHELLWIDTH, Params.OFFSETLEADPOINT, Params.LEADINTANGDIST, Params.LEADINORTHODIST,
                  Params.LEADOUTTANGDIST, Params.LEADOUTORTHODIST, Params.COASTINGLEN, Params.COASTINGFEED_PC,
-                 Params.WIPELEN, Params.WIPEFEED_PC  ' Params.WIPEDIR
+                 Params.WIPELEN, Params.WIPEFEED_PC, Params.SPIRALVASELEN, Params.SINGLELEADIN  ' Params.WIPEDIR
                m_DbParam = DbMachining.CathegoryList.FirstOrDefault(Function(y) y.Type = MachiningCathegory.Cathegories.LINK).MachiningParamList.FirstOrDefault(Function(z) z.Type = m_Type)
             Case Params.RIBSSTRANDWIDTH, Params.RIBSOVERLAP, Params.RIBSSTRANDOVERLAP, Params.RIBSSTRANDCOUNT, Params.RIBSLINK, Params.RIBSLINKFILLET, Params.RIBSMERGEWITHSHELL, Params.RIBSINVERTMERGEDSHELLMAINLINK, Params.RIBSINVERTORDER, Params.RIBSINVERTDIRECTION,
                  Params.RIBSLEADININVERT, Params.RIBSLEADINLEN, Params.RIBSLEADOUTINVERT, Params.RIBSLEADOUTLEN, Params.RIBSLEADOUTCOASTING,
@@ -711,6 +722,8 @@ Public Class CurrNumericMachiningParam
             EgtSetInfo(nPartId, MAC_WIPELEN, sWriteValue)
          Case Params.WIPEFEED_PC
             EgtSetInfo(nPartId, MAC_WIPEFEEDPU, sWriteValue)
+         Case Params.SPIRALVASELEN
+            EgtSetInfo(nPartId, MAC_SPIRALVASELEN, sWriteValue)
          'Case Params.WIPEDIR
          '   EgtSetInfo(nPartId, MAC_WIPEDIR, sWriteValue)
          Case Params.FLOORCOUNT
@@ -954,17 +967,15 @@ Public Class CurrComboMachiningParam
       Dim bReadFromPart As Boolean = False
       Select Case Type
          Case Params.SLICINGTYPE
-            Dim nSlicingType As Integer = GetPrivateProfileInt(S_MACH_PRINTING3D, K_SLICINGTYPE, 0, CurrentMachine.sMachIniFile)
-            m_ValueList = New List(Of IdNameStruct)({New IdNameStruct(Machining.MPAR_SLICINGTYPE.VERTICAL, "Vertical")})
-            If nSlicingType >= 1 Then
-               m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45, "45deg X"))
-               If nSlicingType >= 2 Then
-                  m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45_Y, "45deg Y"))
-                  If nSlicingType >= 3 Then
-                     m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal"))
-                  End If
-               End If
-            End If
+            Dim nNewSlicingType As Integer = CurrentMachine.GetSlicingType()
+            m_ValueList = New List(Of IdNameStruct)
+            If (nNewSlicingType And 1) <> 0  Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.VERTICAL, "Vertical"))
+            If (nNewSlicingType And 2) <> 0  Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45, "45deg X"))
+            If (nNewSlicingType And 4) <> 0  Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45_Y, "45deg Y"))
+            If (nNewSlicingType And 8) <> 0  Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal"))
+            If (nNewSlicingType And 16) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR, "MultiPlanar"))
+            If (nNewSlicingType And 32) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR_DEG45, "MultiPlanar 45deg"))
+            If (nNewSlicingType And 64) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR_HORIZ, "MultiPlanar Horiz"))
             Dim nSelValue As Integer = 0
             bReadFromPart = EgtGetInfo(nPartId, MAC_SLICINGTYPE, nSelValue)
             If Not bReadFromPart Then
@@ -1176,6 +1187,7 @@ Public Class CurrCheckMachiningParam
          m_bValue = value
          NotifyPropertyChanged(NameOf(bValue))
          NotifyPropertyChanged(NameOf(bIsModifiedFromDb))
+         ManageDependencyParam()
       End Set
    End Property
 
@@ -1201,6 +1213,8 @@ Public Class CurrCheckMachiningParam
       Select Case Type
          Case Params.SPIRALVASE
             bReadFromPart = EgtGetInfo(nPartId, MAC_SPIRALVASE, m_bValue)
+         Case Params.SINGLELEADIN
+            bReadFromPart = EgtGetInfo(nPartId, MAC_SINGLELEADIN, m_bValue)
          Case Params.RIBSLINK
             bReadFromPart = EgtGetInfo(nPartId, MAC_RIBSLINK, m_bValue)
          Case Params.RIBSMERGEWITHSHELL
@@ -1230,6 +1244,8 @@ Public Class CurrCheckMachiningParam
          Select Case Type
             Case Params.SPIRALVASE
                m_DbParam = DbMachining.CathegoryList.FirstOrDefault(Function(y) y.Type = MachiningCathegory.Cathegories.GENERAL).MachiningParamList.FirstOrDefault(Function(z) z.Type = m_Type)
+            Case Params.SINGLELEADIN
+               m_DbParam = DbMachining.CathegoryList.FirstOrDefault(Function(y) y.Type = MachiningCathegory.Cathegories.LINK).MachiningParamList.FirstOrDefault(Function(z) z.Type = m_Type)
             Case Params.RIBSLINK, Params.RIBSMERGEWITHSHELL, Params.RIBSINVERTMERGEDSHELLMAINLINK, Params.RIBSINVERTORDER, Params.RIBSINVERTDIRECTION, Params.RIBSINVERTSTRANDORDER, Params.RIBSLEADININVERT, Params.RIBSLEADOUTINVERT, Params.RIBSLIMITUNBOUNDEDWITHSOLID
                m_DbParam = DbMachining.CathegoryList.FirstOrDefault(Function(y) y.Type = MachiningCathegory.Cathegories.RIBS).MachiningParamList.FirstOrDefault(Function(z) z.Type = m_Type)
             Case Params.AUXSOLIDSINFILLLINK
@@ -1248,6 +1264,8 @@ Public Class CurrCheckMachiningParam
       Select Case Type
          Case Params.SPIRALVASE
             EgtSetInfo(nPartId, MAC_SPIRALVASE, If(m_bValue, 1, 0))
+         Case Params.SINGLELEADIN
+            EgtSetInfo(nPartId, MAC_SINGLELEADIN, If(m_bValue, 1, 0))
          Case Params.RIBSLINK
             EgtSetInfo(nPartId, MAC_RIBSLINK, If(m_bValue, 1, 0))
          Case Params.RIBSMERGEWITHSHELL

Icarus/CurrMachiningPanel/CurrMachiningPanelV.xaml

@@ -57,6 +57,7 @@
                                     <StackPanel Orientation="Horizontal">
                                        <TextBlock Text="{Binding sName, Mode=OneWay}"
                                                   Margin="0,0,2.5,0"
+                                                  ToolTip="{StaticResource MachiningParam_Tooltip}"
                                                   Style="{StaticResource ParameterList_TextBlock}"/>
                                        <TextBlock Text=" (BETA)"
                                                   Margin="0,0,2.5,0"
@@ -89,7 +90,9 @@
                                     <StackPanel Orientation="Horizontal">
                                        <TextBlock Text="{Binding sName, Mode=OneWay}"
                                                   Margin="0,0,2.5,0"
-                                                  Style="{StaticResource ParameterList_TextBlock}"/>
+                                                  ToolTip="{StaticResource MachiningParam_Tooltip}"
+                                                  Style="{StaticResource ParameterList_TextBlock}">
+                                    </TextBlock>
                                        <TextBlock Text=" (BETA)"
                                                   Margin="0,0,2.5,0"
                                                   Foreground="Red"
@@ -124,6 +127,7 @@
                                     <StackPanel Orientation="Horizontal">
                                        <TextBlock Text="{Binding sName, Mode=OneWay}"
                                                   Margin="0,0,2.5,0"
+                                                  ToolTip="{StaticResource MachiningParam_Tooltip}"
                                                   Style="{StaticResource ParameterList_TextBlock}"/>
                                        <TextBlock Text=" (BETA)"
                                                   Margin="0,0,2.5,0"
@@ -156,6 +160,7 @@
                                     </Grid.ColumnDefinitions>
                                     <TextBlock Text="{Binding sName}"
                                                Margin="0,0,2.5,0"
+                                               ToolTip="{StaticResource MachiningParam_Tooltip}"
                                                Style="{StaticResource ParameterList_TextBlock}"/>
                                     <CheckBox Grid.Column="1"
                                               IsChecked="{Binding bValue}"
@@ -181,6 +186,7 @@
                                     </Grid.ColumnDefinitions>
                                     <TextBlock Text="{Binding sName}"
                                                Margin="0,0,2.5,0"
+                                               ToolTip="{StaticResource MachiningParam_Tooltip}"
                                                Style="{StaticResource ParameterList_TextBlock}"/>
                                     <ListBox Grid.Column="1"
                                              ItemsSource="{Binding ValueList}"

Icarus/CurrMachiningPanel/CurrMachiningPanelVM.vb

@@ -140,7 +140,7 @@ Public Class CurrMachiningPanelVM
          WriteMachiningParam(nIndex, MAC_GUID, sNewMachGUID.ToString())
          WriteMachiningParam(nIndex, MAC_NAME, SaveInDbWndVM.sName)
          ' creo categoria materiali con attivo materiale corrente
-         Dim MaterialCathegory As New MachiningCathegory(MachiningCathegory.Cathegories.MATERIALS, 0)
+         Dim MaterialCathegory As New MachiningCathegory(MachiningCathegory.Cathegories.MATERIALS, 0, m_CurrMachining)
          Dim SelMaterialParam As MaterialMachiningParam = MaterialCathegory.MachiningParamList.FirstOrDefault(Function(x As MaterialMachiningParam) x.sGUID = Map.refTopPanelVM.SelMaterial.sGUID)
          If Not IsNothing(SelMaterialParam) Then
             SelMaterialParam.bValue = True

Icarus/EgtColorPicker/EgtColorPickerV.xaml

@@ -0,0 +1,324 @@
+<EgtWPFLib5:EgtMainWindow 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}"
+        SizeToContent="WidthAndHeight"
+        WindowStartupLocation="CenterOwner"
+        Style="{StaticResource Dialog_Window}">
+
+   <Grid Margin="5,5,5,0">
+      <Grid.RowDefinitions>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+         <RowDefinition Height="Auto"/>
+      </Grid.RowDefinitions>
+      <Grid>
+         <Grid.ColumnDefinitions>
+            <ColumnDefinition Width="Auto"/>
+            <ColumnDefinition Width="Auto"/>
+         </Grid.ColumnDefinitions>
+         <Grid Margin="5,5,5,0">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="Auto"/>
+               <RowDefinition Height="Auto"/>
+               <RowDefinition Height="Auto"/>
+               <RowDefinition Height="Auto"/>
+            </Grid.RowDefinitions>
+            <TextBlock Grid.Row="0" 
+                       Text="{Binding BasicColor_Msg}"
+                       Margin="5,0,5,0"
+                       Style="{StaticResource DialogWindow_TextBlock}"/>
+            <ListBox Grid.Row="1" 
+                     ItemsSource="{Binding BasicColors}"
+                     SelectedItem="{Binding SelColor}"
+                     HorizontalAlignment="Center">
+               <ListBox.ItemsPanel>
+                  <ItemsPanelTemplate>
+                     <UniformGrid Columns="8"/>
+                  </ItemsPanelTemplate>
+               </ListBox.ItemsPanel>
+               <ListBox.ItemTemplate>
+                  <DataTemplate>
+                     <Rectangle Width="20"
+                                Height="20"
+                                Margin="4"
+                                Stroke="Black" 
+                                StrokeThickness="0.5"
+                                Fill="{Binding Fill}"/>
+                  </DataTemplate>
+               </ListBox.ItemTemplate>
+            </ListBox>
+            <TextBlock Grid.Row="2" 
+                       Text="{Binding CustomColor_Msg}"
+                       Margin="5,0,5,0"
+                       Style="{StaticResource DialogWindow_TextBlock}"/>
+            <ListBox Grid.Row="3"
+                     Margin="5,0,0,0"
+                     ItemsSource="{Binding CustomColors}"
+                     SelectedItem="{Binding SelCustomColor}"
+                     HorizontalAlignment="Center">
+               <ListBox.ItemsPanel>
+                  <ItemsPanelTemplate>
+                     <UniformGrid Columns="8"/>
+                  </ItemsPanelTemplate>
+               </ListBox.ItemsPanel>
+               <ListBox.ItemTemplate>
+                  <DataTemplate>
+                     <Rectangle Width="20"
+                                Height="20"
+                                Margin="4"
+                                Stroke="Black" 
+                                StrokeThickness="0.5"
+                                Fill="{Binding Fill}"/>
+                  </DataTemplate>
+               </ListBox.ItemTemplate>
+            </ListBox>
+         </Grid>
+         <Grid Grid.Column="1">
+            <Grid.RowDefinitions>
+               <RowDefinition Height="1*" />
+               <RowDefinition Height="Auto" />
+            </Grid.RowDefinitions>
+            <Grid>
+               <Grid.ColumnDefinitions>
+                  <ColumnDefinition Width="1*"/>
+                  <ColumnDefinition Width="Auto"/>
+               </Grid.ColumnDefinitions>
+               <Grid x:Name="CanvasGrid"
+                     VerticalAlignment="Stretch"
+                     HorizontalAlignment="Stretch"
+                     Margin="5,10,5,0">
+                  <Canvas x:Name="MyCanvas"
+                          MouseDown="ColorRectangle_MouseDown"
+                          HorizontalAlignment="Left"
+                          VerticalAlignment="Top"
+                          Width="260"
+                          Height="{Binding ActualHeight, ElementName=CanvasGrid}">
+                     <Rectangle Grid.Column="0"                    
+                                Width="{Binding ActualWidth, ElementName=MyCanvas}"
+                                Height="{Binding ActualHeight, ElementName=MyCanvas}"
+                                Stroke="Black" 
+                                StrokeThickness="0.5"
+                                IsEnabled="True">
+                        <Rectangle.Fill>
+                           <LinearGradientBrush StartPoint="0, 0.5" EndPoint="1.6, 0.5" >
+                              <GradientStop Color="Red" Offset="0" />
+                              <GradientStop Color="Yellow" Offset="0.1" />
+                              <GradientStop Color="Lime" Offset="0.2" />
+                              <GradientStop Color="Cyan" Offset="0.3" />
+                              <GradientStop Color="Blue" Offset="0.4" />
+                              <GradientStop Color="Purple" Offset="0.5" />
+                              <GradientStop Color="Red" Offset="0.6" />
+                           </LinearGradientBrush>
+                        </Rectangle.Fill>
+                     </Rectangle>
+                     <Rectangle Grid.Column="0"
+                                Width="{Binding ActualWidth, ElementName=MyCanvas}"
+                                Height="{Binding ActualHeight, ElementName=MyCanvas}"
+                                Stroke="Black" 
+                                StrokeThickness="0.5"
+                                IsEnabled="True">
+                        <Rectangle.Fill>
+                           <LinearGradientBrush StartPoint="0.5, 0" EndPoint="0.5, 1" >
+                              <GradientStop Color="#00ffffff" Offset="0" />
+                              <GradientStop Color="Gray" Offset="1" />
+                           </LinearGradientBrush>
+                        </Rectangle.Fill>
+                     </Rectangle>
+                     <Ellipse x:Name="Ellipse" 
+                              Stroke="Black" 
+                              StrokeThickness="1"
+                              Width="15" 
+                              Height="15"/>
+                  </Canvas>
+               </Grid>
+               <Grid x:Name="CanvasGridL"
+                     VerticalAlignment="Stretch"
+                     HorizontalAlignment="Stretch"
+                     Grid.Column="1"
+                     Margin="5,10,10,0">
+                  <Canvas x:Name="MyCanvasL"
+                          MouseMove="Luminosity_MouseMove"
+                          MouseDown="Luminosity_MouseDown"
+                          HorizontalAlignment="Right"
+                          VerticalAlignment="Top"
+                          Height="{Binding ActualHeight, ElementName=CanvasGridL}"
+                          Width="20">
+                     <!--<Rectangle x:Name="LRect"
+                                Grid.Column="1"
+                                Width="20"
+                                Height="{Binding ActualHeight, ElementName=MyCanvasL}"  
+                                Stroke="Black" 
+                                StrokeThickness="0.5"
+                                Fill="{Binding Luminosity_Fill}"/>-->
+                     <Rectangle Grid.Column="1"
+                                Width="20"
+                                Height="{Binding ActualHeight, ElementName=MyCanvasL}"
+                                Stroke="Black" 
+                                StrokeThickness="0.5">
+                        <Rectangle.Fill>
+                           <LinearGradientBrush StartPoint="0.5, 0" EndPoint="0.5, 1" >
+                              <GradientStop Color="White" Offset="0" />
+                              <GradientStop x:Name="LightnessColor" Offset="0.5"/>
+                              <GradientStop Color="Black" Offset="1" />
+                           </LinearGradientBrush>
+                        </Rectangle.Fill>
+                     </Rectangle>
+                     <Path x:Name="Arrow"
+                           Grid.Column="1"
+                           Data="M0,0 l4,4 l0,2 l-4,-4 l-4,4 l0,-2 z "
+                           Canvas.Left="0" 
+                           Canvas.Top="10"
+                           Stroke="Black"
+                           Fill="Black"
+                           StrokeThickness="1">
+                           <!--Data="M13.5,10.697 l-3.497-3.6,-3.497,3.6 L6.494,8.328 l3.503-3.631 l3.48,3.592 L13.494,10.697z"-->
+                        <Path.RenderTransform>
+                           <RotateTransform Angle="270" />
+                        </Path.RenderTransform>
+                     </Path>
+                  </Canvas>
+               </Grid>
+            </Grid>
+            <Grid Grid.Row="1" >
+               <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,5,0,0"
+                          Content="{Binding AddCColor_Msg}"
+                          Command="{Binding SaveColor_Command}"  
+                          Style="{StaticResource LeftPanel_TextButton}"/>
+               </Grid>
+               <Grid Grid.Column="2">
+                  <Grid.ColumnDefinitions>
+                     <ColumnDefinition Width="1*" />
+                     <ColumnDefinition Width="1*" />
+                     <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 ParameterList_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 ParameterList_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 ParameterList_TextBox}"/>
+                  <TextBlock Grid.Column="2"
+                             Text="H"
+                             Margin="0,10,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="3" 
+                           HorizontalAlignment="Right"
+                           Margin="0,10,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Hue, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ParameterList_TextBox}"/>
+                  <TextBlock Grid.Row="1"
+                             Grid.Column="2"
+                             Text="S"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="3"
+                           Grid.Row="1"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Saturation, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ParameterList_TextBox}"/>
+                  <TextBlock Grid.Row="2"
+                             Grid.Column="2"
+                             Text="L"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="3"
+                           Grid.Row="2"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           IsReadOnly="False"
+                           Text="{Binding Lightness, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ParameterList_TextBox}"/>
+                  <TextBlock Grid.Row="3"
+                             Grid.ColumnSpan="2"
+                             Text="{Binding Hexadecimal_Msg}"
+                             Margin="5,5,5,0"
+                             HorizontalAlignment="Right"
+                             Style="{StaticResource DialogWindow_TextBlock}"/>
+                  <TextBox Grid.Column="2"
+                           Grid.ColumnSpan="2"
+                           Grid.Row="3"
+                           HorizontalAlignment="Right"
+                           Margin="5,5,5,0"
+                           Text="{Binding Hexadecimal, UpdateSourceTrigger=PropertyChanged}"
+                           Style="{StaticResource ParameterList_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:EgtMainWindow>

Icarus/EgtColorPicker/EgtColorPickerV.xaml.vb

@@ -0,0 +1,313 @@
+Imports System.Drawing.Configuration
+Imports System.Runtime.InteropServices
+Imports System.Windows.Forms
+
+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
+         Dim RgbColor As Color = HSLColor.HslToRgb(m_EgtColorPickerVM.HSLColor)
+         Return System.Drawing.Color.FromArgb(255, RgbColor.R, RgbColor.G, RgbColor.B)
+      End Get
+      Set(value As System.Drawing.Color)
+         m_EgtColorPickerVM.SetHSLColor(System.Windows.Media.Color.FromArgb(255, value.R, value.G, value.B))
+      End Set
+   End Property
+
+   Private m_dH As Double = 0
+   Private m_dS As Double = 0
+   Private m_dL As Double = 0.5
+
+#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
+
+#Region "EVENTS"
+
+   Private Sub CloseWindow(DialogResult As MessageBoxResult) Handles m_EgtColorPickerVM.m_CloseWindow
+      Me.DialogResult = DialogResult
+      Me.Close()
+   End Sub
+
+   Private Sub EgtColorPickerVM_SetLuminosityFill(color As Color) Handles m_EgtColorPickerVM.m_SetLuminosityFill
+      LightnessColor.Color = color
+   End Sub
+
+   Private Sub EgtColorPickerVM_SetLuminosityFills() Handles m_EgtColorPickerVM.m_UpdateCursorsPos
+      Dim dX As Double = m_EgtColorPickerVM.HSLColor.Hue / 360 * MyCanvas.ActualWidth
+      Dim dY As Double = (1 - m_EgtColorPickerVM.HSLColor.Saturation) * MyCanvas.ActualHeight
+      Dim dYL As Double = (1 - m_EgtColorPickerVM.HSLColor.Lightness) * MyCanvasL.ActualHeight
+      Canvas.SetLeft(Ellipse, dX - (Ellipse.Width / 2))
+      Canvas.SetTop(Ellipse, dY - (Ellipse.Height / 2))
+      Canvas.SetTop(Arrow, dYL)
+      Canvas.SetLeft(Arrow, MyCanvasL.ActualWidth)
+   End Sub
+
+   Private Sub EgtColorPickerV_ContentRendered(sender As Object, e As EventArgs) Handles Me.ContentRendered
+      EgtColorPickerVM_SetLuminosityFills()
+   End Sub
+
+   ''' <summary>
+   ''' Seleziona il colore all'interno del rettangolo nominato ColorRectangle attraverso un'ellisse
+   ''' </summary>
+   Private Sub ColorRectangle_MouseDown(sender As Object, e As MouseButtonEventArgs)
+      Dim dX As Double = Mouse.GetPosition(MyCanvas).X
+      Dim dY As Double = Mouse.GetPosition(MyCanvas).Y
+
+      Dim sat As Double = dX / MyCanvas.ActualWidth * 360
+      Dim ton As Double = 1 - dY / MyCanvas.ActualHeight
+
+      m_EgtColorPickerVM.UpdateHue(Math.Round(sat, MidpointRounding.AwayFromZero))
+      m_EgtColorPickerVM.UpdateSaturation(Math.Round(ton, 2))
+      m_EgtColorPickerVM.UpdateLightness(0.5)
+
+      'Dim r, g, b As Integer
+
+      If dX > 0 AndAlso dX < MyCanvas.ActualWidth And dY > 0 AndAlso dY < MyCanvas.ActualHeight Then
+         Canvas.SetTop(Ellipse, dY - (Ellipse.Height / 2))
+         Canvas.SetLeft(Ellipse, dX - (Ellipse.Width / 2))
+         Canvas.SetTop(Arrow, MyCanvas.Height / 2)
+         Canvas.SetLeft(Arrow, MyCanvasL.ActualWidth)
+      End If
+
+      'HlsToRgb(sat, lum, 1 - ton, r, g, b)
+
+      'Dim colargb As System.Drawing.Color = ColorFromHSV(sat, ton, lum)
+
+      'Dim col As Color = Media.Color.FromRgb(colargb.R, colargb.G, colargb.B)
+      'Dim col As Color = Media.Color.FromRgb(r, g, b)
+      'm_EgtColorPickerVM.SetCurrColorFill(col)
+   End Sub
+
+   ''' <summary>
+   ''' Permette il movimento della freccia dall'alto verso il basso
+   ''' </summary>
+   Private Sub Luminosity_MouseMove(sender As Object, e As Input.MouseEventArgs)
+      'Dim dX As Double = Mouse.GetPosition(MyCanvasL).X
+      'Dim dY As Double = Mouse.GetPosition(MyCanvasL).Y
+
+      'If dX > 0 AndAlso dX < MyCanvasL.ActualWidth And dY > 0 AndAlso dY < MyCanvasL.ActualHeight Then
+      '   Arrow.Visibility = Visibility.Visible
+      '   Canvas.SetTop(Arrow, dY)
+      '   Canvas.SetLeft(Arrow, MyCanvasL.ActualWidth)
+      'Else
+      '   Arrow.Visibility = Visibility.Collapsed
+      'End If
+   End Sub
+
+   ''' <summary>
+   ''' Modifica la luminosità  del colore selezionato
+   ''' </summary>
+   Private Sub Luminosity_MouseDown(sender As Object, e As MouseButtonEventArgs)
+
+      Arrow.Visibility = Visibility.Visible
+      Dim dYPos As Double = Mouse.GetPosition(MyCanvasL).Y
+      Canvas.SetTop(Arrow, dYPos)
+
+      Dim dX As Double = Canvas.GetLeft(Ellipse)
+      Dim dY As Double = Canvas.GetTop(Ellipse)
+      Dim dL As Double = Mouse.GetPosition(MyCanvasL).Y
+
+      Dim sat As Double = dX / MyCanvas.ActualWidth * 360
+      Dim ton As Double = dY / MyCanvas.ActualHeight
+      Dim lum As Double = dL / MyCanvasL.ActualHeight
+
+      m_EgtColorPickerVM.UpdateLightness(1 - Math.Round(lum, 2))
+
+      Dim r, g, b As Integer
+
+      HslToRgb(m_dH, m_dS, 1 - m_dL, r, g, b)
+      '  HslToRgb(sat, 1 - ton, 1 - lum, r, g, b)
+      ' HlsToRgb(sat, 1 - lum, 1 - ton, r, g, b)
+
+      'Dim col As Color = Media.Color.FromRgb(r, g, b)
+      'm_EgtColorPickerVM.SetCurrColorFill(col)
+   End Sub
+#End Region
+
+#Region "METHODS"
+
+   Private Shared Function HslToRgb(ByVal h As Double, ByVal s As Double, ByVal l As Double, ByRef r As Integer, ByRef g As Integer, ByRef b As Integer) As Color
+      Dim dConversionH As Double = Math.Round(h, MidpointRounding.AwayFromZero)
+      Dim dConversionS As Double = Math.Round(s, 2)
+      Dim dConversionL As Double = Math.Round(l, 2)
+      Dim C As Double = (1 - Math.Abs(2 * dConversionL - 1)) * dConversionS
+      Dim X = C * (1 - Math.Abs((dConversionH / 60) Mod 2 - 1))
+      Dim m = dConversionL - C / 2
+      Dim dRPrimo As Double
+      Dim dGPrimo As Double
+      Dim dBPrimo As Double
+
+      If dConversionH >= 0 Then
+         If dConversionH < 60 Then
+            dRPrimo = C
+            dGPrimo = X
+            dBPrimo = 0
+         ElseIf dConversionH < 120 Then
+            dRPrimo = X
+            dGPrimo = C
+            dBPrimo = 0
+         ElseIf dConversionH < 180 Then
+            dRPrimo = 0
+            dGPrimo = C
+            dBPrimo = X
+         ElseIf dConversionH < 240 Then
+            dRPrimo = 0
+            dGPrimo = X
+            dBPrimo = C
+         ElseIf dConversionH < 300 Then
+            dRPrimo = X
+            dGPrimo = 0
+            dBPrimo = C
+         ElseIf dConversionH < 360 Then
+            dRPrimo = C
+            dGPrimo = 0
+            dBPrimo = X
+         End If
+      End If
+
+      r = (dRPrimo + m) * 255
+      g = (dGPrimo + m) * 255
+      b = (dBPrimo + m) * 255
+   End Function
+
+   Friend Shared Function RgbToHsl(ByVal r As Integer, ByVal g As Integer, ByVal b As Integer, ByRef h As Double, ByRef s As Double, ByRef l As Double) As Color
+      Dim dRPrimo As Double = r / 255
+      Dim dGPrimo As Double = g / 255
+      Dim dBPrimo As Double = b / 255
+      Dim CMax As Double = Math.Max(Math.Max(dRPrimo, dGPrimo), dBPrimo)
+      Dim CMin As Double = Math.Min(Math.Min(dRPrimo, dGPrimo), dBPrimo)
+      Dim Delta As Double = CMax - CMin
+      If Delta = 0 Then
+         h = 0
+      ElseIf CMax = dRPrimo Then
+         h = 60 * (((dGPrimo - dBPrimo) / Delta) Mod 6)
+      ElseIf CMax = dGPrimo Then
+         h = 60 * (((dBPrimo - dRPrimo) / Delta) + 2)
+      ElseIf CMax = dBPrimo Then
+         h = 60 * (((dRPrimo - dRPrimo) / Delta) + 4)
+      End If
+
+      l = (CMax + CMin) / 2
+
+      If Delta = 0 Then
+         s = 0
+      Else
+         s = Delta / (1 - Math.Abs(2 * l - 1))
+      End If
+   End Function
+
+
+
+
+
+   '''' <summary>
+   '''' Converte il colore selezionato da HLS ( tonalità, luminosità, saturazione) in RGB
+   '''' </summary>
+   '''' <param name="h">Tonalità del colore selezionato espressa in double</param>
+   '''' <param name="l">Luminosità del colore selezionato espressa in double</param>
+   '''' <param name="s">Saturazione del colore selezionato espressa in double</param>
+   '''' <param name="r">Colore Rosso restituito dalla funzione espresso in intero</param>
+   '''' <param name="g">Colore Verde restituito dalla funzione espresso in intero</param>
+   '''' <param name="b">Colore Blu restituito dalla funzione espresso in intero</param>
+   'Private Shared Sub HlsToRgb(ByVal h As Double, ByVal l As Double, ByVal s As Double, <Out> ByRef r As Integer, <Out> ByRef g As Integer, <Out> ByRef b As Integer)
+   '   Dim p2 As Double
+
+   '   If l <= 0.5 Then
+   '      p2 = l * (1 + s)
+   '   Else
+   '      p2 = l + s - l * s
+   '   End If
+
+   '   Dim p1 As Double = 2 * l - p2
+   '   Dim double_r, double_g, double_b As Double
+
+   '   If s = 0 Then
+   '      double_r = l
+   '      double_g = l
+   '      double_b = l
+   '   Else
+   '      double_r = QqhToRgb(p1, p2, h + 120)
+   '      double_g = QqhToRgb(p1, p2, h)
+   '      double_b = QqhToRgb(p1, p2, h - 120)
+   '   End If
+
+   '   r = CInt((double_r * 255.0))
+   '   g = CInt((double_g * 255.0))
+   '   b = CInt((double_b * 255.0))
+   'End Sub
+
+   'Private Shared Function QqhToRgb(ByVal q1 As Double, ByVal q2 As Double, ByVal hue As Double) As Double
+   '   If hue > 360 Then
+   '      hue -= 360
+   '   ElseIf hue < 0 Then
+   '      hue += 360
+   '   End If
+
+   '   If hue < 60 Then Return q1 + (q2 - q1) * hue / 60
+   '   If hue < 180 Then Return q2
+   '   If hue < 240 Then Return q1 + (q2 - q1) * (240 - hue) / 60
+   '   Return q1
+   'End Function
+
+   Public Shared Function ColorFromHSV(ByVal hue As Double, ByVal saturation As Double, ByVal value As Double) As System.Drawing.Color
+      Dim hi As Integer = Convert.ToInt32(Math.Floor(hue / 60)) Mod 6
+      Dim f As Double = hue / 60 - Math.Floor(hue / 60)
+      value *= 255
+      Dim v As Integer = Convert.ToInt32(value)
+      Dim p As Integer = Convert.ToInt32(value * (1 - saturation))
+      Dim q As Integer = Convert.ToInt32(value * (1 - f * saturation))
+      Dim t As Integer = Convert.ToInt32(value * (1 - (1 - f) * saturation))
+
+      If hi = 0 Then
+         Return System.Drawing.Color.FromArgb(255, v, t, p)
+      ElseIf hi = 1 Then
+         Return System.Drawing.Color.FromArgb(255, q, v, p)
+      ElseIf hi = 2 Then
+         Return System.Drawing.Color.FromArgb(255, p, v, t)
+      ElseIf hi = 3 Then
+         Return System.Drawing.Color.FromArgb(255, p, q, v)
+      ElseIf hi = 4 Then
+         Return System.Drawing.Color.FromArgb(255, t, p, v)
+      Else
+         Return System.Drawing.Color.FromArgb(255, v, p, q)
+      End If
+   End Function
+
+   ''' <summary>
+   ''' Apre una finestra EgtColorPicker
+   ''' </summary>
+   ''' <returns></returns>
+   Public Overloads Function ShowDialog() As DialogResult
+      MyBase.ShowDialog()
+      Return Me.DialogResult
+   End Function
+
+#End Region
+
+End Class

Icarus/EgtColorPicker/EgtColorPickerVM.vb

@@ -0,0 +1,873 @@
+Imports System.Windows.Forms
+Imports EgtUILib
+Imports EgtWPFLib5
+
+Public Class EgtColorPickerVM
+   Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+   Friend Event m_CloseWindow(bDialogResult As MessageBoxResult)
+
+   Friend Event m_SetLuminosityFill(color As Color)
+   Friend Event m_UpdateCursorsPos()
+
+   Private m_sTitle As String = ""
+   Public ReadOnly Property sTitle As String
+      Get
+         Return m_sTitle
+      End Get
+   End Property
+
+   Private m_BasicColors As New List(Of EgtColorPicker)
+   Public Property BasicColors As List(Of EgtColorPicker)
+      Get
+         Return m_BasicColors
+      End Get
+      Set(value As List(Of EgtColorPicker))
+         m_BasicColors = value
+      End Set
+   End Property
+
+   Private m_CustomColors As New List(Of EgtColorPicker)
+   Public Property CustomColors As List(Of EgtColorPicker)
+      Get
+         Return m_CustomColors
+      End Get
+      Set(value As List(Of EgtColorPicker))
+         m_CustomColors = value
+      End Set
+   End Property
+
+   Friend Sub SetCustomColors(value As Integer())
+      Dim coloraRGB As System.Drawing.Color
+      Dim colorRGB As Color
+      For i As Integer = 0 To value.Length - 1
+         coloraRGB = System.Drawing.Color.FromArgb(value(i).ToString)
+         colorRGB = Color.FromRgb(coloraRGB.R, coloraRGB.G, coloraRGB.B)
+         m_CustomColors.Insert(i, New EgtColorPicker(New SolidColorBrush(colorRGB)))
+         m_CustomColors.RemoveAt(m_CustomColors.Count - 1)
+      Next
+      m_CustomColors.Reverse()
+      SelCustomColor = m_CustomColors(0)
+      NotifyPropertyChanged(NameOf(SelCustomColor))
+   End Sub
+
+   Friend Function GetCustomColors() As Integer()
+      Dim arrayColor As Integer() = New Integer(m_CustomColors.Count - 1) {}
+      Dim coloraRGB As System.Drawing.Color
+      Dim colorCode As Integer
+      For i As Integer = 0 To m_CustomColors.Count - 1
+         Dim intValue As Integer = Integer.Parse(m_CustomColors(i).Fill.ToString().TrimStart("#FF"), System.Globalization.NumberStyles.HexNumber)
+         coloraRGB = System.Drawing.Color.FromArgb(intValue)
+         'colorCode = BitConverter.ToInt32(New Byte() {coloraRGB.R, coloraRGB.G, coloraRGB.B, &H0}, i)
+         colorCode = coloraRGB.ToArgb()
+         'arrayColor.Append(colorCode)
+         arrayColor(i) = colorCode
+      Next
+      Return arrayColor
+   End Function
+
+   Private m_HSLColor As New HSLColor
+   Public ReadOnly Property HSLColor As HSLColor
+      Get
+         Return m_HSLColor
+      End Get
+   End Property
+   Friend Sub SetHSLColor(value As Color)
+      Dim dHue, dSaturation, dLightness As Double
+      HSLColor.RgbToHsl(value, dHue, dSaturation, dLightness)
+      m_HSLColor.SetHue(dHue)
+      m_HSLColor.SetSaturation(dSaturation)
+      m_HSLColor.SetLightness(dLightness)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      SetLightnessColor()
+      UpdateHue()
+      UpdateSaturation()
+      UpdateLightness()
+      NotifyPropertyChanged(NameOf(Red))
+      NotifyPropertyChanged(NameOf(Green))
+      NotifyPropertyChanged(NameOf(Blue))
+      NotifyPropertyChanged(NameOf(Hexadecimal))
+      RaiseEvent m_UpdateCursorsPos()
+   End Sub
+
+   Private m_CurrColor As Color
+   Public ReadOnly Property CurrColor As SolidColorBrush
+      Get
+         Return New SolidColorBrush(HSLColor.HslToRgb(m_HSLColor.Hue, m_HSLColor.Saturation, m_HSLColor.Lightness))
+      End Get
+   End Property
+
+   Private m_SelColor As EgtColorPicker
+   Public Property SelColor As EgtColorPicker
+      Get
+         Return m_SelColor
+      End Get
+      Set(value As EgtColorPicker)
+         m_SelColor = value
+         SetHSLColor(value.Fill.Color)
+         'm_Fill = m_Color.Fill
+         'm_CurrColor = m_Color.Fill.Color
+         'm_Luminosity_Fill = m_Color.Fill.Color
+         'm_Red = m_Color.Fill.Color.R.ToString
+         'm_Green = m_Color.Fill.Color.G.ToString
+         'm_Blue = m_Color.Fill.Color.B.ToString
+         'm_Hexadecimal = "#" + System.Drawing.Color.FromArgb(m_Red, m_Green, m_Blue).ToArgb().ToString("X6")
+         'NotifyPropertyChanged(NameOf(Hexadecimal))
+         'NotifyPropertyChanged(NameOf(Fill))
+         'NotifyPropertyChanged(NameOf(CurrColor))
+         'NotifyPropertyChanged(NameOf(Luminosity_Fill))
+         'NotifyPropertyChanged(NameOf(Red))
+         'NotifyPropertyChanged(NameOf(Green))
+         'NotifyPropertyChanged(NameOf(Blue))
+         'If Not IsNothing(m_CustomColor) Then
+         '   m_CustomColor.SetFill(m_Color.Fill)
+         'End If
+      End Set
+   End Property
+
+   Private m_CustomColor As EgtColorPicker
+   Public Property SelCustomColor As EgtColorPicker
+      Get
+         Return m_CustomColor
+      End Get
+      Set(value As EgtColorPicker)
+         m_CustomColor = value
+         m_CurrColor = m_CustomColor.Fill.Color
+         m_Luminosity_Fill = m_CustomColor.Fill.Color
+         m_Red = m_CustomColor.Fill.Color.R.ToString
+         m_Green = m_CustomColor.Fill.Color.G.ToString
+         m_Blue = m_CustomColor.Fill.Color.B.ToString
+         m_Hexadecimal = "#" + System.Drawing.Color.FromArgb(m_Red, m_Green, m_Blue).ToArgb().ToString("X6")
+         NotifyPropertyChanged(NameOf(Hexadecimal))
+         NotifyPropertyChanged(NameOf(CurrColor))
+         NotifyPropertyChanged(NameOf(Luminosity_Fill))
+         NotifyPropertyChanged(NameOf(Red))
+         NotifyPropertyChanged(NameOf(Green))
+         NotifyPropertyChanged(NameOf(Blue))
+         UpdateHue()
+         UpdateSaturation()
+         UpdateLightness()
+      End Set
+   End Property
+
+   Private m_Fill As SolidColorBrush
+   Public ReadOnly Property Fill As SolidColorBrush
+      Get
+         Return m_Fill
+      End Get
+   End Property
+   Friend Sub SetCurrColorFill(value As Color)
+      m_CurrColor = value
+      SetRed(m_CurrColor.R)
+      SetGreen(m_CurrColor.G)
+      SetBlu(m_CurrColor.B)
+      SetHexadecimal(m_CurrColor.ToString)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      NotifyPropertyChanged(NameOf(Luminosity_Fill))
+      UpdateHue()
+      UpdateSaturation()
+      UpdateLightness()
+   End Sub
+
+   Private m_Luminosity_Fill As Color
+   Public ReadOnly Property Luminosity_Fill As SolidColorBrush
+      Get
+         Return New SolidColorBrush(m_Luminosity_Fill)
+      End Get
+   End Property
+
+   Friend Sub SetLuminosityColorFill(value As Color)
+      m_CurrColor = value
+      SetRed(m_CurrColor.R)
+      SetGreen(m_CurrColor.G)
+      SetBlu(m_CurrColor.B)
+      SetHexadecimal(m_CurrColor.ToString)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      RaiseEvent m_SetLuminosityFill(value)
+      UpdateHue()
+      UpdateSaturation()
+      UpdateLightness()
+   End Sub
+
+   Private m_Hexadecimal As String
+   Public Property Hexadecimal As String
+      Get
+         Dim RgbColor As Color = HSLColor.HslToRgb(m_HSLColor)
+         Return "#" & System.Drawing.Color.FromArgb(RgbColor.R, RgbColor.G, RgbColor.B).ToArgb().ToString("X6")
+      End Get
+      Set(value As String)
+         m_Hexadecimal = value
+         If m_Hexadecimal.Length >= 8 AndAlso m_Hexadecimal >= "#FF000000" And m_Hexadecimal <= "#FFFFFFFF" Then
+            Dim Color As Color = CType(ColorConverter.ConvertFromString(m_Hexadecimal), Color)
+            SetCurrColorFill(Color)
+         End If
+         NotifyPropertyChanged(NameOf(Fill))
+         NotifyPropertyChanged(NameOf(Hexadecimal))
+      End Set
+   End Property
+
+   Friend Sub SetHexadecimal(value As String)
+      m_Hexadecimal = value
+      NotifyPropertyChanged(NameOf(Hexadecimal))
+   End Sub
+
+   Private m_Red As Double
+   Public Property Red As String
+      Get
+         Dim RgbColor As Color = HSLColor.HslToRgb(m_HSLColor)
+         Return DoubleToString(RgbColor.R, 0)
+      End Get
+      Set(value As String)
+         If StringToDouble(value, m_Red) And (m_Red >= 0 AndAlso m_Red <= 255) Then
+            UpdateRed(m_Red)
+            'm_Red = value
+            m_Fill = New SolidColorBrush(Color.FromRgb(m_Red, m_Green, m_Blue))
+            SetCurrColorFill(m_Fill.Color)
+            NotifyPropertyChanged(NameOf(Fill))
+            NotifyPropertyChanged(NameOf(Red))
+         Else
+            NotifyPropertyChanged(NameOf(Red))
+         End If
+      End Set
+   End Property
+   Friend Sub SetRed(value As Double)
+      m_Red = value
+      NotifyPropertyChanged(NameOf(Red))
+   End Sub
+
+   Private m_Green As Double
+   Public Property Green As String
+      Get
+         Dim RgbColor As Color = HSLColor.HslToRgb(m_HSLColor)
+         Return DoubleToString(RgbColor.G, 0)
+      End Get
+      Set(value As String)
+         If StringToDouble(value, m_Green) And (m_Green >= 0 AndAlso m_Green <= 255) Then
+            UpdateGreen(value)
+            m_Green = value
+            m_Fill = New SolidColorBrush(Color.FromRgb(m_Red, m_Green, m_Blue))
+            SetCurrColorFill(m_Fill.Color)
+            NotifyPropertyChanged(NameOf(Fill))
+         Else
+            NotifyPropertyChanged(NameOf(Green))
+         End If
+      End Set
+   End Property
+   Friend Sub SetGreen(value As Double)
+      m_Green = value
+      NotifyPropertyChanged(NameOf(Green))
+   End Sub
+
+   Private m_Blue As Double
+   Public Property Blue As String
+      Get
+         Dim RgbColor As Color = HSLColor.HslToRgb(m_HSLColor)
+         Return DoubleToString(RgbColor.B, 0)
+      End Get
+      Set(value As String)
+         If StringToDouble(value, m_Blue) And (m_Blue >= 0 AndAlso m_Blue <= 255) Then
+            UpdateBlue(value)
+            m_Blue = value
+            m_Fill = New SolidColorBrush(Color.FromRgb(m_Red, m_Green, m_Blue))
+            SetCurrColorFill(m_Fill.Color)
+            NotifyPropertyChanged(NameOf(Fill))
+         Else
+            NotifyPropertyChanged(NameOf(Blue))
+         End If
+      End Set
+   End Property
+   Friend Sub SetBlu(value As Double)
+      m_Blue = value
+      NotifyPropertyChanged(NameOf(Blue))
+   End Sub
+
+   Private m_Hue As String
+   Public Property Hue As String
+      Get
+         Return m_Hue
+      End Get
+      Set(value As String)
+         Dim dHue As Double = 0
+         If StringToDouble(value, dHue) AndAlso dHue >= 0 AndAlso dHue < 360 Then
+            UpdateHue(dHue)
+            m_Hue = If(value.Last() = "."c, value, DoubleToString(m_HSLColor.Hue, 2))
+            RaiseEvent m_UpdateCursorsPos()
+         Else
+            NotifyPropertyChanged(NameOf(Hue))
+         End If
+      End Set
+   End Property
+   Friend Sub UpdateHue()
+      m_Hue = DoubleToString(m_HSLColor.Hue, 0)
+      NotifyPropertyChanged(NameOf(Hue))
+   End Sub
+
+   Private m_Saturation As String
+   Public Property Saturation As String
+      Get
+         Return m_Saturation
+      End Get
+      Set(value As String)
+         Dim dSaturation As Double = 0
+         If StringToDouble(value, dSaturation) AndAlso dSaturation >= 0 AndAlso dSaturation <= 100 Then
+            UpdateSaturation(dSaturation / 100)
+            m_Saturation = If(value.Last() = "."c, value, DoubleToString(m_HSLColor.Saturation * 100, 2))
+            RaiseEvent m_UpdateCursorsPos()
+         Else
+            NotifyPropertyChanged(NameOf(Saturation))
+         End If
+      End Set
+   End Property
+   Friend Sub UpdateSaturation()
+      m_Saturation = DoubleToString(m_HSLColor.Saturation * 100, 2)
+      NotifyPropertyChanged(NameOf(Saturation))
+   End Sub
+
+   Private m_Lightness As String
+   Public Property Lightness As String
+      Get
+         Return m_Lightness
+      End Get
+      Set(value As String)
+         Dim dLightness As Double = 0
+         If StringToDouble(value, dLightness) AndAlso dLightness >= 0 AndAlso dLightness <= 100 Then
+            UpdateLightness(dLightness / 100)
+            m_Lightness = If(value.Last() = "."c, value, DoubleToString(m_HSLColor.Lightness * 100, 2))
+            RaiseEvent m_UpdateCursorsPos()
+         Else
+            NotifyPropertyChanged(NameOf(Lightness))
+         End If
+      End Set
+   End Property
+   Friend Sub UpdateLightness()
+      m_Lightness = DoubleToString(m_HSLColor.Lightness * 100, 2)
+      NotifyPropertyChanged(NameOf(Lightness))
+   End Sub
+
+   ' Definizione comandi
+   Private m_cmdCancel As ICommand
+   Private m_cmdOk As ICommand
+   Private m_cmdSaveColor As ICommand
+
+#Region "Messages"
+   Public ReadOnly Property Red_Msg As String
+      Get
+         Return EgtMsg(15050)
+      End Get
+   End Property
+
+   Public ReadOnly Property Green_Msg As String
+      Get
+         Return EgtMsg(15051)
+      End Get
+   End Property
+
+   Public ReadOnly Property Blu_Msg As String
+      Get
+         Return EgtMsg(15052)
+      End Get
+   End Property
+
+   Public ReadOnly Property Hexadecimal_Msg As String
+      Get
+         Return EgtMsg(15053)
+      End Get
+   End Property
+   Public ReadOnly Property AddCColor_Msg As String
+      Get
+         Return EgtMsg(15054)
+      End Get
+   End Property
+
+   Public ReadOnly Property BasicColor_Msg As String
+      Get
+         Return EgtMsg(15055)
+      End Get
+   End Property
+   Public ReadOnly Property CustomColor_Msg As String
+      Get
+         Return EgtMsg(15056)
+      End Get
+   End Property
+#End Region
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONTRUCTORS"
+
+   Sub New()
+      EgtColorPicker.SetOwner(Me)
+
+      'Colori di Base
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.LightCoral)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Khaki)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.LightGreen)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.PaleGreen)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Aqua)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.SteelBlue)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Pink)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.HotPink)))
+
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Red)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Yellow)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Lime)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.LimeGreen)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Cyan)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.CornflowerBlue)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.MediumPurple)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Magenta)))
+
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Brown)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Orange)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Green)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.MediumSeaGreen)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.MediumBlue)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.MediumSlateBlue)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.MediumVioletRed)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DeepPink)))
+
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkRed)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkOrange)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.OliveDrab)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkOliveGreen)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Blue)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Navy)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkMagenta)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.BlueViolet)))
+
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Maroon)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Firebrick)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.ForestGreen)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkGreen)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkBlue)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.MidnightBlue)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkSlateBlue)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Indigo)))
+
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Black)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkKhaki)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Olive)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkGray)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.MediumAquamarine)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.Gray)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.DarkViolet)))
+      m_BasicColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+
+      'Colori Personalizzati 
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+      m_CustomColors.Add(New EgtColorPicker(New SolidColorBrush(Colors.White)))
+
+      NotifyPropertyChanged(NameOf(BasicColors))
+      NotifyPropertyChanged(NameOf(CustomColors))
+
+      SelCustomColor = m_CustomColors(0)
+      NotifyPropertyChanged(NameOf(SelCustomColor))
+   End Sub
+
+#End Region    'CONTRUCTORS"
+   Friend Sub UpdateHue(value As Double)
+      m_HSLColor.SetHue(value)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      SetLightnessColor()
+      UpdateSaturation()
+      UpdateLightness()
+      NotifyPropertyChanged(NameOf(Red))
+      NotifyPropertyChanged(NameOf(Green))
+      NotifyPropertyChanged(NameOf(Blue))
+      NotifyPropertyChanged(NameOf(Hexadecimal))
+   End Sub
+   Friend Sub UpdateSaturation(value As Double)
+      m_HSLColor.SetSaturation(value)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      SetLightnessColor()
+      UpdateHue()
+      UpdateLightness()
+      NotifyPropertyChanged(NameOf(Red))
+      NotifyPropertyChanged(NameOf(Green))
+      NotifyPropertyChanged(NameOf(Blue))
+      NotifyPropertyChanged(NameOf(Hexadecimal))
+   End Sub
+   Friend Sub UpdateLightness(value As Double)
+      m_HSLColor.SetLightness(value)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      SetLightnessColor()
+      UpdateHue()
+      UpdateSaturation()
+      NotifyPropertyChanged(NameOf(Red))
+      NotifyPropertyChanged(NameOf(Green))
+      NotifyPropertyChanged(NameOf(Blue))
+      NotifyPropertyChanged(NameOf(Hexadecimal))
+   End Sub
+   Friend Sub UpdateRed(value As Double)
+      Dim RGBColor As Color = HSLColor.HslToRgb(m_HSLColor)
+      Dim h, s, l As Double
+      HSLColor.RgbToHsl(Color.FromRgb(value, RGBColor.G, RGBColor.B), h, s, l)
+      SetRed(value)
+      m_HSLColor.SetHue(h)
+      m_HSLColor.SetSaturation(s)
+      m_HSLColor.SetLightness(l)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      SetLightnessColor()
+      UpdateHue()
+      UpdateSaturation()
+      UpdateLightness()
+      NotifyPropertyChanged(NameOf(Red))
+      NotifyPropertyChanged(NameOf(Green))
+      NotifyPropertyChanged(NameOf(Blue))
+      NotifyPropertyChanged(NameOf(Hexadecimal))
+   End Sub
+   Friend Sub UpdateGreen(value As Double)
+      Dim RGBColor As Color = HSLColor.HslToRgb(m_HSLColor)
+      Dim h, s, l As Double
+      HSLColor.RgbToHsl(Color.FromRgb(RGBColor.R, value, RGBColor.B), h, s, l)
+      m_HSLColor.SetHue(h)
+      m_HSLColor.SetSaturation(s)
+      m_HSLColor.SetLightness(l)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      SetLightnessColor()
+      UpdateHue()
+      UpdateSaturation()
+      UpdateLightness()
+      NotifyPropertyChanged(NameOf(Red))
+      NotifyPropertyChanged(NameOf(Green))
+      NotifyPropertyChanged(NameOf(Blue))
+      NotifyPropertyChanged(NameOf(Hexadecimal))
+   End Sub
+
+   Friend Sub UpdateBlue(value As Double)
+      Dim RGBColor As Color = HSLColor.HslToRgb(m_HSLColor)
+      Dim h, s, l As Double
+      HSLColor.RgbToHsl(Color.FromRgb(RGBColor.R, RGBColor.G, value), h, s, l)
+      m_HSLColor.SetHue(h)
+      m_HSLColor.SetSaturation(s)
+      m_HSLColor.SetLightness(l)
+      NotifyPropertyChanged(NameOf(CurrColor))
+      SetLightnessColor()
+      UpdateHue()
+      UpdateSaturation()
+      UpdateLightness()
+      NotifyPropertyChanged(NameOf(Red))
+      NotifyPropertyChanged(NameOf(Green))
+      NotifyPropertyChanged(NameOf(Blue))
+      NotifyPropertyChanged(NameOf(Hexadecimal))
+   End Sub
+
+
+   Friend Sub SetLightnessColor()
+      RaiseEvent m_SetLuminosityFill(HSLColor.HslToRgb(m_HSLColor.Hue, m_HSLColor.Saturation, 0.5))
+   End Sub
+
+#Region "COMMANDS"
+
+   Public ReadOnly Property Ok_Command As ICommand
+      Get
+         If m_cmdOk Is Nothing Then
+            m_cmdOk = New Command(AddressOf ok)
+         End If
+         Return m_cmdOk
+      End Get
+   End Property
+
+   Public Sub ok()
+      RaiseEvent m_CloseWindow(DialogResult.OK)
+   End Sub
+
+   Public ReadOnly Property Cancel_Command As ICommand
+      Get
+         If m_cmdCancel Is Nothing Then
+            m_cmdCancel = New Command(AddressOf Cancel)
+         End If
+         Return m_cmdCancel
+      End Get
+   End Property
+
+   Public Sub Cancel()
+      RaiseEvent m_CloseWindow(DialogResult.Cancel)
+   End Sub
+
+   Public ReadOnly Property SaveColor_Command As ICommand
+      Get
+         If m_cmdSaveColor Is Nothing Then
+            m_cmdSaveColor = New Command(AddressOf SaveColor)
+         End If
+         Return m_cmdSaveColor
+      End Get
+   End Property
+
+   Public Sub SaveColor()
+      If Not IsNothing(m_CustomColor) Then
+         m_CustomColor.SetFill(CurrColor)
+         Dim nIndex As Integer = m_CustomColors.IndexOf(SelCustomColor)
+         m_CustomColor = If(nIndex >= 0 AndAlso nIndex < m_CustomColors.Count - 1, m_CustomColors(nIndex + 1), m_CustomColors(0))
+         NotifyPropertyChanged(NameOf(SelCustomColor))
+      End If
+   End Sub
+
+#End Region    'COMMANDS
+
+End Class
+
+Public Class EgtColorPicker
+   Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+   Private Shared Owner As EgtColorPickerVM
+
+   Private m_Fill As SolidColorBrush
+   Public ReadOnly Property Fill As SolidColorBrush
+      Get
+         Return m_Fill
+      End Get
+   End Property
+
+   Friend Sub SetFill(value As SolidColorBrush)
+      m_Fill = value
+      NotifyPropertyChanged(NameOf(Fill))
+   End Sub
+
+   Private m_Luminosity_Fill As SolidColorBrush
+   Public ReadOnly Property Luminosity_Fill As SolidColorBrush
+      Get
+         Return m_Luminosity_Fill
+      End Get
+   End Property
+
+   Friend Sub SetLumFill(value As SolidColorBrush)
+      m_Luminosity_Fill = value
+      NotifyPropertyChanged(NameOf(Luminosity_Fill))
+   End Sub
+
+   Private m_CurrColorFill As SolidColorBrush
+   Public ReadOnly Property CurrColor_Fill As SolidColorBrush
+      Get
+         Return m_CurrColorFill
+      End Get
+   End Property
+
+   Friend Sub SetCurrFill(value As SolidColorBrush)
+      m_CurrColorFill = value
+      NotifyPropertyChanged(NameOf(CurrColor_Fill))
+   End Sub
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONTRUCTORS"
+
+   Sub New(Fill As SolidColorBrush)
+      m_Fill = Fill
+   End Sub
+
+#End Region    'CONTRUCTORS"
+
+#Region "METHODS"
+
+   Friend Shared Sub SetOwner(value As EgtColorPickerVM)
+      Owner = value
+   End Sub
+
+#End Region    ' METHODS
+
+End Class
+
+Public Class HSLColor
+
+   Private m_Hue As Double
+   Public ReadOnly Property Hue As Double
+      Get
+         Return m_Hue
+      End Get
+   End Property
+   Friend Sub SetHue(value As Double)
+      m_Hue = value
+   End Sub
+
+   Private m_Saturation As Double
+   Public ReadOnly Property Saturation As Double
+      Get
+         Return m_Saturation
+      End Get
+   End Property
+   Friend Sub SetSaturation(value As Double)
+      m_Saturation = value
+   End Sub
+
+   Private m_Lightness As Double
+   Public ReadOnly Property Lightness As Double
+      Get
+         Return m_Lightness
+      End Get
+   End Property
+   Friend Sub SetLightness(value As Double)
+      m_Lightness = value
+   End Sub
+
+   Sub New()
+   End Sub
+
+   Sub New(Hue As Double, Saturation As Double, Lightness As Double)
+      m_Hue = Hue
+      m_Saturation = Saturation
+      m_Lightness = Lightness
+   End Sub
+
+   'Private Shared Function HslToRgb(ByVal h As Double, ByVal s As Double, ByVal l As Double, ByRef r As Integer, ByRef g As Integer, ByRef b As Integer) As Boolean
+   '   Dim dConversionH As Double = Math.Round(h, MidpointRounding.AwayFromZero)
+   '   Dim dConversionS As Double = Math.Round(s, 2)
+   '   Dim dConversionL As Double = Math.Round(l, 2)
+   '   Dim C As Double = (1 - Math.Abs(2 * dConversionL - 1)) * dConversionS
+   '   Dim X = C * (1 - Math.Abs((dConversionH / 60) Mod 2 - 1))
+   '   Dim m = dConversionL - C / 2
+   '   Dim dRPrimo As Double
+   '   Dim dGPrimo As Double
+   '   Dim dBPrimo As Double
+
+   '   If dConversionH >= 0 Then
+   '      If dConversionH < 60 Then
+   '         dRPrimo = C
+   '         dGPrimo = X
+   '         dBPrimo = 0
+   '      ElseIf dConversionH < 120 Then
+   '         dRPrimo = X
+   '         dGPrimo = C
+   '         dBPrimo = 0
+   '      ElseIf dConversionH < 180 Then
+   '         dRPrimo = 0
+   '         dGPrimo = C
+   '         dBPrimo = X
+   '      ElseIf dConversionH < 240 Then
+   '         dRPrimo = 0
+   '         dGPrimo = X
+   '         dBPrimo = C
+   '      ElseIf dConversionH < 300 Then
+   '         dRPrimo = X
+   '         dGPrimo = 0
+   '         dBPrimo = C
+   '      ElseIf dConversionH < 360 Then
+   '         dRPrimo = C
+   '         dGPrimo = 0
+   '         dBPrimo = X
+   '      End If
+   '   End If
+
+   '   r = (dRPrimo + m) * 255
+   '   g = (dGPrimo + m) * 255
+   '   b = (dBPrimo + m) * 255
+   'End Function
+
+   Friend Shared Function HslToRgb(ByVal h As Double, ByVal s As Double, ByVal l As Double) As Color
+      Dim dConversionH As Double = Math.Round(h, MidpointRounding.AwayFromZero)
+      Dim dConversionS As Double = Math.Round(s, 2)
+      Dim dConversionL As Double = Math.Round(l, 2)
+      Dim C As Double = (1 - Math.Abs(2 * dConversionL - 1)) * dConversionS
+      Dim X = C * (1 - Math.Abs((dConversionH / 60) Mod 2 - 1))
+      Dim m = dConversionL - C / 2
+      Dim dRPrimo As Double
+      Dim dGPrimo As Double
+      Dim dBPrimo As Double
+
+      If dConversionH >= 0 Then
+         If dConversionH < 60 Then
+            dRPrimo = C
+            dGPrimo = X
+            dBPrimo = 0
+         ElseIf dConversionH < 120 Then
+            dRPrimo = X
+            dGPrimo = C
+            dBPrimo = 0
+         ElseIf dConversionH < 180 Then
+            dRPrimo = 0
+            dGPrimo = C
+            dBPrimo = X
+         ElseIf dConversionH < 240 Then
+            dRPrimo = 0
+            dGPrimo = X
+            dBPrimo = C
+         ElseIf dConversionH < 300 Then
+            dRPrimo = X
+            dGPrimo = 0
+            dBPrimo = C
+         ElseIf dConversionH < 360 Then
+            dRPrimo = C
+            dGPrimo = 0
+            dBPrimo = X
+         End If
+      End If
+
+      Dim r As Double = Math.Floor((dRPrimo + m) * 255)
+      Dim g As Double = Math.Floor((dGPrimo + m) * 255)
+      Dim b As Double = Math.Floor((dBPrimo + m) * 255)
+      Return Color.FromArgb(255, r, g, b)
+   End Function
+
+   Friend Shared Function HslToRgb(HSLColor As HSLColor) As Color
+      Return HslToRgb(HSLColor.Hue, HSLColor.Saturation, HSLColor.Lightness)
+   End Function
+
+   Friend Shared Function RgbToHsl(ByVal r As Integer, ByVal g As Integer, ByVal b As Integer, ByRef h As Double, ByRef s As Double, ByRef l As Double) As Boolean
+      Dim dRPrimo As Double = r / 255
+      Dim dGPrimo As Double = g / 255
+      Dim dBPrimo As Double = b / 255
+      Dim CMax As Double = Math.Max(dRPrimo, Math.Max(dGPrimo, dBPrimo))
+      Dim CMin As Double = Math.Min(dRPrimo, Math.Min(dGPrimo, dBPrimo))
+      Dim Delta As Double = CMax - CMin
+      If Delta = 0 Then
+         h = 0
+      ElseIf CMax = dRPrimo Then
+         Dim hMod = (((dGPrimo - dBPrimo) / Delta) Mod 6)
+         If hMod < 0 Then
+            h = 60 * (hMod + 6)
+         Else
+            h = 60 * hMod
+         End If
+      ElseIf CMax = dGPrimo Then
+         h = 60 * ((dBPrimo - dRPrimo) / Delta + 2)
+      ElseIf CMax = dBPrimo Then
+         h = 60 * ((dRPrimo - dGPrimo) / Delta + 4)
+      End If
+
+      l = (CMax + CMin) / 2
+
+      If Delta = 0 Then
+         s = 0
+      Else
+         s = Delta / (1 - Math.Abs(2 * l - 1))
+      End If
+      h = Math.Round(h, 1)
+      s = Math.Round(s, 1)
+      l = Math.Round(l, 1)
+      Return True
+   End Function
+
+   Friend Shared Function RgbToHsl(RgbColor As Color, ByRef h As Double, ByRef s As Double, ByRef l As Double) As Boolean
+      Return RgbToHsl(RgbColor.R, RgbColor.G, RgbColor.B, h, s, l)
+   End Function
+
+   Friend Shared Function RgbToHsl(RgbColor As System.Drawing.Color, ByRef h As Double, ByRef s As Double, ByRef l As Double) As Boolean
+      Return RgbToHsl(RgbColor.R, RgbColor.G, RgbColor.B, h, s, l)
+   End Function
+   Friend Shared Function RgbToHsl(RgbColor As System.Drawing.Color) As HSLColor
+      Dim h, s, l As Double
+      RgbToHsl(RgbColor.R, RgbColor.G, RgbColor.B, h, s, l)
+      Dim NewHSLColor As New HSLColor(h, s, l)
+      Return NewHSLColor
+   End Function
+
+End Class

Icarus/EgtManageFileDialog/EgtManageFileDialogV.xaml

@@ -0,0 +1,407 @@
+<EgtWPFLib5:EgtMainWindow  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"
+                           xmlns:local="clr-namespace:Icarus"                   
+                           Title="{Binding sTitle}"
+                           Height="500"
+                           Width="800"
+                           WindowStartupLocation="CenterOwner"
+                           Style="{StaticResource Dialog_Window}">
+   <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}"
+                 HorizontalAlignment="Right"
+                 Margin="2.5,0,5,0"
+                 BorderBrush="Transparent"
+                 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}"
+                   Width="200"
+                   Height="30"
+                   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"
+                   Foreground="{StaticResource Icarus_Gray}">
+            <TreeView.Resources>
+               <HierarchicalDataTemplate DataType="{x:Type local: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 local: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 local: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 local: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 local: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 local:EgtDirectory}">
+                        <ContentControl Content="{Binding}">
+                           <ContentControl.Style>
+                              <Style TargetType="{x:Type ContentControl}">
+                                 <Style.Triggers>
+                                    <DataTrigger  Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtMainWindow}}}" Value="0">
+                                       <Setter Property="ContentTemplate" Value="{StaticResource ListTemplateView}" />
+                                    </DataTrigger>
+                                    <DataTrigger  Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtMainWindow}}}" Value="1">
+                                       <Setter Property="ContentTemplate" Value="{StaticResource TilesTemplateView}" />
+                                    </DataTrigger>
+                                    <DataTrigger  Binding="{Binding DataContext.nSelTempleteListView, RelativeSource={RelativeSource AncestorType={x:Type EgtWPFLib5:EgtMainWindow}}}" 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:EgtMainWindow}}}"
+                                        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:EgtMainWindow}}}"
+                                        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:EgtMainWindow}}}"
+                                        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:EgtMainWindow}}}"/>
+                  </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"
+                   Width="200"
+                   Height="30"
+                   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:EgtMainWindow>

Icarus/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

Icarus/EgtManageFileDialog/EgtManageFileDialogVM.vb

@@ -0,0 +1,965 @@
+Imports System.Collections.ObjectModel
+Imports System.IO
+Imports System.Windows.Forms
+Imports EgtWPFLib5
+Imports EgtUILib
+Imports System.Data
+
+Public Class EgtManageFileDialogVM
+   Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+   Public Enum VisualizationContainerType As Integer
+      LISTBOX = 0
+      DATAGRID = 1
+   End Enum
+
+   Public Enum VisualizationType As Integer
+      LISTTEMPLATE = 0
+      TILESTEMPLATE = 1
+      CONTENTTEMPLATE = 2
+      DETAILSTEMPLATE = 3
+   End Enum
+
+   Public Enum ModeTypes As Integer
+      FILE = 1
+      FOLDER = 2
+   End Enum
+
+   Private m_sTitle As String
+   Public Property sTitle As String
+      Get
+         Return m_sTitle
+      End Get
+      Set(value As String)
+         m_sTitle = value
+      End Set
+   End Property
+
+   'Scelta della modalità di salvataggio 1 = file 2 = folder 
+   Private m_nMode As Integer
+   Public Property nMode As Integer
+      Get
+         Return m_nMode
+      End Get
+      Set(value As Integer)
+         m_nMode = value
+      End Set
+   End Property
+
+   Private m_bCheckFileExists As Boolean
+   Public Property bCheckFileExists As Boolean
+      Get
+         Return m_bCheckFileExists
+      End Get
+      Set(value As Boolean)
+         m_bCheckFileExists = value
+      End Set
+   End Property
+
+   Private m_bValidateNames As Boolean
+   Public Property bValidateNames As Boolean
+      Get
+         Return m_bValidateNames
+      End Get
+      Set(value As Boolean)
+         m_bValidateNames = value
+      End Set
+   End Property
+
+   Private m_bOverwritePrompt As Boolean
+   Public Property bOverwritePrompt As Boolean
+      Get
+         Return m_bOverwritePrompt
+      End Get
+      Set(value As Boolean)
+         m_bOverwritePrompt = value
+      End Set
+   End Property
+
+   Private m_RootList As New ObservableCollection(Of EgtDirectory)
+   Public Property RootList As ObservableCollection(Of EgtDirectory)
+      Get
+         Return m_RootList
+      End Get
+      Set(value As ObservableCollection(Of EgtDirectory))
+         m_RootList = value
+      End Set
+   End Property
+
+   Public m_SelTreeItem As EgtDirectory
+   Public Property SelTreeItem As EgtDirectory
+      Get
+         Return m_SelTreeItem
+      End Get
+      Set(value As EgtDirectory)
+         m_SelTreeItem = value
+         NotifyPropertyChanged(NameOf(SelTreeItem))
+      End Set
+   End Property
+   Friend Sub UpdateSelTreeItem(Item As EgtDirectory)
+      m_SelTreeItem = Item
+      NotifyPropertyChanged(NameOf(SelTreeItem))
+   End Sub
+
+   Public m_ItemSelected As EgtDirectory
+   Public Property ItemSelected As EgtDirectory
+      Get
+         Return m_ItemSelected
+      End Get
+      Set(value As EgtDirectory)
+         m_ItemSelected = value
+         Dim Item As EgtItem = TryCast(m_ItemSelected, EgtItem)
+         If Not IsNothing(Item) Then
+            sSaveFileName = Item.sName
+         Else
+            Dim Folder As EgtFolder = TryCast(m_ItemSelected, EgtFolder)
+            If Not IsNothing(Folder) Then
+               sSaveFileName = Folder.sName
+            End If
+         End If
+      End Set
+   End Property
+   Friend Sub SetItemSelected(value As EgtDirectory)
+      m_ItemSelected = value
+      NotifyPropertyChanged(NameOf(ItemSelected))
+   End Sub
+
+   'Percorso del file o della cartella
+   Private m_sSelPath As String
+   Public Overloads Property sSelPath As String
+      Get
+         Return m_sSelPath
+      End Get
+      Set(value As String)
+         m_sSelPath = value
+         NotifyPropertyChanged(NameOf(sSelPath))
+      End Set
+   End Property
+
+   'Textbox per visualizzare il file o la folder selezionata
+   Private m_sSaveFileName As String
+   Public Property sSaveFileName As String
+      Get
+         Return m_sSaveFileName
+      End Get
+      Set(value As String)
+         m_sSaveFileName = value
+         NotifyPropertyChanged(NameOf(sSaveFileName))
+      End Set
+   End Property
+
+   'Lista filtri estensione
+   Private m_FilterList As ObservableCollection(Of EgtExstension)
+   Public Property FilterList As ObservableCollection(Of EgtExstension)
+      Get
+         Return m_FilterList
+      End Get
+      Set(value As ObservableCollection(Of EgtExstension))
+         m_FilterList = value
+      End Set
+   End Property
+
+   'Scelta filtro estensione per visualizzazione
+   Public m_SelFilter As EgtExstension
+   Public Property SelFilter As EgtExstension
+      Get
+         Return m_SelFilter
+      End Get
+      Set(value As EgtExstension)
+         m_SelFilter = value
+         Dim CurrItem As EgtFolder = TryCast(m_SelTreeItem, EgtFolder)
+         If Not IsNothing(CurrItem) Then
+            CollectionViewSource.GetDefaultView(CurrItem.FolderList).Refresh()
+         End If
+      End Set
+   End Property
+
+   ' Lista modalita' di visualizzazione
+   Private m_ViewModeList As ObservableCollection(Of IdNameStruct)
+   Public Property ViewModeList As ObservableCollection(Of IdNameStruct)
+      Get
+         Return m_ViewModeList
+      End Get
+      Set(value As ObservableCollection(Of IdNameStruct))
+         m_ViewModeList = value
+      End Set
+   End Property
+
+   'Scelta modalita' di visualizzazione
+   Private m_SelViewMode As IdNameStruct
+   Public Property SelViewMode As IdNameStruct
+      Get
+         Return m_SelViewMode
+      End Get
+      Set(value As IdNameStruct)
+         m_SelViewMode = value
+         Select Case m_SelViewMode.Id
+            Case VisualizationType.LISTTEMPLATE
+               m_nSelTab = VisualizationContainerType.LISTBOX
+               nSelTempleteListView = 0
+               WriteMainPrivateProfileString(S_TEMPLETESEL, K_CURRTEMPLETESEL, VisualizationType.LISTTEMPLATE)
+            Case VisualizationType.TILESTEMPLATE
+               m_nSelTab = VisualizationContainerType.LISTBOX
+               nSelTempleteListView = 1
+               WriteMainPrivateProfileString(S_TEMPLETESEL, K_CURRTEMPLETESEL, VisualizationType.TILESTEMPLATE)
+            Case VisualizationType.CONTENTTEMPLATE
+               m_nSelTab = VisualizationContainerType.LISTBOX
+               nSelTempleteListView = 2
+               WriteMainPrivateProfileString(S_TEMPLETESEL, K_CURRTEMPLETESEL, VisualizationType.CONTENTTEMPLATE)
+            Case VisualizationType.DETAILSTEMPLATE
+               m_nSelTab = VisualizationContainerType.DATAGRID
+               WriteMainPrivateProfileString(S_TEMPLETESEL, K_CURRTEMPLETESEL, VisualizationType.DETAILSTEMPLATE)
+         End Select
+         NotifyPropertyChanged(NameOf(nSelTab))
+      End Set
+   End Property
+
+   ' Indice modalita' di visualizzazione
+   Private m_nSelViewModeIndex As Integer
+   Public Property nSelViewModeIndex As Integer
+      Get
+         Return m_nSelViewModeIndex
+      End Get
+      Set(value As Integer)
+         m_nSelViewModeIndex = value
+      End Set
+   End Property
+
+   ' indice di selezione del TabControl che cambia la ListBox/DataGrid
+   Private m_nSelTab As Integer
+   Public Property nSelTab As Integer
+      Get
+         Return m_nSelTab
+      End Get
+      Set(value As Integer)
+         m_nSelTab = value
+      End Set
+   End Property
+
+#Region "Initial data from window opening"
+
+   ' Indice del filtro estensione impostato durante creazione finestra
+   Private m_nFilterIndex As Integer
+   Public Property nFilterIndex As Integer
+      Get
+         Return m_nFilterIndex
+      End Get
+      Set(value As Integer)
+         m_nFilterIndex = value
+         m_SelFilter = m_FilterList.FirstOrDefault(Function(x) x.nIndexExstension = m_nFilterIndex)
+      End Set
+   End Property
+
+   ' lista delle estensioni impostata durante creazione finestra
+   Private m_sFilter As String
+   Public Property sFilter As String
+      Get
+         Return m_sFilter
+      End Get
+      Set(value As String)
+         m_sFilter = value
+         Dim nIndex As Integer = 1
+         If Not IsNothing(sFilter) Then
+            Dim FilterListSplit As String() = sFilter.Split("|"c)
+            For i As Integer = 0 To FilterListSplit.Count - 1
+               If i Mod 2 = 0 Then
+                  Dim strExstension As New EgtExstension() With {.m_nIndexExstension = nIndex, .m_sNameExstension = FilterListSplit(i), .m_sExstension = FilterListSplit(i + 1)}
+                  m_FilterList.Add(strExstension)
+                  nIndex += 1
+               End If
+            Next
+         End If
+      End Set
+   End Property
+
+   ' Path della cartella iniziale impostata durante creazione finestra
+   Private m_sInitialDirectory As String
+   Public Property sInitialDirectory As String
+      Get
+         Return m_sInitialDirectory
+      End Get
+      Set(value As String)
+         m_sInitialDirectory = value
+         If m_sFileName = String.Empty Then m_sSaveFileName = "New.icrs"
+         m_sSelPath = m_sInitialDirectory
+
+         Dim DirectoryStart As String() = m_sInitialDirectory.Split("\"c)
+         Dim m_RootListTmp As New ObservableCollection(Of EgtDirectory)
+         Dim dir As EgtDirectory
+         Dim count As Integer = 1
+         Dim currItem As EgtFolder
+         m_RootListTmp = m_RootList
+
+         For Each directory As String In DirectoryStart
+            dir = m_RootListTmp.FirstOrDefault(Function(x) x.sName.Trim("\") = directory)
+            dir.IsExpanded = True
+            currItem = TryCast(dir, EgtFolder)
+            m_RootListTmp = currItem.FolderList
+            If count = DirectoryStart.Count Then
+               dir.IsSelected = True
+            Else
+               count += 1
+            End If
+         Next
+
+         'For i As Integer = 0 To m_RootList.Count - 1
+         '   If m_RootList(i).sName.Trim("\") = DirectoryStart(0) Then
+         '      m_RootList(i).IsExpanded = True
+         '      Dim CurrItem As EgtFolder = TryCast(m_RootList(i), EgtFolder)
+         '      If Not IsNothing(CurrItem) Then
+         '         For j As Integer = 0 To CurrItem.FolderList.Count - 1
+         '            If CurrItem.FolderList(j).sName = DirectoryStart(1) Then
+         '               CurrItem.FolderList(j).IsExpanded = True
+         '               Dim ItemFolder As EgtFolder = TryCast(CurrItem.FolderList(j), EgtFolder)
+         '               If Not IsNothing(ItemFolder) Then
+         '                  For y As Integer = 0 To ItemFolder.FolderList.Count - 1
+         '                     If ItemFolder.FolderList(y).sName = DirectoryStart(2) Then
+         '                        ItemFolder.FolderList(y).IsExpanded = True
+         '                        ItemFolder.FolderList(y).IsSelected = True
+         '                     End If
+         '                  Next
+         '               End If
+         '            End If
+         '         Next
+         '      End If
+         '   End If
+         'Next
+      End Set
+   End Property
+
+   ' Nome del file iniziale impostato durante creazione finestra
+   Private m_sFileName As String
+   Public Property sFileName As String
+      Get
+         Return m_sFileName
+      End Get
+      Set(value As String)
+         m_sFileName = value
+         m_sSaveFileName = Path.GetFileName(m_sFileName)
+      End Set
+   End Property
+
+#End Region    ' Initial data from window opening
+
+   ' Scelta per la visualizzazione del templete della lista
+   Private m_nSelTempleteListView As Integer
+   Public Property nSelTempleteListView As Integer
+      Get
+         Return m_nSelTempleteListView
+      End Get
+      Set(value As Integer)
+         m_nSelTempleteListView = value
+         NotifyPropertyChanged(NameOf(nSelTempleteListView))
+      End Set
+   End Property
+
+#Region "Messages"
+
+   Public ReadOnly Property Name_Msg As String
+      Get
+         Return EgtMsg(15060)
+      End Get
+   End Property
+
+   Public ReadOnly Property LastModify_Msg As String
+      Get
+         Return EgtMsg(15061)
+      End Get
+   End Property
+
+   Public ReadOnly Property Type_Msg As String
+      Get
+         Return EgtMsg(15062)
+      End Get
+   End Property
+
+   Public ReadOnly Property Dimension_Msg As String
+      Get
+         Return EgtMsg(15063)
+      End Get
+   End Property
+
+   Public ReadOnly Property FileName_Msg As String
+      Get
+         Return If(m_nMode = ModeTypes.FILE, EgtMsg(15065), EgtMsg(15066))                ' File Name          Folder Name
+      End Get
+   End Property
+
+#End Region
+
+   'Comandi
+   Private m_cmdCancel As ICommand
+   Private m_cmdOk As ICommand
+   Private m_cmdGoBack As ICommand
+   Private m_cmdDoubleClick As ICommand
+   Friend Event m_CloseWindow(bDialogResult As DialogResult)
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONTRUCTORS"
+
+   Sub New()
+      m_RootList.Clear()
+      EgtDirectory.refUpdateSelTreeItem = AddressOf UpdateSelTreeItem
+      Dim drives As DriveInfo() = DriveInfo.GetDrives().Where(Function(d) d.IsReady).ToArray()
+
+      m_FilterList = New ObservableCollection(Of EgtExstension)
+
+      EgtFolder.SetEgtManageFileDialogVM(Me)
+
+      For i As Integer = 0 To drives.Count() - 1
+         Dim directory As New EgtFolder(drives(i).RootDirectory, Nothing, "\Resources\EgtDialog\Root.png")
+         m_RootList.Add(directory)
+      Next
+
+      m_SelFilter = New EgtExstension()
+      SetVisualizzationList()
+
+      Dim IndexTemplete As Integer = GetMainPrivateProfileInt(S_TEMPLETESEL, K_CURRTEMPLETESEL, VisualizationContainerType.DATAGRID)
+
+      SelViewMode = m_ViewModeList.FirstOrDefault(Function(x) x.Id = IndexTemplete)
+      'If IndexTemplete = 3 Then
+      '   m_nSelTab = VisualizationContainerType.DATAGRID
+      'Else
+      '   nSelTempleteListView = IndexTemplete
+      'End If
+
+      NotifyPropertyChanged(NameOf(RootList))
+      NotifyPropertyChanged(NameOf(FilterList))
+      NotifyPropertyChanged(NameOf(ViewModeList))
+      NotifyPropertyChanged(NameOf(FileName_Msg))
+      NotifyPropertyChanged(NameOf(SelViewMode))
+   End Sub
+
+#End Region    ' CONTRUCTORS
+
+
+#Region "METHODS"
+
+   'Private Function RootListFilter(CurrItem As Object) As Boolean
+   '   Return TypeOf CurrItem Is EgtFolder
+   'End Function
+
+   ''' <summary>
+   ''' Inizializza la ComboBox per la scelta dei template
+   ''' </summary>
+   Private Sub SetVisualizzationList()
+      m_ViewModeList = New ObservableCollection(Of IdNameStruct)
+      Dim ItemVisualization As New IdNameStruct With {
+         .Id = 0,
+         .Name = EgtMsg(15067)      'List Templete
+      }
+      m_ViewModeList.Add(ItemVisualization)
+      ItemVisualization.Id = 3
+      ItemVisualization.Name = EgtMsg(15068)    'Detalis Templete
+      m_ViewModeList.Add(ItemVisualization)
+      ItemVisualization.Id = 1
+      ItemVisualization.Name = EgtMsg(15069)    'Tiles Templete
+      m_ViewModeList.Add(ItemVisualization)
+      ItemVisualization.Id = 2
+      ItemVisualization.Name = EgtMsg(15070)    'Content Templete
+      m_ViewModeList.Add(ItemVisualization)
+   End Sub
+
+   'Private Sub Directory_PropertyChanged(sender As Object, e As PropertyChangedEventArgs)
+   '   If e.PropertyName = "IsSelected" Then
+   '      'UpdateSelRoot()
+   '   End If
+   'End Sub
+
+#End Region
+
+#Region "COMMANDS"
+
+#Region "Ok"
+
+   Public ReadOnly Property Ok_Command As ICommand
+      Get
+         If m_cmdOk Is Nothing Then
+            m_cmdOk = New Command(AddressOf Ok)
+         End If
+         Return m_cmdOk
+      End Get
+   End Property
+
+   Public Sub Ok()
+      Dim CurrItem As EgtItem = TryCast(m_ItemSelected, EgtItem)
+      Dim simbolsCharacter As String() = {"<"c, ">"c, ":"c, "'"c, "/"c, "\"c, "|"c, "?"c, "*"c,
+                                          "CON", "PRN", "AUX", "NUL", "COM0", "COM1", "COM2", "COM3", "COM4", "COM5", "COM6", "COM7", "COM8", "COM9",
+                                          "LPT0", "LPT1", "LPT2", "LPT3", "LPT4", "LPT5", "LPT6", "LPT7", "LPT8", "LPT9"}
+
+      If nMode = ModeTypes.FILE Then
+         If Not IsNothing(CurrItem) And m_bCheckFileExists And m_bValidateNames Then
+            For Each simbol As String In simbolsCharacter
+               If m_sSaveFileName.Contains(simbol) Then
+                  If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(15072), sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.Cancel Then
+                     sSaveFileName = CurrItem.sName
+                     Return
+                  End If
+               Else
+                  m_sFileName = m_SelTreeItem.sFullName & "\" & m_sSaveFileName
+               End If
+            Next
+         ElseIf m_bValidateNames = False And m_bOverwritePrompt Then
+            If Not IsNothing(CurrItem) Then
+               If m_sFileName.Equals(m_sSaveFileName) OrElse m_sSaveFileName.Equals(CurrItem.sName) Then
+                  If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(15073), sTitle, MessageBoxButton.YesNo, MessageBoxImage.Warning) = MessageBoxResult.No Then
+                     Return
+                  End If
+               End If
+            Else
+               m_sFileName = m_SelTreeItem.sFullName & "\" & m_sSaveFileName
+            End If
+         Else
+            m_sFileName = m_SelTreeItem.sFullName & "\" & m_sSaveFileName
+         End If
+      ElseIf nMode = ModeTypes.FOLDER Then
+         For Each simbol As String In simbolsCharacter
+            If m_sSaveFileName.Contains(simbol) Then
+               If EgtMessageBoxV.Show(Application.Current.MainWindow, EgtMsg(15072), sTitle, MessageBoxButton.OKCancel, MessageBoxImage.Error) = MessageBoxResult.Cancel Then
+                  Return
+               End If
+            Else
+               m_sFileName = m_SelTreeItem.sFullName
+            End If
+         Next
+      End If
+      RaiseEvent m_CloseWindow(DialogResult.OK)
+   End Sub
+
+#End Region    'Ok
+
+#Region "GoBack"
+
+   Public ReadOnly Property GoBack_Command As ICommand
+      Get
+         If m_cmdGoBack Is Nothing Then
+            m_cmdGoBack = New Command(AddressOf GoBack)
+         End If
+         Return m_cmdGoBack
+      End Get
+   End Property
+
+   Public Sub GoBack()
+      If Not IsNothing(m_SelTreeItem) AndAlso Not IsNothing(m_SelTreeItem.m_ParentFolder) Then
+         If TypeOf m_SelTreeItem.m_ParentFolder Is EgtFolder Then
+            Dim CurrParentFolder As EgtFolder = DirectCast(m_SelTreeItem.m_ParentFolder, EgtFolder)
+            CurrParentFolder.SetIsSelected(True, False)
+         End If
+         m_sSelPath = DirectCast(m_SelTreeItem, EgtFolder).sFullName
+         NotifyPropertyChanged(NameOf(sSelPath))
+      End If
+   End Sub
+
+#End Region    'GoBack
+
+#Region "Cancel"
+
+   Public ReadOnly Property Cancel_Command As ICommand
+      Get
+         If m_cmdCancel Is Nothing Then
+            m_cmdCancel = New Command(AddressOf Cancel)
+         End If
+         Return m_cmdCancel
+      End Get
+   End Property
+
+   Public Sub Cancel()
+      RaiseEvent m_CloseWindow(DialogResult.Cancel)
+   End Sub
+
+#End Region    'Cancel
+
+#Region "DoubleClick"
+
+   Public ReadOnly Property DoubleClick_Command As ICommand
+      Get
+         If m_cmdDoubleClick Is Nothing Then
+            m_cmdDoubleClick = New Command(AddressOf MouseDoubleClick)
+         End If
+         Return m_cmdDoubleClick
+      End Get
+   End Property
+
+   Public Sub MouseDoubleClick()
+      m_ItemSelected.IsExpanded = True
+      If TypeOf m_ItemSelected Is EgtFolder Then
+         Dim CurrItemSelected As EgtFolder = DirectCast(m_ItemSelected, EgtFolder)
+         CurrItemSelected.SetIsSelected(True, True)
+         m_sSelPath = CurrItemSelected.sFullName
+      Else
+         m_ItemSelected.IsSelected = True
+      End If
+      NotifyPropertyChanged(NameOf(sSelPath))
+   End Sub
+
+#End Region    'DoubleClick
+
+#End Region    ' COMMANDS
+
+End Class
+
+Public Class EgtExstension
+   Inherits VMBase
+
+   ' Indice estensione
+   Public m_nIndexExstension As Integer
+   Public Property nIndexExstension As Integer
+      Get
+         Return m_nIndexExstension
+      End Get
+      Set(value As Integer)
+         m_nIndexExstension = value
+         NotifyPropertyChanged(NameOf(nIndexExstension))
+      End Set
+   End Property
+
+   ' Nome della stringa Filter Splittata           m_sNameExstension = Icarus project
+   Public m_sNameExstension As String
+   Public Property sNameExstension As String
+      Get
+         Return m_sNameExstension
+      End Get
+      Set(value As String)
+         m_sNameExstension = value
+         NotifyPropertyChanged(NameOf(sNameExstension))
+      End Set
+   End Property
+
+   ' Estensione della stringa Filter Splittata     m_sExstension = *.icrs
+   Public m_sExstension As String
+   Public Property sExstension As String
+      Get
+         Return m_sExstension
+      End Get
+      Set(value As String)
+         m_sExstension = value
+         NotifyPropertyChanged(NameOf(sExstension))
+      End Set
+   End Property
+
+End Class
+
+Public MustInherit Class EgtDirectory
+   Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+   Friend Shared refUpdateSelTreeItem As Action(Of EgtDirectory)
+
+   Friend Shared m_refEgtManageFileDialogVM As EgtManageFileDialogVM
+   Friend Shared Sub SetEgtManageFileDialogVM(EgtManageFileDialogVM As EgtManageFileDialogVM)
+      m_refEgtManageFileDialogVM = EgtManageFileDialogVM
+   End Sub
+
+   Protected m_bIsSelected As Boolean
+   Public MustOverride Property IsSelected As Boolean
+
+   Protected m_bIsExpanded As Boolean
+   Public Overridable Property IsExpanded As Boolean
+
+   Public MustOverride ReadOnly Property sFullName As String
+
+   Protected m_sName As String
+   Public MustOverride ReadOnly Property sName As String
+
+   Protected m_sIconSource As String
+   Public Overridable ReadOnly Property sIconSource As String
+      Get
+         Return m_sIconSource
+      End Get
+   End Property
+
+   Protected m_sTypeItem As String
+   Public MustOverride ReadOnly Property sTypeItem As String
+
+   Protected m_ghTypeItem As String
+   Public Overridable ReadOnly Property ghTypeItem As String
+
+   Protected m_dtLastModifyDate As Date
+   Public MustOverride ReadOnly Property sLastModifyDate As String
+
+   Public m_ParentFolder As EgtFolder
+   Public Property ParentFolder As EgtFolder
+      Get
+         Return m_ParentFolder
+      End Get
+      Set(value As EgtFolder)
+         m_ParentFolder = value
+      End Set
+   End Property
+
+#End Region    ' FIELDS & PROPERTIES
+
+End Class
+
+Public Class EgtFolder
+   Inherits EgtDirectory
+
+#Region "FIELDS & PROPERTIES"
+
+   Private m_ItemList_View As CollectionView = Nothing
+   Private m_TreeItemList_ViewSource As CollectionViewSource = Nothing
+   Private m_TreeItemList_View As CollectionView = Nothing
+   Public ReadOnly Property TreeItemList_View As CollectionView
+      Get
+         Return m_TreeItemList_View
+      End Get
+   End Property
+
+   Private m_DirectoryInfo As DirectoryInfo
+
+   Private m_FolderList As New ObservableCollection(Of EgtDirectory)
+   Public Property FolderList As ObservableCollection(Of EgtDirectory)
+      Get
+         Return m_FolderList
+      End Get
+      Set(value As ObservableCollection(Of EgtDirectory))
+         m_FolderList = value
+      End Set
+   End Property
+
+   Public Overrides ReadOnly Property sFullName As String
+      Get
+         Return m_DirectoryInfo.FullName
+      End Get
+   End Property
+
+   Public Overrides ReadOnly Property sName As String
+      Get
+         Return m_DirectoryInfo.Name
+      End Get
+   End Property
+
+   Public Overrides ReadOnly Property sTypeItem As String
+      Get
+         Return EgtMsg(15064)
+      End Get
+   End Property
+
+   Public Overrides ReadOnly Property sLastModifyDate As String
+      Get
+         Return m_DirectoryInfo.LastWriteTime.ToString("dd/MM/yyyy HH:mm:ss")
+      End Get
+   End Property
+
+   Public Overrides Property IsExpanded As Boolean
+      Get
+         Return m_bIsExpanded
+      End Get
+      Set(value As Boolean)
+         m_bIsExpanded = value
+         NotifyPropertyChanged(NameOf(IsExpanded))
+         If m_bIsExpanded Then
+            SetFolderList()
+         End If
+      End Set
+   End Property
+
+   Public Overrides Property IsSelected As Boolean
+      Get
+         Return m_bIsSelected
+      End Get
+      Set(value As Boolean)
+         m_bIsSelected = value
+         m_refEgtManageFileDialogVM.sSelPath = m_DirectoryInfo.FullName
+         If m_bIsSelected Then
+            SetFolderList()
+            refUpdateSelTreeItem(Me)
+            NotifyPropertyChanged(NameOf(IsSelected))
+         End If
+      End Set
+   End Property
+   Friend Sub SetIsSelected(value As Boolean, bRefreshList As Boolean)
+      Dim sSelListItemPath As String = ""
+      If Not IsNothing(m_refEgtManageFileDialogVM.SelTreeItem) Then
+         sSelListItemPath = m_refEgtManageFileDialogVM.SelTreeItem.sFullName
+      End If
+      m_bIsSelected = value
+      m_refEgtManageFileDialogVM.sSelPath = m_DirectoryInfo.FullName
+      If m_bIsSelected Then
+         If bRefreshList Then SetFolderList()
+         refUpdateSelTreeItem(Me)
+      End If
+      If Not IsNothing(sSelListItemPath) Then
+         Dim SelFolderItem As EgtDirectory = m_FolderList.FirstOrDefault(Function(x) x.sFullName = sSelListItemPath)
+         If Not IsNothing(SelFolderItem) Then
+            m_refEgtManageFileDialogVM.SetItemSelected(SelFolderItem)
+         End If
+      End If
+      NotifyPropertyChanged(NameOf(IsSelected))
+   End Sub
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONTRUCTORS"
+
+   Sub New()
+   End Sub
+
+   Sub New(DirectoryInfo As DirectoryInfo, Parent As EgtDirectory, Optional IconSource As String = "\Resources\EgtDialog\Folder.png")
+      m_DirectoryInfo = DirectoryInfo
+      m_sIconSource = IconSource
+      Try
+         If DirectoryInfo.EnumerateDirectories.Count > 0 Then
+            m_FolderList.Add(New EgtFolder())
+         End If
+      Catch ex As Exception
+      End Try
+      m_ParentFolder = Parent
+
+      m_ItemList_View = CollectionViewSource.GetDefaultView(m_FolderList)
+      m_ItemList_View.Filter = AddressOf ItemFilter
+      m_TreeItemList_ViewSource = New CollectionViewSource() With {.Source = m_FolderList}
+      m_TreeItemList_View = m_TreeItemList_ViewSource.View
+      m_TreeItemList_View.Filter = AddressOf TreeItemListFilter
+
+      NotifyPropertyChanged(NameOf(sName))
+      NotifyPropertyChanged(NameOf(sLastModifyDate))
+      NotifyPropertyChanged(NameOf(sTypeItem))
+      NotifyPropertyChanged(NameOf(sIconSource))
+      NotifyPropertyChanged(NameOf(FolderList))
+      NotifyPropertyChanged(NameOf(ParentFolder))
+   End Sub
+
+#End Region    '  CONTRUCTORS
+
+#Region "METHODS"
+
+   ''' <summary>
+   ''' Funzione per la visualizzazione delle sole cartelle nell'albero TreeView
+   ''' </summary>
+   ''' <param name="CurrItem"></param>
+   ''' <returns></returns>
+   Private Function TreeItemListFilter(CurrItem As Object) As Boolean
+      Return TypeOf CurrItem Is EgtFolder
+   End Function
+
+   ''' <summary>
+   ''' Funzione per il controllo del filtro per i singoli Item    se l'estensione scelta e' .icrs verrano visualizzati tutti i file con l'estensione .icrs
+   ''' </summary>
+   ''' <param name="Item"></param>
+   ''' <returns></returns>
+   Private Function ItemFilter(Item As Object) As Boolean
+      Dim CurrItem As EgtItem = TryCast(Item, EgtItem)
+      If Not IsNothing(CurrItem) AndAlso Not IsNothing(m_refEgtManageFileDialogVM.m_SelFilter.m_sExstension) Then
+         If CurrItem.sTypeItem = m_refEgtManageFileDialogVM.m_SelFilter.m_sExstension.TrimStart("*") Then
+            Return True
+         ElseIf m_refEgtManageFileDialogVM.m_SelFilter.m_sExstension.TrimStart("*") = ".*" Then
+            Return True
+         Else
+            Return False
+         End If
+      End If
+      Return True
+   End Function
+
+   ''' <summary>
+   ''' Funzione per popolare la lista FolderList
+   ''' </summary>
+   Private Sub SetFolderList()
+      Dim DirectoryList() As DirectoryInfo
+      Dim FileList() As FileInfo
+      Try
+         DirectoryList = m_DirectoryInfo.GetDirectories().Where(Function(file) (file.Attributes And FileAttributes.Hidden And file.Name <> EgtMsg(15071)) = 0).ToArray()
+         FileList = m_DirectoryInfo.GetFiles().Where(Function(file) (file.Attributes And FileAttributes.Hidden) = 0).ToArray()
+      Catch ex As Exception
+         DirectoryList = Nothing
+         FileList = Nothing
+      End Try
+      m_FolderList.Clear()
+      If Not IsNothing(DirectoryList) AndAlso m_FolderList.Count = 0 Then
+         For Each subDir As DirectoryInfo In DirectoryList
+            Dim directory As New EgtFolder(subDir, Me)
+            m_FolderList.Add(directory)
+         Next
+      End If
+      If Not IsNothing(FileList) Then
+         For Each files As FileInfo In FileList
+            Dim file As New EgtItem(files)
+            m_FolderList.Add(file)
+         Next
+      End If
+   End Sub
+
+#End Region
+
+End Class
+
+Public Class EgtItem
+   Inherits EgtDirectory
+
+#Region "FIELDS & PROPERTIES"
+
+   Private m_FileInfo As FileInfo
+
+   Public Overrides ReadOnly Property sFullName As String
+      Get
+         Return m_FileInfo.FullName
+      End Get
+   End Property
+
+   Public Overrides ReadOnly Property sName As String
+      Get
+         Return m_FileInfo.Name
+      End Get
+   End Property
+
+   Public Overrides ReadOnly Property sTypeItem As String
+      Get
+         If Not IsNothing(m_FileInfo) AndAlso Not IsNothing(m_FileInfo.Extension) AndAlso Not String.IsNullOrWhiteSpace(m_FileInfo.Extension) Then
+            Return m_FileInfo.Extension
+         Else
+            Return ""
+         End If
+      End Get
+   End Property
+
+   Public Overrides ReadOnly Property ghTypeItem As String
+      Get
+         Return If(Not String.IsNullOrWhiteSpace(sTypeItem), "File " & sTypeItem.ToUpper(), "")
+      End Get
+   End Property
+
+   Public ReadOnly Property sDimension As String
+      Get
+         Return If(m_FileInfo.Length / 1024 / 1024 > 1, String.Format("{0:#,##0.00}", m_FileInfo.Length / 1024 / 1024) & " Mb", String.Format("{0:#,##0.00}", m_FileInfo.Length / 1024) & " Kb")
+      End Get
+   End Property
+
+   Public Overrides ReadOnly Property sLastModifyDate As String
+      Get
+         Return m_FileInfo.LastWriteTime.ToString("dd/MM/yyyy HH:mm:ss")
+      End Get
+   End Property
+
+   Public Overrides Property IsSelected As Boolean
+      Get
+         Return m_bIsSelected
+      End Get
+      Set(value As Boolean)
+         m_bIsSelected = value
+         refUpdateSelTreeItem(Me)
+      End Set
+   End Property
+
+#End Region    ' FIELDS & PROPERTIES
+
+#Region "CONTRUCTORS"
+
+   Sub New(FileInfo As FileInfo)
+      m_FileInfo = FileInfo
+      m_sIconSource = "\Resources\EgtDialog\New.png"
+      NotifyPropertyChanged(NameOf(sName))
+      NotifyPropertyChanged(NameOf(sDimension))
+      NotifyPropertyChanged(NameOf(sLastModifyDate))
+      NotifyPropertyChanged(NameOf(sTypeItem))
+      NotifyPropertyChanged(NameOf(sIconSource))
+   End Sub
+
+#End Region    '  CONTRUCTORS
+
+End Class
+

Icarus/EgtMessageBox/EgtMessageBoxV.xaml

@@ -0,0 +1,55 @@
+<EgtWPFLib5:EgtMainWindow 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"
+                          Style="{StaticResource Dialog_Window}">
+   <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>
+      <!--<UniformGrid Grid.Column="1"
+                   Grid.Row="1"
+                   Rows="1">
+         <Button IsCancel="True"
+                 Content="Ok"
+                 Command="{Binding Ok_Command}"
+                 Style="{StaticResource RightPanel_HalfRound_Button}"/>
+      </UniformGrid>-->
+   </Grid>
+</EgtWPFLib5:EgtMainWindow>
+   

Icarus/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.OnCloseWindow
+      Me.DialogResult = DialogResult
+      Me.Close()
+   End Sub
+
+#End Region
+
+End Class

Icarus/FilledSolidParamPanel/FilledSolidParamPanelVM.vb

@@ -166,13 +166,13 @@ Public Class FilledSolidNumericMachiningParam
 
    Public Overrides Property sValue As String
       Get
-         Return If(m_bIsLen, LenToString(m_dValue, 1), m_dValue)
+         Return If(m_bIsLen, LenToString(m_dValue, 2), DoubleToString(m_dValue, 2))
       End Get
       Set(value As String)
          If m_bIsLen Then
             StringToLen(value, m_dValue)
          Else
-            m_dValue = value
+            StringToDouble(value, m_dValue)
          End If
          NotifyPropertyChanged(NameOf(sValue))
          NotifyPropertyChanged(NameOf(bIsModifiedFromPart))

Icarus/Icarus.vbproj

@@ -153,6 +153,17 @@
       <DependentUpon>DispositionPanelV.xaml</DependentUpon>
     </Compile>
     <Compile Include="DispositionPanel\DispositionPanelVM.vb" />
+    <Compile Include="EgtManageFileDialog\EgtManageFileDialogVM.vb" />
+    <Compile Include="EgtMessageBox\EgtMessageBoxV.xaml.vb">
+      <DependentUpon>EgtMessageBoxV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="EgtColorPicker\EgtColorPickerV.xaml.vb">
+      <DependentUpon>EgtColorPickerV.xaml</DependentUpon>
+    </Compile>
+    <Compile Include="EgtColorPicker\EgtColorPickerVM.vb" />
+    <Compile Include="EgtManageFileDialog\EgtManageFileDialogV.xaml.vb">
+      <DependentUpon>EgtManageFileDialogV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="FilledSolidPanel\FilledSolidPanelV.xaml.vb">
       <DependentUpon>FilledSolidPanelV.xaml</DependentUpon>
     </Compile>
@@ -209,6 +220,7 @@
       <DependentUpon>MaterialDbV.xaml</DependentUpon>
     </Compile>
     <Compile Include="MaterialDb\MaterialDbVM.vb" />
+    <Compile Include="Resources\TooltipMsg.vb" />
     <Compile Include="TSFEditor\ColumnHeader.xaml.vb">
       <DependentUpon>ColumnHeader.xaml</DependentUpon>
     </Compile>
@@ -366,6 +378,18 @@
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
     </Page>
+    <Page Include="EgtMessageBox\EgtMessageBoxV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="EgtColorPicker\EgtColorPickerV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
+    <Page Include="EgtManageFileDialog\EgtManageFileDialogV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="FilledSolidPanel\FilledSolidPanelV.xaml">
       <Generator>MSBuild:Compile</Generator>
       <SubType>Designer</SubType>
@@ -608,6 +632,8 @@
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
     <None Include="packages.config" />
+    <None Include="Resources\TooltipData.ini" />
+    <Resource Include="Resources\EgtMessageBox\Error.png" />
     <Resource Include="Resources\Fonts\Roboto-Regular.ttf" />
     <Resource Include="Resources\Fonts\Roboto-Light.ttf" />
   </ItemGroup>
@@ -859,6 +885,211 @@
   <ItemGroup>
     <Resource Include="Resources\RibParamPanel\CopyFrom.png" />
   </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\SpiralVase_1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\SpiralVase_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\StrandOrder_1.png" />
+    <Resource Include="Resources\ToolTip\StrandOrder_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\StrandHeight_1.png" />
+    <Resource Include="Resources\ToolTip\StrandHeight_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\StrandWidth_1.png" />
+    <Resource Include="Resources\ToolTip\StrandWidth_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\StrandCount_1.png" />
+    <Resource Include="Resources\ToolTip\StrandCount_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Offset_1.png" />
+    <Resource Include="Resources\ToolTip\Offset_2.png" />
+    <Resource Include="Resources\ToolTip\StrandOverlap_1.png" />
+    <Resource Include="Resources\ToolTip\StrandOverlap_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\StrandPointOffset.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Direction.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LinkZUp_1.png" />
+    <Resource Include="Resources\ToolTip\LinkZUp_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Diameter_1.png" />
+    <Resource Include="Resources\ToolTip\Diameter_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LinkType_1.png" />
+    <Resource Include="Resources\ToolTip\LinkType_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LinkParam_1.png" />
+    <Resource Include="Resources\ToolTip\LinkParam_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LeadIn_1.png" />
+    <Resource Include="Resources\ToolTip\LeadIn_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\OffsetLeadPoint_1.png" />
+    <Resource Include="Resources\ToolTip\OffsetLeadPoint_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LeadOut_1.png" />
+    <Resource Include="Resources\ToolTip\LeadOut_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\CoastingLen.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\WipeLen_1.png" />
+    <Resource Include="Resources\ToolTip\WipeLen_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\OverlapRibs_1.png" />
+    <Resource Include="Resources\ToolTip\OverlapRibs_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\StrandCountRibs_1.png" />
+    <Resource Include="Resources\ToolTip\StrandCountRibs_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LinkRibs.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\InvertDirectionRibs_1.png" />
+    <Resource Include="Resources\ToolTip\InvertDirectionRibs_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\InvertStrandOrderRibs_1.png" />
+    <Resource Include="Resources\ToolTip\InvertStrandOrderRibs_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LeadInInvertRibs_1.png" />
+    <Resource Include="Resources\ToolTip\LeadInInvertRibs_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LeadOutInvertRibs_1.png" />
+    <Resource Include="Resources\ToolTip\LeadOutInvertRibs_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LeadOutCoasting.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LeadOutWipeRibs_1.png" />
+    <Resource Include="Resources\ToolTip\LeadOutWipeRibs_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\LeadOutWipeDirRibs_1.png" />
+    <Resource Include="Resources\ToolTip\LeadOutWipeDirRibs_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Difference.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Coasting.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Wipe_1.png" />
+    <Resource Include="Resources\ToolTip\Wipe_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Infill_1.png" />
+    <Resource Include="Resources\ToolTip\Infill_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Density_1.png" />
+    <Resource Include="Resources\ToolTip\Density_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Direction_1.png" />
+    <Resource Include="Resources\ToolTip\Direction_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Directionx_1.png" />
+    <Resource Include="Resources\ToolTip\Directionx_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\Directiony_1.png" />
+    <Resource Include="Resources\ToolTip\Directiony_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\CoastingLength.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\WipeLength.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\FloorCount_1.png" />
+    <Resource Include="Resources\ToolTip\FloorCount_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\FloorType_1.png" />
+    <Resource Include="Resources\ToolTip\FloorType_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\CeilCount_1.png" />
+    <Resource Include="Resources\ToolTip\CeilCount_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\InfillType.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\InfillDensity_1.png" />
+    <Resource Include="Resources\ToolTip\InfillDensity_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\GridOverlap_1.png" />
+    <Resource Include="Resources\ToolTip\GridOverlap_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\PDirection_1.png" />
+    <Resource Include="Resources\ToolTip\PDirection_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\OffsetX_1.png" />
+    <Resource Include="Resources\ToolTip\OffsetX_2.png" />
+    <Resource Include="Resources\ToolTip\OffsetY_1.png" />
+    <Resource Include="Resources\ToolTip\OffsetY_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\CoastingLength_1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\WipeLength_1.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\WipeDirection_1.png" />
+    <Resource Include="Resources\ToolTip\WipeDirection_2.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\ToolTip\InvertOrderRibs_1.png" />
+    <Resource Include="Resources\ToolTip\InvertOrderRibs_2.png" />
+    <Resource Include="Resources\EgtMessageBox\Information.png" />
+    <Resource Include="Resources\EgtMessageBox\Question.png" />
+    <Resource Include="Resources\EgtMessageBox\Warning.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Restore.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\New.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Folder.png" />
+  </ItemGroup>
+  <ItemGroup>
+    <Resource Include="Resources\EgtDialog\Root.png" />
+  </ItemGroup>
   <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
   <PropertyGroup>
     <PostBuildEvent>IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\Icarus\IcarusR32.exe

Icarus/ImportExportMachiningPanel/ImportExportMachiningPanelVM.vb

@@ -302,8 +302,8 @@ Public Class ImportExportMachiningPanelVM
             End If
          Next
          MessageBox.Show("Impossible to import the package because materials named:" & Environment.NewLine &
-                         sDuplicatedMaterialList & Environment.NewLine &
-                         "Please modify the names of these machining and then retry to import the materials.")
+                      sDuplicatedMaterialList & Environment.NewLine &
+                      "Please modify the names of these machining and then retry to import the materials.")
          Return
       End If
       ' aggiorno/aggiungo materiali
@@ -354,8 +354,8 @@ Public Class ImportExportMachiningPanelVM
          sMaterialList &= " - " & m_MachiningList(Index).sName & " (" & If(ImportedMaterialList(Index) = MaterialState.NOTFOUND, "New", "Updated") & ")" & Environment.NewLine
       Next
       MessageBox.Show("List of the materials:" & Environment.NewLine &
-                      sMaterialList & Environment.NewLine &
-                      "Import successfully completed.")
+                    sMaterialList & Environment.NewLine &
+                    "Import successfully completed.")
       Return
    End Sub
 
@@ -471,7 +471,7 @@ Public Class ImportExportMachiningPanelVM
             End Select
          Case WindowModeEnum.EXPORT, WindowModeEnum.EXPORT_ORIG
             ' chiedo il nome con cui salvare il file 
-            Dim sExtension As String =""
+            Dim sExtension As String = ""
             If m_WindowType = WindowTypeEnum.MATERIAL Then
                If m_WindowMode = WindowModeEnum.EXPORT_ORIG Then
                   sExtension = OriginalMaterialDataExtension

Icarus/InstrumentPanel/InstrumentPanelV.xaml

@@ -1,30 +1,37 @@
-<StackPanel x:Class="InstrumentPanelV"
-            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:local="clr-namespace:Icarus"
-            IsEnabled="{Binding InstrumentPanel_IsEnabled}"
-            Orientation="Horizontal">
+<Border x:Class="InstrumentPanelV"
+        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:local="clr-namespace:Icarus"
+        IsEnabled="{Binding InstrumentPanel_IsEnabled}"
+        Background="{DynamicResource EgaltechWhite}"
+        CornerRadius="0,4,0,0"
+        Padding="0,0,8,0">
+   
+   <StackPanel Orientation="Horizontal">
+      
+      <local:CheckedImageToggleButton ToolTip="{Binding GetDist_ToolTip}"
+                                      IsChecked="{Binding GetDistIsChecked}"
+                                      ImageSource="/Resources/InstrumentPanel/GetDist.png"
+                                      CheckedImageSource="/Resources/InstrumentPanel/GetDist_White.png"
+                                      Width="15"
+                                      Margin="2.5,0,2.5,0"
+                                      Style="{StaticResource BottomPanel_ToggleButton}">
+         <local:CheckedImageToggleButton.Resources>
+            <sys:Double x:Key="ToggleButton.Image.Height">25</sys:Double>
+            <sys:Double x:Key="ToggleButton.Image.Width">25</sys:Double>
+         </local:CheckedImageToggleButton.Resources>
+      </local:CheckedImageToggleButton>
+      <local:CheckedImageToggleButton ToolTip="{Binding EdgeAnalysis_ToolTip}"
+                                      IsChecked="{Binding bEdgeAnalysis_IsChecked}"
+                                      IsEnabled="{Binding bEdgeAnalysis_IsEnabled}"
+                                      ImageSource="/Resources/InstrumentPanel/EdgeAnalysis.png"
+                                      CheckedImageSource="/Resources/InstrumentPanel/EdgeAnalysis_White.png"
+                                      Margin="2.5,0,2.5,0"
+                                      Style="{StaticResource BottomPanel_ToggleButton}">
+      </local:CheckedImageToggleButton>
+      
+   </StackPanel>
 
-   <local:CheckedImageToggleButton ToolTip="{Binding GetDist_ToolTip}"
-                                   IsChecked="{Binding GetDistIsChecked}"
-                                   ImageSource="/Resources/InstrumentPanel/GetDist.png"
-                                   CheckedImageSource="/Resources/InstrumentPanel/GetDist_White.png"
-                                   Width="15"
-                                   Margin="2.5,0,2.5,0"
-                                   Style="{StaticResource BottomPanel_ToggleButton}">
-      <local:CheckedImageToggleButton.Resources>
-         <sys:Double x:Key="ToggleButton.Image.Height">25</sys:Double>
-         <sys:Double x:Key="ToggleButton.Image.Width">25</sys:Double>
-      </local:CheckedImageToggleButton.Resources>
-   </local:CheckedImageToggleButton>
-   <local:CheckedImageToggleButton ToolTip="{Binding EdgeAnalysis_ToolTip}"
-                                   IsChecked="{Binding bEdgeAnalysis_IsChecked}"
-                                   IsEnabled="{Binding bEdgeAnalysis_IsEnabled}"
-                                   ImageSource="/Resources/InstrumentPanel/EdgeAnalysis.png"
-                                   CheckedImageSource="/Resources/InstrumentPanel/EdgeAnalysis_White.png"
-                                   Margin="2.5,0,2.5,0"
-                                   Style="{StaticResource BottomPanel_ToggleButton}">
-   </local:CheckedImageToggleButton>
 
-</StackPanel>
+</Border>

Icarus/MachiningDb/Machining.vb

@@ -14,6 +14,9 @@ Public Class Machining
       DEG45 = 2
       DEG45_Y = 3
       HORIZONTAL = 4
+      MULTIPLANAR = 5
+      MULTIPLANAR_DEG45 = 6
+      MULTIPLANAR_HORIZ = 7
    End Enum
 
    Public Enum MPAR_STRANDORDERS As Integer
@@ -147,13 +150,13 @@ Public Class Machining
          m_sName = "New Machining"
       End If
       m_sOrigName = m_sName
-      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.GENERAL, nIndex))
-      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.LINK, nIndex))
-      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.RIBS, nIndex))
-      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.SHELL_NUMBER, nIndex))
-      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.AUX_SOLID, nIndex))
-      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.INFILL, nIndex))
-      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.MATERIALS, nIndex))
+      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.GENERAL, nIndex, Me))
+      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.LINK, nIndex, Me))
+      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.RIBS, nIndex, Me))
+      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.SHELL_NUMBER, nIndex, Me))
+      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.AUX_SOLID, nIndex, Me))
+      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.INFILL, nIndex, Me))
+      m_CathegoryList.Add(New MachiningCathegory(MachiningCathegory.Cathegories.MATERIALS, nIndex, Me))
       For Each Cathegory In m_CathegoryList
          For Each MachiningParam In Cathegory.MachiningParamList
             AddHandler MachiningParam.PropertyChanged, AddressOf OnMachiningParamPropertyChanged
@@ -314,11 +317,19 @@ Public Class MachiningCathegory
       End Set
    End Property
 
+   Protected m_Machining As Machining
+   Friend ReadOnly Property Machining As Machining
+      Get
+         Return m_Machining
+      End Get
+   End Property
+
    Sub New()
 
    End Sub
 
-   Sub New(Type As Cathegories, nIndex As Integer)
+   Sub New(Type As Cathegories, nIndex As Integer, Machining As Machining)
+      m_Machining = Machining
       m_Type = Type
       Select Case m_Type
          Case Cathegories.GENERAL
@@ -352,6 +363,7 @@ Public Class MachiningCathegory
                                                                 New ComboMachiningParam(MachiningParam.Params.LINKTYPE, nIndex, Me),
                                                                 New NumericMachiningParam(MachiningParam.Params.LINKPARAM, nIndex, Me),
                                                                 New ComboMachiningParam(MachiningParam.Params.LEADIN, nIndex, Me),
+                                                                New CheckMachiningParam(MachiningParam.Params.SINGLELEADIN, nIndex, Me),
                                                                 New NumericMachiningParam(MachiningParam.Params.LEADINTANGDIST, nIndex, Me),
                                                                 New NumericMachiningParam(MachiningParam.Params.LEADINORTHODIST, nIndex, Me),
                                                                 New ComboMachiningParam(MachiningParam.Params.LEADOUT, nIndex, Me),
@@ -360,7 +372,8 @@ Public Class MachiningCathegory
                                                                 New NumericMachiningParam(MachiningParam.Params.COASTINGLEN, nIndex, Me),
                                                                 New NumericMachiningParam(MachiningParam.Params.COASTINGFEED_PC, nIndex, Me),
                                                                 New NumericMachiningParam(MachiningParam.Params.WIPELEN, nIndex, Me),
-                                                                New NumericMachiningParam(MachiningParam.Params.WIPEFEED_PC, nIndex, Me)})
+                                                                New NumericMachiningParam(MachiningParam.Params.WIPEFEED_PC, nIndex, Me),
+                                                                New NumericMachiningParam(MachiningParam.Params.SPIRALVASELEN, nIndex, Me)})
                                                                 'New NumericMachiningParam(MachiningParam.Params.WIPEDIR, nIndex, Me)})
          Case Cathegories.RIBS
             m_sName = "Ribs"
@@ -446,6 +459,11 @@ Public Class MachiningCathegory
                Dim MachiningParam As ComboMachiningParam = MachiningParamList.FirstOrDefault(Function(z) z.Type = Param)
                MachiningParam.ManageDependencyParam()
             Next
+            For Each Param In {MachiningParam.Params.SPIRALVASE}
+               Dim GeneralCathegory As MachiningCathegory = Machining.CathegoryList.FirstOrDefault(Function(z) z.Type = Cathegories.GENERAL)
+               Dim MachiningParam As CheckMachiningParam = GeneralCathegory.MachiningParamList.FirstOrDefault(Function(z) z.Type = Param)
+               MachiningParam.ManageDependencyParam(Me)
+            Next
          Case Cathegories.RIBS
             For Each Param In {MachiningParam.Params.RIBSTYPE}
                Dim MachiningParam As ComboMachiningParam = MachiningParamList.FirstOrDefault(Function(z) z.Type = Param)
@@ -495,9 +513,92 @@ Public Class MachiningCathegory
 
 End Class
 
+Public Class ToolTipDataMsg
+   Inherits VMBase
+
+   Protected m_sNameTitleToolTip As String
+   Public ReadOnly Property sNameTitleToolTip As String
+      Get
+         Return m_sNameTitleToolTip
+      End Get
+   End Property
+
+   Protected m_sNameDescriptionToolTip As String
+   Public ReadOnly Property sNameDescriptionToolTip As String
+      Get
+         Return m_sNameDescriptionToolTip
+      End Get
+   End Property
+
+   Protected m_sIconOrientation As String
+   Public ReadOnly Property sIconOrientation As String
+      Get
+         Return m_sIconOrientation
+      End Get
+   End Property
+
+   Protected m_sIconToolTip_First As String
+   Public ReadOnly Property sIconToolTip_First As String
+      Get
+         Return m_sIconToolTip_First
+      End Get
+   End Property
+
+   Protected m_nDimension_First As Integer
+   Public ReadOnly Property nDimension_First As Integer
+      Get
+         Return m_nDimension_First
+      End Get
+   End Property
+
+   Protected m_nDimension_Second As Integer
+   Public ReadOnly Property nDimension_Second As Integer
+      Get
+         Return m_nDimension_Second
+      End Get
+   End Property
+
+   Protected m_sIconToolTip_Second As String
+   Public ReadOnly Property sIconToolTip_Second As String
+      Get
+         Return m_sIconToolTip_Second
+      End Get
+   End Property
+
+   Sub New(Type As MachiningParam.Params, bIsBeta As Boolean)
+      Dim sTitle As String = ""
+      Dim sDescription As String = ""
+      If GetPrivateProfileString(Type, K_TITLE, "", sTitle, CurrentMachine.sToolTipFilePath) > 0 Then
+         GetPrivateProfileString(Type, K_DESCRIPTION, "", sDescription, CurrentMachine.sToolTipFilePath)
+         If bIsBeta Then
+            m_sNameTitleToolTip = ReadToolTipMsg(sTitle) & " (BETA)"
+         Else
+            m_sNameTitleToolTip = ReadToolTipMsg(sTitle)
+         End If
+         m_sNameDescriptionToolTip = ReadToolTipMsg(sDescription)
+      End If
+      If GetPrivateProfileString(Type, K_FIRST_ICON, "", m_sIconToolTip_First, CurrentMachine.sToolTipFilePath) > 0 Then
+         GetPrivateProfileString(Type, K_ORIENTATION_ICON, "", m_sIconOrientation, CurrentMachine.sToolTipFilePath)
+         m_nDimension_First = 200
+      End If
+      If GetPrivateProfileString(Type, K_SECOND_ICON, "", m_sIconToolTip_Second, CurrentMachine.sToolTipFilePath) > 0 Then
+         GetPrivateProfileString(Type, K_ORIENTATION_ICON, "", m_sIconOrientation, CurrentMachine.sToolTipFilePath)
+         m_nDimension_Second = 200
+      End If
+   End Sub
+
+End Class
+
+
 Public MustInherit Class MachiningParam
    Inherits VMBase
 
+   Protected m_Tooltip As ToolTipDataMsg
+   Public ReadOnly Property Tooltip As ToolTipDataMsg
+      Get
+         Return m_Tooltip
+      End Get
+   End Property
    Public Enum MinMaxTypes As Integer
       ABSOLUT = 1
       PERCENTAGE = 2
@@ -540,6 +641,8 @@ Public MustInherit Class MachiningParam
       WIPELEN = 62
       WIPEFEED_PC = 63
       INNERSHELLWIDTH = 64
+      SPIRALVASELEN = 65
+      SINGLELEADIN = 66
       'WIPEDIR = 64
       RIBSTYPE = 101
       RIBSOVERLAP = 102
@@ -648,7 +751,7 @@ Public MustInherit Class MachiningParam
       m_Cathegory = Cathegory
       Select Case m_Type
          Case Params.SLICINGTYPE
-            m_sName = "Slicing Direction"
+            m_sName = "Slicing Type"
          Case Params.STRANDH
             m_sName = "Strand Height"
          Case Params.STRANDW
@@ -675,6 +778,8 @@ Public MustInherit Class MachiningParam
             m_sName = "Offset Lead Point"
          Case Params.LEADIN
             m_sName = "Lead In"
+         Case Params.SINGLELEADIN
+            m_sName = "Single Lead In"
          Case Params.LEADINTANGDIST
             m_sName = "Lead In Tang Dist"
          Case Params.LEADINORTHODIST
@@ -693,6 +798,8 @@ Public MustInherit Class MachiningParam
             m_sName = "Wipe Len"
          Case Params.WIPEFEED_PC
             m_sName = "Wipe Feed [%]"
+         Case Params.SPIRALVASELEN
+            m_sName = "Spiral Trans Len"
          Case Params.FLOORCOUNT
             m_sName = "Floor Count"
          Case Params.G0FEED
@@ -840,10 +947,11 @@ Public MustInherit Class MachiningParam
          Case Params.INFILLWIPEDIR
             m_sName = "Wipe Direction"
       End Select
+      m_Tooltip = New ToolTipDataMsg(m_Type, bIsBeta)
    End Sub
 
    Sub New(sName As String, Cathegory As MachiningCathegory)
-      m_Type = Params.MATERIALS
+      m_Type = Params.Materials
       m_Cathegory = Cathegory
       m_sName = sName
    End Sub
@@ -875,7 +983,7 @@ Public Class NumericMachiningParam
    End Property
    Public Overridable Property sValue As String
       Get
-         Return If(m_bIsLen, LenToString(m_dValue, 1), DoubleToString(m_dValue, 2))
+         Return If(m_bIsLen, LenToString(m_dValue, 2), DoubleToString(m_dValue, 2))
       End Get
       Set(value As String)
          Dim dTempValue As Double = 0
@@ -1043,6 +1151,9 @@ Public Class NumericMachiningParam
             Case Params.WIPEFEED_PC
                m_dValue = ReadMachiningParamDouble(nIndex, MAC_WIPEFEEDPU, 0)
                m_bIsLen = False
+            Case Params.SPIRALVASELEN
+               m_dValue = ReadMachiningParamDouble(nIndex, MAC_SPIRALVASELEN, 0)
+               m_bIsLen = True
             'Case Params.WIPEDIR
             '   m_dValue = ReadMachiningParamDouble(nIndex, MAC_WIPEDIR, 0)
             '   m_bIsLen = True
@@ -1269,6 +1380,8 @@ Public Class NumericMachiningParam
             WriteMachiningParam(nIndex, MAC_WIPELEN, sWriteValue, sFilePath)
          Case Params.WIPEFEED_PC
             WriteMachiningParam(nIndex, MAC_WIPEFEEDPU, sWriteValue, sFilePath)
+         Case Params.SPIRALVASELEN
+            WriteMachiningParam(nIndex, MAC_SPIRALVASELEN, sWriteValue, sFilePath)
          'Case Params.WIPEDIR
          '   WriteMachiningParam(nIndex, MAC_WIPEDIR, sWriteValue, sFilePath)
          Case Params.FLOORCOUNT
@@ -1494,17 +1607,15 @@ Public Class ComboMachiningParam
       Else
          Select Case Type
             Case Params.SLICINGTYPE
-               Dim nSlicingType As Integer = GetPrivateProfileInt(S_MACH_PRINTING3D, K_SLICINGTYPE, 0, CurrentMachine.sMachIniFile)
-               m_ValueList = New List(Of IdNameStruct)({New IdNameStruct(Machining.MPAR_SLICINGTYPE.VERTICAL, "Vertical")})
-               If nSlicingType >= 1 Then
-                  m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45, "45deg X"))
-                  If nSlicingType >= 2 Then
-                     m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45_Y, "45deg Y"))
-                     If nSlicingType >= 3 Then
-                        m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal"))
-                     End If
-                  End If
-               End If
+               Dim nNewSlicingType As Integer = CurrentMachine.GetSlicingType()
+               m_ValueList = New List(Of IdNameStruct)
+               If (nNewSlicingType And 1) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.VERTICAL, "Vertical"))
+               If (nNewSlicingType And 2) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45, "45deg X"))
+               If (nNewSlicingType And 4) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.DEG45_Y, "45deg Y"))
+               If (nNewSlicingType And 8) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.HORIZONTAL, "Horizontal"))
+               If (nNewSlicingType And 16) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR, "MultiPlanar"))
+               If (nNewSlicingType And 32) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR_DEG45, "MultiPlanar 45deg"))
+               If (nNewSlicingType And 64) <> 0 Then m_ValueList.Add(New IdNameStruct(Machining.MPAR_SLICINGTYPE.MULTIPLANAR_HORIZ, "MultiPlanar Horiz"))
                Dim nSelValue As Double = ReadMachiningParamDouble(nIndex, MAC_SLICINGTYPE, -1)
                If nSelValue = -1 Then
                   Dim dSlicing45 As Double = 0
@@ -1700,6 +1811,7 @@ Public Class CheckMachiningParam
       Set(value As Boolean)
          m_bValue = value
          NotifyPropertyChanged(NameOf(bValue))
+         ManageDependencyParam()
       End Set
    End Property
 
@@ -1739,6 +1851,8 @@ Public Class CheckMachiningParam
          Select Case Type
             Case Params.SPIRALVASE
                m_bValue = ReadMachiningParamDouble(nIndex, MAC_SPIRALVASE, 0)
+            Case Params.SINGLELEADIN
+               m_bValue = ReadMachiningParamDouble(nIndex, MAC_SINGLELEADIN, 0)
             Case Params.RIBSLINK
                m_bValue = ReadMachiningParamDouble(nIndex, MAC_RIBSLINK, 0)
             Case Params.RIBSMERGEWITHSHELL
@@ -1766,10 +1880,22 @@ Public Class CheckMachiningParam
       m_bOrigValue = m_bValue
    End Sub
 
+   Friend Sub ManageDependencyParam(Optional Cathegory As MachiningCathegory = Nothing)
+      ' gestisco dis/attivazione parametri dipendenti
+      Select Case m_Type
+         Case Params.SPIRALVASE
+            Dim ShellCathegory As MachiningCathegory = If(Not IsNothing(Cathegory), Cathegory, m_Cathegory.Machining.CathegoryList.FirstOrDefault(Function(z) z.Type = MachiningCathegory.Cathegories.LINK))
+            Dim NumMachiningParam As NumericMachiningParam = ShellCathegory.MachiningParamList.FirstOrDefault(Function(z) z.Type = Params.SPIRALVASELEN)
+            NumMachiningParam.SetIsActive(m_bValue)
+      End Select
+   End Sub
+
    Friend Overrides Sub WriteParamOnDb(nIndex As Integer, Optional sFilePath As String = "")
       Select Case Type
          Case Params.SPIRALVASE
             WriteMachiningParam(nIndex, MAC_SPIRALVASE, If(m_bValue, 1, 0), sFilePath)
+         Case Params.SINGLELEADIN
+            WriteMachiningParam(nIndex, MAC_SINGLELEADIN, If(m_bValue, 1, 0), sFilePath)
          Case Params.RIBSLINK
             WriteMachiningParam(nIndex, MAC_RIBSLINK, If(m_bValue, 1, 0), sFilePath)
          Case Params.RIBSMERGEWITHSHELL

Icarus/MachiningDb/MachiningDbV.xaml

@@ -143,6 +143,7 @@
                                     <StackPanel Orientation="Horizontal">
                                        <TextBlock Text="{Binding sName, Mode=OneWay}"
                                                   Margin="0,0,2.5,0"
+                                                  ToolTip="{StaticResource MachiningParam_Tooltip}"
                                                   Style="{StaticResource ParameterList_TextBlock}"/>
                                        <TextBlock Text=" (BETA)"
                                                   Margin="0,0,2.5,0"
@@ -166,6 +167,7 @@
                                     <StackPanel Orientation="Horizontal">
                                        <TextBlock Text="{Binding sName, Mode=OneWay}"
                                                   Margin="0,0,2.5,0"
+                                                  ToolTip="{StaticResource MachiningParam_Tooltip}"
                                                   Style="{StaticResource ParameterList_TextBlock}"/>
                                        <TextBlock Text=" (BETA)"
                                                   Margin="0,0,2.5,0"
@@ -192,6 +194,7 @@
                                     <StackPanel Orientation="Horizontal">
                                        <TextBlock Text="{Binding sName, Mode=OneWay}"
                                                   Margin="0,0,2.5,0"
+                                                  ToolTip="{StaticResource MachiningParam_Tooltip}"
                                                   Style="{StaticResource ParameterList_TextBlock}"/>
                                        <TextBlock Text=" (BETA)"
                                                   Margin="0,0,2.5,0"
@@ -231,6 +234,7 @@
                                     </Grid.ColumnDefinitions>
                                     <TextBlock Text="{Binding sName}"
                                                Margin="0,0,2.5,0"
+                                               ToolTip="{StaticResource MachiningParam_Tooltip}"
                                                Style="{StaticResource ParameterList_TextBlock}"/>
                                     <Grid Grid.Column="1">
                                        <Grid.ColumnDefinitions>

Icarus/MachiningDb/MachiningDbVM.vb

@@ -112,28 +112,6 @@ Public Class MachiningDbVM
       End Get
    End Property
 
-#Region "Tooltip"
-
-   Public ReadOnly Property Import_ToolTip As String
-      Get
-         Return "Import"
-      End Get
-   End Property
-
-   Public ReadOnly Property Export_ToolTip As String
-      Get
-         Return "Export"
-      End Get
-   End Property
-
-   Public ReadOnly Property EditName_ToolTip As String
-      Get
-         Return "Edit Name"
-      End Get
-   End Property
-
-#End Region    ' Tooltip
-
    ' Definizione comandi
    Private m_cmdOk As ICommand
    Private m_cmdNew As ICommand
@@ -385,4 +363,4 @@ Public Class MachiningDbVM
 
 #End Region    ' COMMANDS
 
-End Class
+End Class

Icarus/MainWindow/MainWindowM.vb

@@ -8,7 +8,7 @@ Public Class MainWindowM
 #Region "FIELDS"
 
    ' massimo numero di istanze del programma ammesse
-   Const MAX_INST As Integer = 32
+   Const MAX_INST As Integer = 4
 
    Private m_objMutex As Mutex
 
@@ -191,8 +191,8 @@ Public Class MainWindowM
          EgtSetLockId( sLockId)
       End If
       ' Recupero livello e opzioni della chiave
-      Dim bKey As Boolean = EgtGetKeyLevel(5583, 2709, 1, m_nKeyLevel) And
-                            EgtGetKeyOptions(5583, 2709, 1, m_nKeyOptions)
+      Dim bKey As Boolean = EgtGetKeyLevel(5583, 3105, 1, m_nKeyLevel) And
+                            EgtGetKeyOptions(5583, 3105, 1, m_nKeyOptions)
       ' Inizializzazione generale di EgtInterface
       m_nDebug = GetMainPrivateProfileInt(S_GENERAL, K_DEBUG, 0)
       m_sLogFile = m_sTempDir & "\" & GENLOG_FILE_NAME.Replace("#", m_nInstance.ToString())
@@ -317,7 +317,7 @@ Public Class MainWindowM
    Friend Function GetMaxInstances() As Integer
       ' Leggo il massimo numero di istanze ammesse
       Dim nMaxInst As Integer = GetMainPrivateProfileInt(S_GENERAL, K_MAXINST, 1)
-      Return 1          ' Max(1, Min(nMaxInst, MAX_INST))
+      Return Max(1, Min(nMaxInst, MAX_INST))
    End Function
 
    Friend Sub Close()

Icarus/MainWindow/MainWindowV.xaml.vb

@@ -40,7 +40,7 @@ Class MainWindowV
    End Sub
 
    Private Sub MainWindowV_Closing(sender As Object, e As System.ComponentModel.CancelEventArgs)
-      If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
+      If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt AndAlso Keyboard.IsKeyDown(Key.F4) Then
          e.Cancel = True
          Return
       End If

Icarus/MainWindow/MainWindowVM.vb

@@ -159,21 +159,19 @@ Public Class MainWindowVM
    End Function
 
    Friend Sub CloseApplication()
-      If (Keyboard.Modifiers And ModifierKeys.Alt) = ModifierKeys.Alt OrElse Keyboard.IsKeyDown(Key.F4) Then
+      ' Se simulazione in corso
+      If Not IsNothing( Map.refSimulationPanelVM) AndAlso Map.refSimulationPanelVM.MySimul.bSimExecuting Then
+         ' Avvio l'arresto della simulazione
+         Map.refSimulationPanelVM.MySimul.SetSimulationStatus(MCH_SIM_ST.UI_STOP)
+         Map.refSimulationPanelVM.MySimul.m_bSimulEndExitApp = True
          Return
       End If
-      ' gestisco la chiusura della simulazione
+      ' Chiusura della simulazione
       If Map.refRightPanelVM.SelPanel = RightPanelVM.Panels.SIMULATION AndAlso Not IsNothing(Map.refSimulationPanelVM) Then
          Map.refSimulationPanelVM.MySimul.ResetSimulation()
       End If
       ' Gestisco eventuale file corrente modificato
-      Dim bOk As Boolean = True
-      'bOk = ProjFileVM.VerifyProjectModification(Map.refProjManagerVM.CurrProj, ProjectType.PROJ)
-      ' se salvataggio annullato, rimango
-      If Not bOk Then Return
       Dim bAllowClose As Boolean = Map.refSceneHostVM.MainController.ManageModified()
-      ' Salvo impostazione macchina corrente
-      'Map.refMachinePanelVM.SaveCurrentMachine()
       ' Se non confermata chiusura, esco
       If Not bAllowClose Then Return
       ' salvo modo di visualizzazione

Icarus/ManagePartPanel/ManagePartPanelV.xaml

@@ -49,8 +49,13 @@
                                    Style="{StaticResource BaseTextBlock}"/>
                         <EgtWPFLib5:EgtTextBox Text="{Binding sName, UpdateSourceTrigger=Explicit}"
                                                IsExplicitFocused="{Binding UserShouldEditValueNow}"
-                                               Visibility="{Binding TextBox_Visibility}"
-                                               Style="{StaticResource OptionTextBox}"/>
+                                               Visibility="{Binding TextBox_Visibility}">
+                           <EgtWPFLib5:EgtTextBox.Style>
+                              <Style TargetType="{x:Type EgtWPFLib5:EgtTextBox}" BasedOn="{StaticResource OptionTextBox}">
+                                 <EventSetter Event="PreviewKeyDown" Handler="TextBox_PreviewKeyDown"/>
+                              </Style>
+                           </EgtWPFLib5:EgtTextBox.Style>
+                        </EgtWPFLib5:EgtTextBox>
                      </Grid>
                   </StackPanel>
                </HierarchicalDataTemplate>
@@ -69,8 +74,13 @@
                                 Style="{StaticResource BaseTextBlock}"/>
                      <EgtWPFLib5:EgtTextBox Text="{Binding sName, UpdateSourceTrigger=Explicit}"
                                             IsExplicitFocused="{Binding UserShouldEditValueNow}"
-                                            Visibility="{Binding TextBox_Visibility}"
-                                            Style="{StaticResource OptionTextBox}"/>
+                                            Visibility="{Binding TextBox_Visibility}">
+                        <EgtWPFLib5:EgtTextBox.Style>
+                           <Style TargetType="{x:Type EgtWPFLib5:EgtTextBox}" BasedOn="{StaticResource OptionTextBox}">
+                              <EventSetter Event="PreviewKeyDown" Handler="TextBox_PreviewKeyDown"/>
+                           </Style>
+                        </EgtWPFLib5:EgtTextBox.Style>
+                     </EgtWPFLib5:EgtTextBox>
                   </Grid>
                </HierarchicalDataTemplate>
                <!-- Menu' tasto destro -->

Icarus/ManagePartPanel/ManagePartPanelV.xaml.vb

@@ -23,4 +23,12 @@
       End Select
    End Sub
 
+   Private Sub TextBox_PreviewKeyDown(sender As Object, e As KeyEventArgs)
+      ' per evitare che il click del tasto Enter a fine edit faccia scattare anche la chiusura
+      ' di tutto il pannello a causa del IsDefault sul tasto di chiusura, termino la gestione del click
+      If e.Key = Key.Enter Then
+         e.Handled = True
+      End If
+   End Sub
+
 End Class

Icarus/MaterialDb/Material.vb

@@ -504,13 +504,13 @@ Public Class NumericMaterialParam
    Private m_dValue As Double
    Public Property dValue As String
       Get
-         Return If(m_bIsLen, LenToString(m_dValue, 1), m_dValue)
+         Return If(m_bIsLen, LenToString(m_dValue, 5), DoubleToString(m_dValue, 5))
       End Get
       Set(value As String)
          If m_bIsLen Then
             StringToLen(value, m_dValue)
          Else
-            m_dValue = value
+            StringToDouble(value, m_dValue)
          End If
          NotifyPropertyChanged(NameOf(dValue))
       End Set

Icarus/MaterialDb/MaterialDbVM.vb

@@ -283,17 +283,19 @@ Public Class MaterialDbVM
          ' aggiorno lista materiali Db
          Init()
          ' aggiorno lista materiali TopBar
-         Dim PrevMaterialGuid As String = Map.refTopPanelVM.SelMaterial.sGUID
          Map.refTopPanelVM.InitMaterialList()
-         Dim PrevMaterial As MaterialIndex = Map.refTopPanelVM.MaterialList.FirstOrDefault(Function(x) x.sGUID = PrevMaterialGuid)
-         If Not IsNothing(PrevMaterial) Then
-            Map.refTopPanelVM.SetSelMaterial(PrevMaterial)
-         Else
-            Map.refTopPanelVM.SelMaterial = Nothing
-            Map.refTopPanelVM.NotifyPropertyChanged(NameOf(Map.refTopPanelVM.SelMaterial))
+         If Not IsNothing(Map.refTopPanelVM.SelMaterial) Then
+            Dim PrevMaterialGuid As String = Map.refTopPanelVM.SelMaterial.sGUID
+            Dim PrevMaterial As MaterialIndex = Map.refTopPanelVM.MaterialList.FirstOrDefault(Function(x) x.sGUID = PrevMaterialGuid)
+            If Not IsNothing(PrevMaterial) Then
+               Map.refTopPanelVM.SetSelMaterial(PrevMaterial)
+            Else
+               Map.refTopPanelVM.SelMaterial = Nothing
+               Map.refTopPanelVM.NotifyPropertyChanged(NameOf(Map.refTopPanelVM.SelMaterial))
+            End If
+            ' ricarico lavorazioni per aggiorno liste materiali all'interno
+            Map.refMachiningDbVM.Init()
          End If
-         ' ricarico lavorazioni per aggiorno liste materiali all'interno
-         Map.refMachiningDbVM.Init()
       End If
       ' ripristino modalita' standard
       Map.refTopPanelVM.SelPage = Pages.MODIFY

Icarus/My Project/AssemblyInfo.vb

@@ -30,7 +30,7 @@ Imports System.Windows
 #End If
 <Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("Icarus")>
-<Assembly: AssemblyCopyright("Copyright ©  2022-2025 by Egalware s.r.l.")>
+<Assembly: AssemblyCopyright("Copyright ©  2022-2026 by Egalware s.r.l.")>
 <Assembly: AssemblyTrademark("")>
 <Assembly: ComVisible(false)>
 
@@ -70,5 +70,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.7.9.1")>
-<Assembly: AssemblyFileVersion("2.7.9.1")>
+<Assembly: AssemblyVersion("3.1.5.1")>
+<Assembly: AssemblyFileVersion("3.1.5.1")>

Icarus/OptionsWindow/OptionWindowVM.vb

@@ -268,152 +268,6 @@ Public Class OptionWindowVM
       End Set
    End Property
 
-   'Public Property ImageScaleFactor As String
-   '   Get
-   '      Return LenToString(OptionModule.m_dImgScaleFactor, 5)
-   '   End Get
-   '   Set(value As String)
-   '      Dim dVal As Double = 0
-   '      If StringToLen(value, dVal) AndAlso dVal > 0 Then
-   '         OptionModule.m_dImgScaleFactor = dVal
-   '         WritePrivateProfileString(S_IMPORT, K_IMGSCALE, DoubleToString(OptionModule.m_dImgScaleFactor, 5))
-   '         Map.refProjectVM.GetController().SetScaleForImageImport(OptionModule.m_dImgScaleFactor)
-   '         NotifyPropertyChanged("ImageScaleFactor")
-   '      End If
-   '   End Set
-   'End Property
-
-   'Public Property ImageWidth As String
-   '   Get
-   '      Return OptionModule.m_nImgWidth.ToString()
-   '   End Get
-   '   Set(value As String)
-   '      Dim nVal As Integer = 0
-   '      If Integer.TryParse(value, nVal) AndAlso nVal > 0 Then
-   '         OptionModule.m_nImgWidth = nVal
-   '         WritePrivateProfileString(S_EXPORT, K_IMGWIDTH, OptionModule.m_nImgWidth.ToString())
-   '         Map.refProjectVM.GetController().SetDefaultForImageExport(OptionModule.m_nImgWidth, OptionModule.m_nImgHeight)
-   '      End If
-   '   End Set
-   'End Property
-
-   'Public Property ImageHeight As String
-   '   Get
-   '      Return OptionModule.m_nImgHeight.ToString()
-   '   End Get
-   '   Set(value As String)
-   '      Dim nVal As Integer = 0
-   '      If Integer.TryParse(value, nVal) AndAlso nVal > 0 Then
-   '         OptionModule.m_nImgHeight = nVal
-   '         WritePrivateProfileString(S_EXPORT, K_IMGHEIGHT, OptionModule.m_nImgHeight.ToString())
-   '         Map.refProjectVM.GetController().SetDefaultForImageExport(OptionModule.m_nImgWidth, OptionModule.m_nImgHeight)
-   '      End If
-   '   End Set
-   'End Property
-
-   'Public Property ExtLineLen As String
-   '   Get
-   '      Return LenToString(OptionModule.m_dExtLineLen, 5)
-   '   End Get
-   '   Set(value As String)
-   '      Dim dVal As Double = 0
-   '      If StringToLen(value, dVal) AndAlso dVal > 0 Then
-   '         OptionModule.m_dExtLineLen = dVal
-   '         EgtSetCurrDimensionStyle(m_dExtLineLen, m_dArrowLen, m_dTextDist, m_nLenIsMM, m_nDecDigit, m_sFont, m_dTextHeight)
-   '         WritePrivateProfileString(S_DIMENSIONSTYLE, K_EXTLINELEN, DoubleToString(OptionModule.m_dExtLineLen, 5))
-   '      End If
-   '   End Set
-   'End Property
-
-   'Public Property ArrowLen As String
-   '   Get
-   '      Return LenToString(OptionModule.m_dArrowLen, 5)
-   '   End Get
-   '   Set(value As String)
-   '      Dim dVal As Double = 0
-   '      If StringToLen(value, dVal) AndAlso dVal > 0 Then
-   '         OptionModule.m_dArrowLen = dVal
-   '         EgtSetCurrDimensionStyle(m_dExtLineLen, m_dArrowLen, m_dTextDist, m_nLenIsMM, m_nDecDigit, m_sFont, m_dTextHeight)
-   '         WritePrivateProfileString(S_DIMENSIONSTYLE, K_ARROWLEN, DoubleToString(OptionModule.m_dArrowLen, 5))
-   '      End If
-   '   End Set
-   'End Property
-
-   'Public Property TextDist As String
-   '   Get
-   '      Return LenToString(OptionModule.m_dTextDist, 5)
-   '   End Get
-   '   Set(value As String)
-   '      Dim dVal As Double = 0
-   '      If StringToLen(value, dVal) AndAlso dVal > 0 Then
-   '         OptionModule.m_dTextDist = dVal
-   '         EgtSetCurrDimensionStyle(m_dExtLineLen, m_dArrowLen, m_dTextDist, m_nLenIsMM, m_nDecDigit, m_sFont, m_dTextHeight)
-   '         WritePrivateProfileString(S_DIMENSIONSTYLE, K_TEXTDIST, DoubleToString(OptionModule.m_dTextDist, 5))
-   '      End If
-   '   End Set
-   'End Property
-
-   'Public Property SelectedUnitMeasure As String
-   '   Get
-   '      If OptionModule.m_nLenIsMM = 0 Then
-   '         Return "inch"
-   '      ElseIf OptionModule.m_nLenIsMM = 1 Then
-   '         Return "mm"
-   '      Else
-   '         Return EgtMsg(MSG_OPTIONPAGE + 45)
-   '      End If
-   '   End Get
-   '   Set(value As String)
-   '      Dim nVal As Integer = 2
-   '      If value = "inch" Then
-   '         nVal = 0
-   '      ElseIf value = "mm" Then
-   '         nVal = 1
-   '      End If
-   '      OptionModule.m_nLenIsMM = nVal
-   '      EgtSetCurrDimensionStyle(m_dExtLineLen, m_dArrowLen, m_dTextDist, m_nLenIsMM, m_nDecDigit, m_sFont, m_dTextHeight)
-   '      WritePrivateProfileString(S_DIMENSIONSTYLE, K_LENISMM, OptionModule.m_nLenIsMM.ToString())
-   '   End Set
-   'End Property
-
-   'Public Property DecDigit As String
-   '   Get
-   '      Return OptionModule.m_nDecDigit.ToString()
-   '   End Get
-   '   Set(value As String)
-   '      Dim nVal As Integer = 0
-   '      If Integer.TryParse(value, nVal) AndAlso nVal > 0 Then
-   '         OptionModule.m_nDecDigit = nVal
-   '         EgtSetCurrDimensionStyle(m_dExtLineLen, m_dArrowLen, m_dTextDist, m_nLenIsMM, m_nDecDigit, m_sFont, m_dTextHeight)
-   '         WritePrivateProfileString(S_DIMENSIONSTYLE, K_DECDIGIT, OptionModule.m_nDecDigit.ToString())
-   '      End If
-   '   End Set
-   'End Property
-
-   'Public Property SelectedFont As String
-   '   Get
-   '      Return m_FontList(m_FontList.IndexOf(OptionModule.m_sFont))
-   '   End Get
-   '   Set(value As String)
-   '      OptionModule.m_sFont = value
-   '      EgtSetCurrDimensionStyle(m_dExtLineLen, m_dArrowLen, m_dTextDist, m_nLenIsMM, m_nDecDigit, m_sFont, m_dTextHeight)
-   '      WritePrivateProfileString(S_DIMENSIONSTYLE, K_DIMFONT, OptionModule.m_sFont)
-   '   End Set
-   'End Property
-
-   'Public Property TextHeight As String
-   '   Get
-   '      Return LenToString(OptionModule.m_dTextHeight, 5)
-   '   End Get
-   '   Set(value As String)
-   '      Dim dVal As Double = 0
-   '      If StringToLen(value, dVal) AndAlso dVal > 0 Then
-   '         OptionModule.m_dTextHeight = dVal
-   '         EgtSetCurrDimensionStyle(m_dExtLineLen, m_dArrowLen, m_dTextDist, m_nLenIsMM, m_nDecDigit, m_sFont, m_dTextHeight)
-   '         WritePrivateProfileString(S_DIMENSIONSTYLE, K_TEXTHEIGHT, DoubleToString(OptionModule.m_dTextHeight, 5))
-   '      End If
-   '   End Set
-   'End Property
 
    Private m_DXFScaleEnable As Boolean = False
    Public Property DXFScaleEnable As Boolean
@@ -498,32 +352,6 @@ Public Class OptionWindowVM
       End Set
    End Property
 
-   'Public Property SelectedImageScale As String
-   '   Get
-   '      If Math.Abs(OptionModule.m_dImgScaleFactor - ONEMM) < EPS_SMALL * 10 Then
-   '         Return ScaleImageList(ScaleImageList.IndexOf("mm"))
-   '      ElseIf Math.Abs(OptionModule.m_dImgScaleFactor - ONEINCH) < EPS_SMALL * 10 Then
-   '         Return ScaleImageList(ScaleImageList.IndexOf("inch"))
-   '      Else
-   '         ImageScaleEnable = True
-   '         Return ScaleImageList(ScaleImageList.IndexOf(EgtMsg(6546)))
-   '         ImageScaleEnable = True
-   '      End If
-   '   End Get
-   '   Set(value As String)
-   '      If value = "mm" Then
-   '         ImageScaleFactor = LenToString(ONEMM, 3)
-   '         ImageScaleEnable = False
-   '      ElseIf value = "inch" Then
-   '         ImageScaleFactor = LenToString(ONEINCH, 4)
-   '         ImageScaleEnable = False
-   '      Else
-   '         ImageScaleFactor = LenToString(OptionModule.m_dImgScaleFactor, 4)
-   '         ImageScaleEnable = True
-   '      End If
-   '   End Set
-   'End Property
-
    ' Definizione comandi
 
    Private m_cmdTopSceneBackground As ICommand
@@ -780,11 +608,15 @@ 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
+      'Recupero colore scelto
       NewCol.FromColor(ColorDlg.Color)
-      ' Salvo eventuali modifiche ai colori custom
+      ''Salvo eventuali modifiche ai colori custom
       sCustomColors = ""
       For Each Color In ColorDlg.CustomColors
          sCustomColors &= Color.ToString() & ","
@@ -814,6 +646,9 @@ Public Class OptionWindowVM
    ''' Manage the MachiningDb closing.  This method is invoked by the CloseMachiningDbCommand.
    ''' </summary>
    Public Sub TopSceneBackgroundCmd()
+      Dim x As New Forms.ColorDialog
+      x.ShowDialog()
+
       ' Recupero colore da Ini
       Dim BackTopColor As New Color3d(192, 192, 192)
       GetMainPrivateProfileColor(S_SCENE, K_BACKTOP, BackTopColor)
@@ -1021,7 +856,7 @@ Public Class OptionWindowVM
             My.Computer.FileSystem.MoveDirectory(sBackupDir, sMachDir, True)
             ' L'aggiornamento della macchina "{0}" non è riuscito.
             Dim sKo As String = String.Format(EgtMsg(6535), sMachName)
-            EgtOutLog(sKo)
+            EgtOutLog( sKo)
             MessageBox.Show(sKo, EgtMsg(MSG_MESSAGEBOX + 1), MessageBoxButton.OK)
             Return
          End Try
@@ -1064,7 +899,7 @@ Public Class OptionWindowVM
       End If
       'La macchina "{0}" è stata aggiornata con successo.
       Dim sOk As String = String.Format(EgtMsg(6530), sMachName)
-      EgtOutLog(sOk)
+      EgtOutLog( sOk)
       MessageBox.Show(sOk, EgtMsg(MSG_MESSAGEBOX + 3), MessageBoxButton.OK)
       ' Rimuovo il direttorio temporaneo
       My.Computer.FileSystem.DeleteDirectory(sTempDir, FileIO.DeleteDirectoryOption.DeleteAllContents)
@@ -1242,6 +1077,11 @@ Public Class LayerColor
       ColorDlg.CustomColors = nCustomColors.ToArray()
       ColorDlg.Color = Col.ToColor()
       ' Visualizzo dialogo
+      '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
       NewCol.FromColor(ColorDlg.Color)

Icarus/ProjManager/ProjManagerVM.vb

@@ -151,6 +151,20 @@ Public Class ProjManagerVM
    ''' </summary>
    Public Sub NewProjectCmd()
       NewProject(True)
+      'Dim x As New OpenFileDialog()
+      'x.ShowDialog()
+
+      Dim sDir As String = "C:\EgtData\Test3dPrinting"
+      Dim od As New EgtManageFileDialogV(Application.Current.MainWindow, New EgtManageFileDialogVM()) With {
+         .Title = "Open",
+         .Filter = "Icarus project(*.icrs)|*.icrs" &
+                   "|New geometry EgalTech(*.nge)|*.nge",
+         .FileName = "New.icrs",
+         .FilterIndex = 1,
+         .InitialDirectory = sDir,
+         .Mode = 1}
+      od.ShowDialog()
+      Dim sFilePath As String = od.FileName
    End Sub
 
    Friend Sub NewProject(bDialog As Boolean)
@@ -394,6 +408,14 @@ Public Class ProjManagerVM
             End If
          End If
       End If
+      ' Verifico se il progetto corrente è una porta
+      Dim nPartId As Integer = EgtGetFirstPart()
+      If nPartId = GDB_ID.NULL Then
+         nPartId = EgtGetFirstPartInRawPart(EgtGetFirstRawPart())
+      End If
+      Dim sPartName As String = String.Empty
+      EgtGetName(nPartId, sPartName)
+      Dim bPrjIsDoor As Boolean = (String.Compare(sPartName, "DOOR") = 0)
       ' Recupero macchine dei gruppi di lavoro del progetto
       Dim Machines As New List(Of String)
       Dim nMchGrpId As Integer = EgtGetFirstMachGroup()
@@ -413,8 +435,8 @@ Public Class ProjManagerVM
             Dim sCurrProjName As String = Path.GetFileNameWithoutExtension(sCurrProject).ToUpper()
             Dim TempFiles() As String = Directory.GetFiles(sCurrProjectDir)
             For FileIndex = 0 To TempFiles.Count - 1
-               If TempFiles(FileIndex) = sCurrProject Then Continue For 
-               Dim sCurrFileName As String = Path.GetFileNameWithoutExtension( TempFiles(FileIndex)).ToUpper()
+               If TempFiles(FileIndex) = sCurrProject Then Continue For
+               Dim sCurrFileName As String = Path.GetFileNameWithoutExtension(TempFiles(FileIndex)).ToUpper()
                If String.Compare(sCurrFileName, sCurrProjName) = 0 Then
                   OtherFiles.Add(TempFiles(FileIndex))
                End If
@@ -434,7 +456,7 @@ Public Class ProjManagerVM
             For Each sMachineName As String In Machines
                Dim sMachineDir As String = Map.refMainWindowVM.MainWindowM.sMachinesRoot & "\" & sMachineName
                If Directory.Exists(sMachineDir) Then
-                  zip.AddSelectedFiles( "name != *\.git\*.* and name != *.git*", sMachineDir, sMachineName, True)
+                  zip.AddSelectedFiles("name != *\.git\*.* and name != *.git*", sMachineDir, sMachineName, True)
                End If
             Next
             ' aggiungo progetto corrente