EgtDOORCrator 2.2e1:

-> evidenzio i campi Brand e File delle componenti riferite,
-> correzione lettura Brand inesistente,
-> modifica margini nella grafica.

OptionsWindow/OptionModule.vb

@@ -23,6 +23,8 @@ Friend Module OptionModule
    Friend m_bBevelUp As Visibility
    Friend m_bBevelDown As Visibility
 
+   Friend m_DisableInvertBevel As Visibility = Visibility.Collapsed
+
    Friend m_DisableAddGeometry As Visibility = Visibility.Collapsed
    Friend m_DisableArch As Visibility = Visibility.Collapsed
 
@@ -151,6 +153,7 @@ Friend Module OptionModule
    Friend ColorErrorAndMissing As String = "Red"
    Friend ColorModifyingParamRef As String = "Yellow"
    Friend ColorDisableChapter As String = "Gray"
+   Friend ColorRefCompo As String = "Gray"
 
    Friend m_CompoPaneOrder As List(Of String) = New List(Of String)
 
@@ -284,7 +287,6 @@ Friend Module OptionModule
             m_SmartHelp = HelpPage.WebBrowserVB
       End Select
 
-
       m_DisableHM = (GetMainPrivateProfileInt(S_GENERAL, K_DISABLEHM, 1) = 0)
 
       m_DisableDeleteCommandHM = (GetMainPrivateProfileInt(S_GENERAL, K_DISABLEDELETECOMMANDHM, 1) = 0)
@@ -307,6 +309,8 @@ Friend Module OptionModule
 
       m_DimensionHardware = If(GetMainPrivateProfileInt(S_REPORT, K_HARDWAREDIMENSION, 0) = 1, Visibility.Visible, Visibility.Collapsed)
 
+      m_DisableInvertBevel = If(GetMainPrivateProfileInt(S_REPORT, K_INVERTBEVEL, 0) = 1, Visibility.Visible, Visibility.Collapsed)
+
       ' leggo il tipo di Bevel selezionato
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELU_INI, m_bBevelUp)
       DefaultGetPrivateProfilesBevel(S_EDGE, K_BEVELD_INI, m_bBevelDown)
@@ -477,7 +481,7 @@ 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
@@ -529,6 +533,14 @@ Friend Module OptionModule
          Catch ex As Exception
          End Try
       End If
+      DefaultGetPrivateProfileString("Error", "RefCompo", "Gray", sColor)
+      If Not String.IsNullOrEmpty(sColor) Then
+         Try
+            ColorConvert = DirectCast(New BrushConverter().ConvertFrom(sColor), SolidColorBrush)
+            ColorRefCompo = sColor
+         Catch ex As Exception
+         End Try
+      End If
       '-----------------------------------------------------------------------------------------------------------------
       ' SIZE JAMB
       Dim ThicknessHead As String = String.Empty