egtbeamwall/EgtBEAMWALL.Optimizer/StrategyManager/StrategyManagerV.xaml.vb

Public Class StrategyManagerV

   'Private Sub TreeViewItem_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
   '   If TypeOf sender IsNot TreeViewItem Then Return
   '   Dim TreeViewItem As TreeViewItem = DirectCast(sender, TreeViewItem)
   '   Dim TreeViewItemButton As Object = TreeHelperManager.FindVisualParent(Of Primitives.ToggleButton)(e.OriginalSource)
   '   Dim TreeViewItemParentNode As Object = TreeHelperManager.FindVisualParent(Of TreeViewItem)(sender)
   '   If Not IsNothing(TreeViewItemButton) OrElse Not IsNothing(TreeViewItemParentNode) Then Return
   '   TreeViewItem.IsExpanded = Not TreeViewItem.IsExpanded
   'End Sub

   Private Sub TreeViewItem_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
      If TypeOf sender IsNot TreeViewItem Then Return
      Dim treeViewItem As TreeViewItem = DirectCast(sender, TreeViewItem)
      If TypeOf treeViewItem.DataContext IsNot StrategyFeature Then
         Dim Topology As Topology = DirectCast(treeViewItem.DataContext, Topology)
         Topology.CreateStrategyViews()
         Topology.ActiveStrategyList_View.Refresh()
         Topology.AvailableStrategyList_View.Refresh()
      Else
         Dim Feature As StrategyFeature = DirectCast(treeViewItem.DataContext, StrategyFeature)
         For Each Topology As Topology In Feature.TopologyList
            Topology.ActiveStrategyList_View.Filter = Function(item) False
            Topology.AvailableStrategyList_View.Filter = Function(item) False
            Topology.ActiveStrategyList_View.Refresh()
            Topology.AvailableStrategyList_View.Refresh()
         Next
      End If
   End Sub

End Class