Demetrio Cassarino
9a183182c0
-sistemato ridimensionameto finestra strategie -eliminato stili vecchia grafica
23 lines
1.0 KiB
VB.net
23 lines
1.0 KiB
VB.net
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)
|
|
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
|