Demetrio Cassarino
64d1bc7525
-piccola modifica a BTLdataWnd -aggiunto messaggio errrore file defaultconfig
14 lines
636 B
VB.net
14 lines
636 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.refProjectVM.CustomGeneralParameters(SelStrategy.Content)
|
|
Map.refProjectVM.SelStrategySetup = SelStrategy.Content
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|