From bb3e3b4db6c7ffcb7fc4ab99e3333a2d24d73bc8 Mon Sep 17 00:00:00 2001
From: Nicola Pievani <nicola.p@egaltech.com>
Date: Mon, 14 Jan 2019 09:51:53 +0000
Subject: [PATCH] EgtDOORCreator 1.9l3 : - miglioramento dell'aggiornamento
 della grafica.

---
 AssemblyManager/AssemblyManagerVM.vb | 30 ++++++++++++++++------------
 1 file changed, 17 insertions(+), 13 deletions(-)

diff --git a/AssemblyManager/AssemblyManagerVM.vb b/AssemblyManager/AssemblyManagerVM.vb
index 8631de9..0de3b68 100644
--- a/AssemblyManager/AssemblyManagerVM.vb
+++ b/AssemblyManager/AssemblyManagerVM.vb
@@ -354,25 +354,27 @@ Public Class AssemblyManagerVM
 
       ' in caso sia fallita la ricera dei direttori o dei file 
       If Not bBrandExists OrElse Not bFileExists Then
-         ' se la compoenente che sto caricando era corretta
-         ErrCompo.LoadByDefault = True
+         '' se la compoenente che sto caricando era corretta
+         'ErrCompo.LoadByDefault = True
             ' se il brand non esiste, ma è selezionato
          If Not bBrandExists Then
             ErrCompo.MissingDirectory = True
             ErrCompo.MissingFile = True
-            ' aggiungo alla lista dei file che esistono quelli sbagliati, ed elimino quelli che non sono in quel momento selezioanti
+            ' aggiungo alla lista dei brand che esistono quelli sbagliati, ed elimino quelli che non sono in quel momento selezioanti
             RefreshListFile(m_CurrCompo.BrandListPart, ErrCompo.BrandListPart)
-            For Each BrandItem In ErrCompo.BrandListPart
-               ' ricerco l'elemento selezionato
-               If BrandItem = ErrCompo.SelBrandPart Then
-                  ' se il direttorio non esiste ne viene creato uno fasullo, o recupera i file che appartngono al direttorio fasullo
-                  ErrCompo.SelBrandPart = BrandItem
-                  If ErrCompo.FileList.Count < 1 Then
-                     ErrCompo.FileList.Add(ErrCompo.SelFile)
+            If Not ErrCompo.LoadByDefault Then
+               For Each BrandItem In ErrCompo.BrandListPart
+                  ' ricerco l'elemento selezionato
+                  If BrandItem = ErrCompo.SelBrandPart Then
+                     ' se il direttorio non esiste ne viene creato uno fasullo, o recupera i file che appartngono al direttorio fasullo
+                     ErrCompo.SelBrandPart = BrandItem
+                     If ErrCompo.FileList.Count < 1 Then
+                        ErrCompo.FileList.Add(ErrCompo.SelFile)
+                     End If
+                     ErrCompo.SelFile = ErrCompo.FileList(ErrCompo.FileList.Count - 1)
                   End If
-                  ErrCompo.SelFile = ErrCompo.FileList(ErrCompo.FileList.Count - 1)
-               End If
-            Next
+               Next
+            End If
          Else
             ErrCompo.MissingDirectory = False
          End If
@@ -382,6 +384,8 @@ Public Class AssemblyManagerVM
             RefreshListFile(m_CurrCompo.FileList, ErrCompo.FileList)
             'End If
          End If
+         ' se la compoenente che sto caricando era corretta
+         ErrCompo.LoadByDefault = True
          If Not DDFIsModified Then
             Map.refAssemblyManagerVM.CurrProject.SelAssemblyName.IsModified = False
          End If