From 6d187be274d0972705f7e3ccf7f3142dbfa590e4 Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.s@egaltech.com>
Date: Fri, 13 Oct 2017 16:03:17 +0000
Subject: [PATCH] OmagCUT 1.8j1 : - corretta gestione valori correnti lati
 inclinati al ritorno sullo stesso pezzo.

---
 My Project/AssemblyInfo.vb |  4 ++--
 SideAngleUc.xaml.vb        | 16 ++++++++++------
 2 files changed, 12 insertions(+), 8 deletions(-)

diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index e9db7c3..f659965 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -62,5 +62,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.8.9.3")> 
-<Assembly: AssemblyFileVersion("1.8.9.3")> 
+<Assembly: AssemblyVersion("1.8.10.1")> 
+<Assembly: AssemblyFileVersion("1.8.10.1")> 
diff --git a/SideAngleUc.xaml.vb b/SideAngleUc.xaml.vb
index 47590c4..26d11f5 100644
--- a/SideAngleUc.xaml.vb
+++ b/SideAngleUc.xaml.vb
@@ -66,7 +66,7 @@ Public Class SideAngleUC
             If m_SideAngleEntityList.Count > 0 Then
                ' Aggiorno indici che potrebbero essere cambiati se sono state modificate le misure
                RefreshGeomId()
-               ' Aggiorno testi in base alla tabella
+               ' Aggiorno testi nel disegno
                RefreshSideAngleText()
                ' Aggiorno check e valori
                RefreshCheckAndValue()
@@ -93,7 +93,10 @@ Public Class SideAngleUC
          DeleteSideAngle()
          ' Inizializzo lati per angoli (ne compilo la lista e aggiungo la scritta nel disegno)
          InitSides()
+         ' Aggiorno testi nel disegno
          RefreshSideAngleText()
+         ' Aggiorno check e valori
+         RefreshCheckAndValue()
       End If
 
       ' Gestisco Checkbox e nomi in base al numero di lati inclinabili
@@ -304,12 +307,13 @@ Public Class SideAngleUC
    End Sub
 
    Private Sub RefreshCheckAndValue()
-      For Each Entity In m_SideAngleEntityList
+      For EntityIndex = 1 To m_SideAngleEntityList.Count
+         Dim Entity As SideAngleEntity = m_SideAngleEntityList(EntityIndex - 1)
          ' Creo testo con angolo di inclinazione
-         If Entity.dSideAngle <> 0 Then
-
-         End If
-         'AddTextToLine(Entity.sEntityName & " = " & DoubleToString(Entity.dSideAngle, 1) & "°", Entity.nTextId, Entity.nGeomId, 10, dBBoxRad, True)
+         'If Entity.dSideAngle <> 0 Then
+            Dim nTxBxIndex As Integer = 10 - m_SideAngleEntityList.Count + EntityIndex
+            GetSideTxBxFromIndex(nTxBxIndex).Text = DoubleToString(Entity.dSideAngle, 1)
+         'End If
       Next
    End Sub