OmagOFFICE :

- Gestione dati TRF.
- Stime tempi e costi.
- Lavorazioni da sotto.

SideEntityControl/SideEntityControlVM.vb

@@ -162,6 +162,8 @@ Public Class SideEntityControlVM
 
       SideAngleEntity.m_ModifySideAngle = AddressOf ModifySideAngle
       SideAngleEntity.m_RefreshSideAngleText = AddressOf RefreshSideAngleText
+      DripEntity.m_ModifyDrip = AddressOf ModifyDrip
+      DripEntity.m_RefreshSideAngleText = AddressOf RefreshSideAngleText
       m_CallingWindow = CallingWindow
       m_CallingWndScene = CallingWndScene
       m_Mode = Mode
@@ -692,10 +694,8 @@ Public Class SideEntityControlVM
    Friend Sub Close()
       If m_CallingWindow = CallingWindowOpt.COMPO Then
          ' Svuoto layer in cui sono presenti i testi con le inclinazioni dei lati
-         If m_Mode = ModeOpt.SIDEANGLE Then
-            Dim PartId As Integer = EgtGetFirstInGroup(GDB_ID.ROOT)
-            EgtEmptyGroup(EgtGetFirstNameInGroup(PartId, SIDE_ANGLE_LAYER))
-         End If
+         Dim PartId As Integer = EgtGetFirstInGroup(GDB_ID.ROOT)
+         EgtEmptyGroup(EgtGetFirstNameInGroup(PartId, SIDE_ANGLE_LAYER))
       ElseIf m_CallingWindow = CallingWindowOpt.DXFIMPORT Then
          ' Nessuna azione necessaria
       End If
@@ -800,7 +800,7 @@ Public MustInherit Class SideEntity
                Return Visibility.Visible
             End If
          Else
-            Return Visibility.Visible
+            Return Visibility.Collapsed
          End If
       End Get
    End Property
@@ -932,6 +932,9 @@ End Class
 Friend Class DripEntity
    Inherits SideEntity
 
+   Friend Shared m_ModifyDrip As Action(Of String, Double)
+   Friend Shared m_RefreshSideAngleText As Action
+
    Private m_bHaveDrip As Boolean
    Public Property bHaveDrip As Boolean
       Get
@@ -947,8 +950,14 @@ Friend Class DripEntity
          Return m_bHaveDrip
       End Get
       Set(value As Boolean)
-         m_bHaveDrip = value
-         NotifyPropertyChanged("bIsChecked")
+         If value <> m_bHaveDrip Then
+            m_bHaveDrip = value
+            ' Lo modifico nella geometria e nella lista inclinazioni
+            m_ModifyDrip(sEntityName, m_bHaveDrip)
+            ' Aggiorno tutti i testi
+            m_RefreshSideAngleText()
+            NotifyPropertyChanged("bIsChecked")
+         End If
       End Set
    End Property