OmagOFFICE 2.3a1:

-> correzione chiusura comando FIloTop.
2021-01-27 11:19:46 +00:00
parent 4d6c47fe36
commit 9f6df110dc
4 changed files with 58 additions and 4 deletions
@@ -912,6 +912,20 @@ Public Class SideEntityControlVM
      ElseIf m_Mode = ModeOpt.FILOTOP Then
         WriteMainPrivateProfileString(S_SIDES, K_FILOTOPOFFSET, DoubleToString(m_Parameter1, 3))
         WriteMainPrivateProfileString(S_SIDES, K_FILOTOPDEPTH, DoubleToString(m_Parameter2, 3))
+         ' Aggiorno affondamento del profilo
+         Dim nPartId As Integer = EgtGetFirstPart()
+         While nPartId <> GDB_ID.NULL
+            Dim nLayId As Integer = EgtGetFirstLayer(nPartId)
+            While nLayId <> GDB_ID.NULL
+               Dim sLayName As String = ""
+               If EgtGetName(nLayId, sLayName) AndAlso sLayName = NAME_INLOOP AndAlso EgtExistsInfo(nLayId, INFO_FILOTOP) Then
+                  EgtSetInfo(nLayId, INFO_OFFSET, m_Parameter1)
+                  EgtSetInfo(nLayId, INFO_DEPTH, m_Parameter2)
+               End If
+               nLayId = EgtGetNextLayer(nLayId)
+            End While
+            nPartId = EgtGetNextPart(nPartId)
+         End While
      ElseIf m_Mode = ModeOpt.DRIP Then
         WriteMainPrivateProfileString(S_SIDES, K_DRIPOFFSET, DoubleToString(m_dDripOffset, 3))
         WriteMainPrivateProfileString(S_SIDES, K_DRIPOFFSET2, DoubleToString(m_dDripOffset2, 3))