EgtDOORCreator 1.9l3 :

- miglioramento dell'aggiornamento della grafica.
This commit is contained in:
Nicola Pievani
2019-01-14 09:51:53 +00:00
parent ac5c8046e9
commit bb3e3b4db6
+17 -13
View File
@@ -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