EgtCAM5 2.2j7 :

- aggiunto expander dei parametri SurfFinishing alle Operazioni
2020-10-30 09:46:54 +00:00
parent fe58578e65
commit fa0a03f210
5 changed files with 377 additions and 2 deletions
@@ -160,6 +160,9 @@
      <DependentUpon>EstimationsExpanderV.xaml</DependentUpon>
    </Compile>
    <Compile Include="OptionPanel\MachiningOptionPanel\EstimationsExpander\EstimationsExpander.vb" />
+    <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\SurfFinishingParameterExpanderV.xaml.vb">
+      <DependentUpon>SurfFinishingParameterExpanderV.xaml</DependentUpon>
+    </Compile>
    <Compile Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\StoneMillingParameterExpanderV.xaml.vb">
      <DependentUpon>StoneMillingParameterExpanderV.xaml</DependentUpon>
    </Compile>
@@ -429,6 +432,10 @@
      <Generator>MSBuild:Compile</Generator>
      <SubType>Designer</SubType>
    </Page>
+    <Page Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\SurfFinishingParameterExpanderV.xaml">
+      <Generator>MSBuild:Compile</Generator>
+      <SubType>Designer</SubType>
+    </Page>
    <Page Include="OptionPanel\MachiningOptionPanel\OperationExpander\MachiningParameterExpander\StoneMillingParameterExpanderV.xaml">
      <Generator>MSBuild:Compile</Generator>
      <SubType>Designer</SubType>
@@ -70,6 +70,6 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 

-<Assembly: AssemblyVersion("2.2.10.6")>
-<Assembly: AssemblyFileVersion("2.2.10.6")>
+<Assembly: AssemblyVersion("2.2.10.7")>
+<Assembly: AssemblyFileVersion("2.2.10.7")>

@@ -81,6 +81,7 @@ Public Class MachiningParameterExpanderVM
   Dim StoneSawRoughParamExpanderV As StoneSawRoughingParameterExpanderV
   Dim StoneMillParamExpanderV As StoneMillingParameterExpanderV
   Dim StoneDrillParamExpanderV As StoneDrillingParameterExpanderV
+   Dim SurfFinishParamExpanderV As SurfFinishingParameterExpanderV
   Dim WjParamExpanderV As WaterjettingParameterExpanderV

   Private Sub Dummy()
@@ -116,6 +117,7 @@ Public Class MachiningParameterExpanderVM
         StoneSawRoughParamExpanderV.DataContext = Nothing
         StoneMillParamExpanderV.DataContext = Nothing
         StoneDrillParamExpanderV.DataContext = Nothing
+         SurfFinishParamExpanderV.DataContext = Nothing
         WjParamExpanderV.DataContext = Nothing

         m_CurrOperation.ReadOperationParam()
@@ -171,6 +173,9 @@ Public Class MachiningParameterExpanderVM
            Case MCH_OY.CHISELING
               ChiselParamExpanderV.DataContext = m_CurrOperation
               Return ChiselParamExpanderV
+            Case MCH_OY.SURFFINISHING
+               SurfFinishParamExpanderV.DataContext = m_CurrOperation
+               Return SurfFinishParamExpanderV
            Case MCH_OY.WATERJETTING
               WjParamExpanderV.DataContext = m_CurrOperation
               Return WjParamExpanderV
@@ -231,6 +236,7 @@ Public Class MachiningParameterExpanderVM
      StoneSawRoughParamExpanderV = New StoneSawRoughingParameterExpanderV
      StoneMillParamExpanderV = New StoneMillingParameterExpanderV
      StoneDrillParamExpanderV = New StoneDrillingParameterExpanderV
+      SurfFinishParamExpanderV = New SurfFinishingParameterExpanderV
      WjParamExpanderV = New WaterjettingParameterExpanderV

      NotifyPropertyChanged("ParamExpanderPageV")
@@ -0,0 +1,279 @@
+<UserControl x:Class="SurfFinishingParameterExpanderV"
+   xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+   xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+   xmlns:sys="clr-namespace:System;assembly=mscorlib"
+   xmlns:Interactivity="clr-namespace:System.Windows.Interactivity;assembly=System.Windows.Interactivity"
+   xmlns:EgtCAM5="clr-namespace:EgtCAM5"
+   xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5">
+
+    <UserControl.Resources>
+        <EgtCAM5:OperationParamVisibilityConverter x:Key="OperationParamVisibilityConverter"/>
+        <EgtCAM5:DepthUnitConverter x:Key="DepthUnitConverter"/>
+        <sys:Int32 x:Key="Invert">0</sys:Int32>
+        <sys:Int32 x:Key="LeaveTab">1</sys:Int32>
+        <sys:Int32 x:Key="WorkSide">2</sys:Int32>
+        <sys:Int32 x:Key="HeadSide">3</sys:Int32>
+        <sys:Int32 x:Key="LeadInType">4</sys:Int32>
+        <sys:Int32 x:Key="ExtLinkType">5</sys:Int32>
+        <sys:Int32 x:Key="LeadOutType">6</sys:Int32>
+        <sys:Int32 x:Key="CurveUse">7</sys:Int32>
+        <sys:Int32 x:Key="StepType">8</sys:Int32>
+        <sys:Int32 x:Key="LeadLinkType">9</sys:Int32>
+        <sys:Int32 x:Key="Speed">10</sys:Int32>
+        <sys:Int32 x:Key="Feed">11</sys:Int32>
+        <sys:Int32 x:Key="StartFeed">12</sys:Int32>
+        <sys:Int32 x:Key="EndFeed">13</sys:Int32>
+        <sys:Int32 x:Key="TipFeed">14</sys:Int32>
+        <sys:Int32 x:Key="OffSr">15</sys:Int32>
+        <sys:Int32 x:Key="OffSl">16</sys:Int32>
+        <sys:Int32 x:Key="SideAngle">17</sys:Int32>
+        <sys:Int32 x:Key="Approx">18</sys:Int32>
+        <sys:Int32 x:Key="StartPos">19</sys:Int32>
+        <sys:Int32 x:Key="StartSlowLen">20</sys:Int32>
+        <sys:Int32 x:Key="EndSlowLen">21</sys:Int32>
+        <sys:Int32 x:Key="ThrouAddLen">22</sys:Int32>
+        <sys:Int32 x:Key="StepPar">23</sys:Int32>
+        <sys:Int32 x:Key="ReturnPos">24</sys:Int32>
+        <sys:Int32 x:Key="TabLen">25</sys:Int32>
+        <sys:Int32 x:Key="TabDist">26</sys:Int32>
+        <sys:Int32 x:Key="TabHeight">27</sys:Int32>
+        <sys:Int32 x:Key="TabAngle">28</sys:Int32>
+        <sys:Int32 x:Key="LiTang">29</sys:Int32>
+        <sys:Int32 x:Key="LiPerp">30</sys:Int32>
+        <sys:Int32 x:Key="LiElev">31</sys:Int32>
+        <sys:Int32 x:Key="LiCompLen">32</sys:Int32>
+        <sys:Int32 x:Key="LoTang">33</sys:Int32>
+        <sys:Int32 x:Key="LoPerp">34</sys:Int32>
+        <sys:Int32 x:Key="LoElev">35</sys:Int32>
+        <sys:Int32 x:Key="LoCompLen">36</sys:Int32>
+        <sys:Int32 x:Key="StartAddLen">37</sys:Int32>
+        <sys:Int32 x:Key="EndAddLen">38</sys:Int32>
+        <sys:Int32 x:Key="StepExtArc">39</sys:Int32>
+        <sys:Int32 x:Key="StepIntArc">40</sys:Int32>
+        <sys:Int32 x:Key="SideStep">41</sys:Int32>
+        <sys:Int32 x:Key="VertFeed">42</sys:Int32>
+        <sys:Int32 x:Key="NamePar">43</sys:Int32>
+        <sys:Int32 x:Key="Tool">44</sys:Int32>
+        <sys:Int32 x:Key="DepthStr">45</sys:Int32>
+        <sys:Int32 x:Key="UserNotes">46</sys:Int32>
+        <sys:Int32 x:Key="OverLapStr">47</sys:Int32>
+        <sys:Int32 x:Key="OffsetStr">48</sys:Int32>
+        <sys:Int32 x:Key="SubType">49</sys:Int32>
+        <sys:Int32 x:Key="SolChoiceType">50</sys:Int32>
+        <sys:Int32 x:Key="AxRotRef">51</sys:Int32>
+        <sys:Int32 x:Key="BlockedAxesRef">52</sys:Int32>
+        <sys:Int32 x:Key="FaceUseType">53</sys:Int32>
+        <sys:Int32 x:Key="InvertToolDir">54</sys:Int32>
+        <sys:Int32 x:Key="ExpanderLeadIn">55</sys:Int32>
+        <sys:Int32 x:Key="ExpanderLeadOut">56</sys:Int32>
+        <sys:Int32 x:Key="ApproxGen">57</sys:Int32>
+        <sys:Int32 x:Key="OscEnable">58</sys:Int32>
+        <sys:Int32 x:Key="OscHeight">59</sys:Int32>
+        <sys:Int32 x:Key="OscRampLen">60</sys:Int32>
+        <sys:Int32 x:Key="OscFlatLen">61</sys:Int32>
+    </UserControl.Resources>
+
+    <StackPanel Name="OperationParametersStackPanel">
+        <StackPanel Name="OperationFirstParametersStackPanel">
+            <UniformGrid Columns="2">
+                <TextBlock Text="{Binding DepthStrTxBl}" Style="{DynamicResource MPExpander_DepthTxBlMargin}"/>
+                <EgtWPFLib5:EgtTextBox Text="{Binding DepthStr, UpdateSourceTrigger=PropertyChanged,
+                                                  Converter={StaticResource DepthUnitConverter}}"
+                                       Style="{DynamicResource MPExpander_DepthTxBxMargin}"/>
+            </UniformGrid>
+            <EgtWPFLib5:CheckParamV 
+                                     ParamTxBl="{Binding InvertTxBl}" 
+                                     ParamChBx="{Binding Path=Invert,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}" 
+                                     Style="{DynamicResource CheckParamV_Margin}"/>
+            <EgtWPFLib5:ComboParamV 
+                                     ParamTxBl="{Binding SubTypeTxBl}" 
+                                     ParamCmBxList="{Binding Path=SubTypeList,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}"
+                                     ParamCmBxSelIndex="{Binding Path=SelectedSubType}" 
+                                     Style="{DynamicResource ComboParamV_Margin}"/>
+            <EgtWPFLib5:StringParamV 
+                                     ParamTxBl="{Binding OverLapTxBl}" 
+                                     ParamTxBx="{Binding Path=OverLap,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}" 
+                                     Style="{DynamicResource StringParamV_Margin}"/>
+            <UniformGrid Columns="2">
+                <TextBlock Text="{Binding UserNotesTxBl}" 
+                           Style="{DynamicResource MPExpander_UserNotesTxBlMargin}"/>
+                <EgtWPFLib5:EgtTextBox Text="{Binding UserNotes, UpdateSourceTrigger=PropertyChanged}" 
+                                       Style="{DynamicResource MPExpander_UserNotesTxBxMargin}">
+                    <EgtWPFLib5:EgtTextBox.ToolTip>
+                        <TextBlock Text="{Binding UserNotesTooltip}"/>
+                    </EgtWPFLib5:EgtTextBox.ToolTip>
+                </EgtWPFLib5:EgtTextBox>
+            </UniformGrid>
+        </StackPanel>
+        <StackPanel Name="AutomaticCloseExpanderStackPanel">
+            <Expander Header="{Binding GenericExpanderHeader}" Name="GenericExpander"
+            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+                <StackPanel>
+                    <EgtWPFLib5:StringParamV 
+                               ParamTxBl="{Binding StartPosTxBl}" 
+                               ParamTxBx="{Binding Path=StartPos,
+                                UpdateSourceTrigger=PropertyChanged,
+                                ValidatesOnDataErrors=True}" 
+                               Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:ComboParamV 
+                                     ParamTxBl="{Binding LeadLinkTypeTxBl}" 
+                                     ParamCmBxList="{Binding Path=LeadLinkTypeList,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}"
+                                     ParamCmBxSelIndex="{Binding Path=SelectedLeadLinkType}" 
+                                     Style="{DynamicResource ComboParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV
+                                     ParamTxBl="{Binding SideAngleTxBl}" 
+                                     ParamTxBx="{Binding Path=SideAngle,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}" 
+                                     Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                               ParamTxBl="{Binding SideStepTxBl}" 
+                               ParamTxBx="{Binding Path=SideStep,
+                                UpdateSourceTrigger=PropertyChanged,
+                                ValidatesOnDataErrors=True}" 
+                               Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                               ParamTxBl="{Binding OffsetSrTxBl}" 
+                               ParamTxBx="{Binding Path=OffSr,
+                                UpdateSourceTrigger=PropertyChanged,
+                                ValidatesOnDataErrors=True}" 
+                               Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV
+                                     ParamTxBl="{Binding ApproxTxBl}" 
+                                     ParamTxBx="{Binding Path=Approx,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}" 
+                               Style="{DynamicResource StringParamV_Margin}"/>
+                </StackPanel>
+            </Expander>
+
+            <Expander Header="{Binding AdvancedParamMsg}" Name="AdvancedParam"
+            Style="{StaticResource ExpanderStyle}" Margin="0,1,0,1">
+                <StackPanel>
+                    <EgtWPFLib5:StringParamV 
+                               ParamTxBl="{Binding InitAngsTxBl}" 
+                               ParamTxBx="{Binding Path=InitAngs,
+                                UpdateSourceTrigger=PropertyChanged,
+                                ValidatesOnDataErrors=True}" 
+                               Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                               ParamTxBl="{Binding BlockedAxisTxBl}" 
+                               ParamTxBx="{Binding Path=BlockedAxis,
+                                UpdateSourceTrigger=PropertyChanged,
+                                ValidatesOnDataErrors=True}" 
+                               Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:ComboParamV 
+                                  ParamTxBl="{Binding SolChoiceTypeTxBl}" 
+                                  ParamCmBxList="{Binding Path=SolChoiceTypeList,
+                                   UpdateSourceTrigger=PropertyChanged,
+                                   ValidatesOnDataErrors=True,
+                                   Mode=OneWay}"
+                                  ParamCmBxSelIndex="{Binding Path=SelectedSolChoiceType}"
+                                  Style="{DynamicResource ComboParamV_Margin}"/>
+                </StackPanel>
+            </Expander>
+
+            <Expander Style="{StaticResource ExpanderStyle}">
+                <Expander.Header>
+                    <EgtWPFLib5:ComboParamV 
+                                  ParamTxBl="{Binding LeadInTypeTxBl}" 
+                                  ParamCmBxList="{Binding Path=LeadInTypeList,
+                                   UpdateSourceTrigger=PropertyChanged,
+                                   ValidatesOnDataErrors=True}"
+                                  ParamCmBxSelIndex="{Binding Path=SelectedLeadInType}" 
+                                  Style="{DynamicResource ComboParamV_Margin}"/>
+                </Expander.Header>
+                <StackPanel>
+                    <EgtWPFLib5:StringParamV 
+                                     ParamTxBl="{Binding LiTangTxBl}" 
+                                     ParamTxBx="{Binding Path=LiTang,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}" 
+                        Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                                     ParamTxBl="{Binding LiPerpTxBl}" 
+                                     ParamTxBx="{Binding Path=LiPerp,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}" 
+                        Style="{DynamicResource StringParamV_Margin}"/>
+                </StackPanel>
+            </Expander>
+
+            <Expander Style="{StaticResource ExpanderStyle}">
+                <Expander.Header>
+                    <EgtWPFLib5:ComboParamV 
+                                  ParamTxBl="{Binding LeadOutTypeTxBl}" 
+                                  ParamCmBxList="{Binding Path=LeadOutTypeList,
+                                   UpdateSourceTrigger=PropertyChanged,
+                                   ValidatesOnDataErrors=True}"
+                                  ParamCmBxSelIndex="{Binding Path=SelectedLeadOutType}"
+                                  Style="{DynamicResource ComboParamV_Margin}"/>
+                </Expander.Header>
+                <StackPanel>
+                    <EgtWPFLib5:StringParamV 
+                                     ParamTxBl="{Binding LoTangTxBl}" 
+                                     ParamTxBx="{Binding Path=LoTang,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}" 
+                        Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                                     ParamTxBl="{Binding LoPerpTxBl}" 
+                                     ParamTxBx="{Binding Path=LoPerp,
+                                      UpdateSourceTrigger=PropertyChanged,
+                                      ValidatesOnDataErrors=True}" 
+                        Style="{DynamicResource StringParamV_Margin}"/>
+                </StackPanel>
+            </Expander>
+
+            <Expander Style="{StaticResource ExpanderStyle}">
+                <Expander.Header>
+                    <TextBlock Text="{Binding ToolExpanderHeader}"/>
+                </Expander.Header>
+                <StackPanel>
+                    <EgtWPFLib5:StringParamV 
+                               ParamTxBl="{Binding SpeedTxBl}" 
+                               ParamTxBx="{Binding Path=Speed,
+                                UpdateSourceTrigger=PropertyChanged,
+                                ValidatesOnDataErrors=True}" 
+                               Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                          ParamTxBl="{Binding FeedTxBl}" 
+                          ParamTxBx="{Binding Path=Feed,
+                           UpdateSourceTrigger=PropertyChanged,
+                           ValidatesOnDataErrors=True}" 
+                          Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                          ParamTxBl="{Binding TipFeedTxBl}" 
+                          ParamTxBx="{Binding Path=TipFeed,
+                           UpdateSourceTrigger=PropertyChanged,
+                           ValidatesOnDataErrors=True}" 
+                          Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                          ParamTxBl="{Binding StartFeedTxBl}" 
+                          ParamTxBx="{Binding Path=StartFeed,
+                           UpdateSourceTrigger=PropertyChanged,
+                           ValidatesOnDataErrors=True}" 
+                          Style="{DynamicResource StringParamV_Margin}"/>
+                    <EgtWPFLib5:StringParamV 
+                          ParamTxBl="{Binding EndFeedTxBl}" 
+                          ParamTxBx="{Binding Path=EndFeed,
+                           UpdateSourceTrigger=PropertyChanged,
+                           ValidatesOnDataErrors=True}" 
+                          Style="{DynamicResource StringParamV_Margin}"/>
+                </StackPanel>
+            </Expander>
+            <Interactivity:Interaction.Behaviors>
+                <EgtCAM5:AutomaticCloseExpander/>
+            </Interactivity:Interaction.Behaviors>
+        </StackPanel>
+    </StackPanel>
+
+</UserControl>
@@ -0,0 +1,83 @@
+Imports EgtWPFLib5
+Imports EgtWPFLib5.EgtFloating
+
+Public Class SurfFinishingParameterExpanderV
+
+   Private EgtFloatingTray As EgtFloatingTray
+   Private EgtFloatingPanel As EgtFloatingPanel
+
+   Private m_bFirst As Boolean = True
+
+   Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded
+      If m_bFirst Then
+         EgtFloatingTray = FindAncestor(Of EgtFloatingTray)(Me)
+         EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me)
+         AddHandler EgtFloatingTray.SizeChanged, AddressOf EgtFloatingTray_SizeChanged
+         PanelHeight = EgtFloatingPanel.ActualHeight
+         Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight
+         m_bFirst = False
+      End If
+      CalculateOperationParametersStackPanelMaxHeight()
+   End Sub
+
+   Dim m_bSizeChanging As Boolean = False
+
+   Private Sub EgtFloatingTray_SizeChanged(sender As Object, e As System.Windows.SizeChangedEventArgs)
+      If m_bSizeChanging Then Return
+      m_bSizeChanging = True
+      CalculateOperationParametersStackPanelMaxHeight()
+      m_bSizeChanging = False
+   End Sub
+
+   Dim PanelHeight As Double = 0
+   Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
+
+   Private Sub CalculateOperationParametersStackPanelMaxHeight()
+      Dim AutomaticCloseExpanderStackPanelHeight As Double = 0
+      Dim OpenedExpanderList As New List(Of Boolean)
+      For Index = 0 To AutomaticCloseExpanderStackPanel.Children.Count - 1
+         If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then
+            Dim IndexedExpander As Expander = DirectCast(AutomaticCloseExpanderStackPanel.Children(Index), Expander)
+            If IndexedExpander.IsExpanded Then
+               OpenedExpanderList.Add(True)
+               IndexedExpander.IsExpanded = False
+               Dim CurrExpanderContent As FrameworkElement = DirectCast(IndexedExpander.Content, FrameworkElement)
+               CurrExpanderContent.Measure(New Size(Double.PositiveInfinity, Double.PositiveInfinity))
+               AutomaticCloseExpanderStackPanelHeight -= CurrExpanderContent.DesiredSize.Height
+               ' Sottraggo anche i padding
+               AutomaticCloseExpanderStackPanelHeight -= (IndexedExpander.Padding.Top + IndexedExpander.Padding.Bottom)
+            Else
+               OpenedExpanderList.Add(False)
+            End If
+         Else
+            OpenedExpanderList.Add(False)
+         End If
+      Next
+      Dim RemainingHeight As Double = EgtFloatingTray.ActualHeight - PanelHeight
+      AutomaticCloseExpanderStackPanel.MaxHeight = Me.AutomaticCloseExpanderStackPanelHeight + RemainingHeight
+      For Index = AutomaticCloseExpanderStackPanel.Children.Count - 1 To 0 Step -1
+         If TypeOf AutomaticCloseExpanderStackPanel.Children(Index) Is Expander Then
+            Dim IndexedExpander As Expander = DirectCast(AutomaticCloseExpanderStackPanel.Children(Index), Expander)
+            If OpenedExpanderList(Index) Then
+               IndexedExpander.IsExpanded = True
+            End If
+         End If
+      Next
+   End Sub
+
+   ' Funzione che permette di trovare il primo contenitore di tipo T di un elemento grafico dependencyObject 
+   Public Function FindAncestor(Of T As Class)(dependencyObject As DependencyObject) As T
+      Dim target As DependencyObject = dependencyObject
+      Do
+         target = LogicalTreeHelper.GetParent(target)
+      Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
+      If IsNothing(target) Then
+         target = dependencyObject
+         Do
+            target = VisualTreeHelper.GetParent(target)
+         Loop While target IsNot Nothing AndAlso Not (TypeOf target Is T)
+      End If
+      Return TryCast(target, T)
+   End Function
+
+End Class