Nicola Pievani
75bdbe6b15
-> aggiorno direttorio porte corrente (modalità progetto); -> correzione comando "Duplica"; -> aggiunto nuovo profilo sul top della porta (Angle); -> eliminazione progetti (configurabile); -> configurare la modalità di funzionamento da OptionPage "SingleDoor"/"Project".
28 lines
1.2 KiB
VB.net
28 lines
1.2 KiB
VB.net
Public Class AssemblyManagerV
|
|
|
|
Private Sub Door_MouseLeftButtonUp(sender As Object, e As MouseButtonEventArgs)
|
|
Dim Item As ListBoxItem = DirectCast(sender, ListBoxItem)
|
|
If IsNothing(Map.refAssemblyManagerVM.CurrProject.SelAssemblyName) then
|
|
e.Handled=True
|
|
Return
|
|
End If
|
|
' Gestisco porta corrente modificata
|
|
If Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified then
|
|
If Not Map.refAssemblyManagerVM.ManageModified() Then
|
|
Return
|
|
End If
|
|
Item.IsSelected=Not Map.refAssemblyManagerVM.CurrProject.IsBlockedSelAssemblyName(DirectCast(Item.DataContext, AssemblyName))
|
|
Return
|
|
End If
|
|
' verifico se il progetto cliccato è quello già selezionato
|
|
'If Map.refAssemblyManagerVM.CurrProject.SelAssemblyName Is DirectCast(Item.DataContext, AssemblyName) Then
|
|
' ricarico la porta
|
|
e.Handled= Map.refAssemblyManagerVM.CurrProject.IsBlockedSelAssemblyName(DirectCast(Item.DataContext, AssemblyName))
|
|
'End If
|
|
'If IsModified Then
|
|
' Map.refAssemblyManagerVM.CurrProject.SelAssemblyName = DirectCast(Item.DataContext, AssemblyName)
|
|
'End If
|
|
End Sub
|
|
|
|
End Class
|