EgtDOORCreator 1.9l3 :

- miglioramento gestione aggiornamento file,
- miglioramento gestione aggiornamento direttori,
- correzione gestione direttorio progetti.

OptionsWindow/OptionModule.vb

@@ -127,10 +127,10 @@ Friend Module OptionModule
    Friend m_TotalHeight As String
    Friend m_TotalWidth As String
 
-   Friend ColorErrorValue As String = "Yellow"
-   Friend ColorMissingParameter As String = "Pink"
+   Friend ColorErrorValue As String = "Red"
+   Friend ColorMissingParameter As String = "Yellow"
    Friend ColorLoadByDefault As String = "Red"
-   Friend ColorErrorAndMissing As String = "Orange"
+   Friend ColorErrorAndMissing As String = "Red"
 
    Friend m_CompoPaneOrder As List(Of String) = New List(Of String)
 
@@ -384,6 +384,42 @@ Friend Module OptionModule
       DefaultGetPrivateProfileList(S_COMPOORDER, K_COMPOORDER_INI, DdfFile.CompoListOrder)
       ' carico l'ordinamento dei bottoni 
       DefaultGetPrivateProfileList(S_COMPOOPANELORDER_INI, K_COMPOORDER_INI, m_CompoPaneOrder)
+
+      'carico i colori da associare agli errori
+      Dim sColor As String = String.Empty
+      Dim ColorConvert As SolidColorBrush
+      DefaultGetPrivateProfileString("Error", "Value", "Red", sColor)
+      If Not String.IsNullOrEmpty(sColor) Then
+         Try
+            ColorConvert = DirectCast(New BrushConverter().ConvertFrom(sColor), SolidColorBrush)
+            ColorErrorValue = sColor
+         Catch ex As Exception
+         End Try
+      End If
+      DefaultGetPrivateProfileString("Error", "MissingParameter", "Yellow", sColor)
+      If Not String.IsNullOrEmpty(sColor) Then
+         Try
+            ColorConvert = DirectCast(New BrushConverter().ConvertFrom(sColor), SolidColorBrush)
+            ColorMissingParameter = sColor
+         Catch ex As Exception
+         End Try
+      End If
+      DefaultGetPrivateProfileString("Error", "MissingFile", "Red", sColor)
+      If Not String.IsNullOrEmpty(sColor) Then
+         Try
+            ColorConvert = DirectCast(New BrushConverter().ConvertFrom(sColor), SolidColorBrush)
+            ColorLoadByDefault = sColor
+         Catch ex As Exception
+         End Try
+      End If
+      DefaultGetPrivateProfileString("Error", "ValueAndMissing", "Red", sColor)
+      If Not String.IsNullOrEmpty(sColor) Then
+         Try
+            ColorConvert = DirectCast(New BrushConverter().ConvertFrom(sColor), SolidColorBrush)
+            ColorErrorAndMissing = sColor
+         Catch ex As Exception
+         End Try
+      End If
       '-----------------------------------------------------------------------------------------------------------------
 
       Dim ThicknessJamb As String = String.Empty