Demetrio Cassarino
fb7a7fcb2a
-aggiunto ordinamento strategie per nIndexInList -ripristinato valori in tabelle
15 lines
751 B
VB.net
15 lines
751 B
VB.net
Public Class RightPanelTopV
|
|
|
|
Private Sub ComboBoxItem_PreviewMouseDown(sender As Object, e As MouseButtonEventArgs)
|
|
Dim SelStrategy As ComboBoxItem = DirectCast(sender, ComboBoxItem)
|
|
If Not IsNothing(Map.refProjectVM.SelStrategySetup) AndAlso Map.refProjectVM.SelStrategySetup.Equals(SelStrategy.Content) Then
|
|
Map.refStrategyManagerVM.SelStrategySetup.sName = SelStrategy.Content
|
|
Map.refStrategyManagerVM.SelStrategySetup.Read()
|
|
Map.refStrategyManagerVM.OrderStrategyList(Map.refStrategyManagerVM.SelStrategySetup.StrategyFeatureList)
|
|
Map.refProjectVM.CustomGeneralParameters(SelStrategy.Content)
|
|
Map.refProjectVM.SelStrategySetup = SelStrategy.Content
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|