diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/BeamMillingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/BeamMillingParameterExpanderV.xaml.vb index ca4cd83..887b69e 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/BeamMillingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/BeamMillingParameterExpanderV.xaml.vb @@ -3,17 +3,17 @@ Imports EgtWPFLib5.EgtFloating Public Class BeamMillingParameterExpanderV - Private m_RightTrayV As OptionPanelV + Private m_RightTrayV As RightTrayV Private EgtFloatingPanel As EgtFloatingPanel Private m_bFirst As Boolean = True Private Sub OperationExpanderView_Loaded(sender As Object, e As System.Windows.RoutedEventArgs) Handles Me.Loaded If m_bFirst Then - m_RightTrayV = FindAncestor(Of OptionPanelV)(Me) + m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class BeamMillingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/ChiselingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/ChiselingParameterExpanderV.xaml.vb index 816a1c5..c03be52 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/ChiselingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/ChiselingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class ChiselingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class ChiselingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/GenMachiningParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/GenMachiningParameterExpanderV.xaml.vb index 631dfec..3b0be02 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/GenMachiningParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/GenMachiningParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class GenMachiningParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class GenMachiningParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MortisingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MortisingParameterExpanderV.xaml.vb index 588cae4..0718765 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MortisingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/MortisingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class MortisingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class MortisingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/PocketingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/PocketingParameterExpanderV.xaml.vb index 26cccac..ab2d31e 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/PocketingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/PocketingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class PocketingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class PocketingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneDrillingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneDrillingParameterExpanderV.xaml.vb index 727335b..2787b7f 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneDrillingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneDrillingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class StoneDrillingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class StoneDrillingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneMillingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneMillingParameterExpanderV.xaml.vb index 361d5b8..07c28f6 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneMillingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneMillingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class StoneMillingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class StoneMillingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawFinishingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawFinishingParameterExpanderV.xaml.vb index 8505292..fa6c686 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawFinishingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawFinishingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class StoneSawFinishingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class StoneSawFinishingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawRoughingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawRoughingParameterExpanderV.xaml.vb index ceb2061..b7a5bf9 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawRoughingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawRoughingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class StoneSawRoughingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class StoneSawRoughingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawingParameterExpanderV.xaml.vb index c64d718..79a3dcc 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/StoneSawingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class StoneSawingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class StoneSawingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/SurfFinishingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/SurfFinishingParameterExpanderV.xaml.vb index f3530d4..c4229fb 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/SurfFinishingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/SurfFinishingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class SurfFinishingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class SurfFinishingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WaterjettingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WaterjettingParameterExpanderV.xaml.vb index 447b611..ac0268b 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WaterjettingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WaterjettingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class WaterjettingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class WaterjettingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodDrillingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodDrillingParameterExpanderV.xaml.vb index 88da526..8e65ecf 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodDrillingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodDrillingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class WoodDrillingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class WoodDrillingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodMillingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodMillingParameterExpanderV.xaml.vb index f11b27a..079ea9b 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodMillingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodMillingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class WoodMillingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class WoodMillingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean) diff --git a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodSawingParameterExpanderV.xaml.vb b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodSawingParameterExpanderV.xaml.vb index 89c8cdf..6b53c5c 100644 --- a/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodSawingParameterExpanderV.xaml.vb +++ b/OptionPanel/MachiningOptionPanel/OperationExpander/MachiningParameterExpander/WoodSawingParameterExpanderV.xaml.vb @@ -13,7 +13,7 @@ Public Class WoodSawingParameterExpanderV m_RightTrayV = FindAncestor(Of RightTrayV)(Me) EgtFloatingPanel = FindAncestor(Of EgtFloatingPanel)(Me) AddHandler m_RightTrayV.SizeChanged, AddressOf RightTrayV_SizeChanged - PanelHeight = EgtFloatingPanel.ActualHeight + PanelHeight = EgtFloatingPanel.DesiredSize.Height Me.AutomaticCloseExpanderStackPanelHeight = AutomaticCloseExpanderStackPanel.ActualHeight m_bFirst = False End If @@ -32,6 +32,7 @@ Public Class WoodSawingParameterExpanderV Dim PanelHeight As Double = 0 Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 + ' ricalcola spazio utilizzabile quando modificata dimensione finestra e quindi dimensione della tray Private Sub CalculateOperationParametersStackPanelMaxHeight() Dim AutomaticCloseExpanderStackPanelHeight As Double = 0 Dim OpenedExpanderList As New List(Of Boolean)