Correzioni sintassi codice

DoorParameters/Part.vb

@@ -3188,7 +3188,7 @@ Public Class Part
          Me.m_Height = OptionModule.m_Height
          Me.m_Thickness = OptionModule.m_ThicknessJamb
          Me.SetSwing(OptionModule.m_Swing)
-         If Not IsNothing(OptionModule.m_CurrMaterial) then
+         If Not IsNothing(OptionModule.m_CurrMaterial) Then
             Try
                Me.SetMaterial(m_MaterialList.First(Function(x) x.Name = Trim(OptionModule.m_CurrMaterial.Name)))
             Catch ex As Exception

EgtDOORCreator.vbproj

@@ -85,11 +85,10 @@
       <HintPath>..\..\EgtProg\EgtDOORCreator\combit.ListLabel25.Wpf.dll</HintPath>
     </Reference>
     <Reference Include="EgtUILib">
-      <HintPath>..\..\EgtProg\DllD32\EgtUILib.dll</HintPath>
+      <HintPath>..\..\EgtProg\Dll32\EgtUILib.dll</HintPath>
     </Reference>
-    <Reference Include="EgtWPFLib5, Version=2.1.11.2, Culture=neutral, processorArchitecture=MSIL">
-      <SpecificVersion>False</SpecificVersion>
-      <HintPath>..\..\EgtProg\EgtDOORCreator\EgtWPFLib5.dll</HintPath>
+    <Reference Include="EgtWPFLib5">
+      <HintPath>..\..\EgtProg\Dll32\EgtWPFLib5.dll</HintPath>
     </Reference>
     <Reference Include="Ionic.Zip">
       <HintPath>..\..\EgtProg\EgtDOORCreator\Ionic.Zip.dll</HintPath>
@@ -99,7 +98,9 @@
     <Reference Include="System.Drawing" />
     <Reference Include="System.Web" />
     <Reference Include="System.Windows.Forms" />
-    <Reference Include="System.Windows.Interactivity, Version=4.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL" />
+    <Reference Include="System.Windows.Interactivity">
+      <HintPath>..\..\EgtProg\EgtDOORCreator\System.Windows.Interactivity.dll</HintPath>
+    </Reference>
     <Reference Include="System.Xml.Linq" />
     <Reference Include="System.Data.DataSetExtensions" />
     <Reference Include="System" />

OptionsWindow/OptionsViewModel.vb

@@ -1700,7 +1700,6 @@ Public Class OptionsVM
       Set(value As Boolean)
          m_EnableAssembly = value
          WriteMainPrivateProfileString(S_GENERAL, K_RUNAS, If(m_EnableAssembly, "1", "0"))
-         OptionModule.m_ConfigurationSoftware = If(m_EnableAssembly, ConfigType.Assembly, ConfigType.Door)
          NotifyPropertyChanged("EnableAssembly")
       End Set
    End Property

SceneManager/InstrumentPanel/InstrumentPanelVM.vb

@@ -173,8 +173,8 @@ Public Class InstrumentPanelVM
    Private m_DimensioningLayer As Integer
    Public Sub LinearDimension(ByVal param As Object)
       GetDistIsChecked = False
-      Dim x As Integer = EgtSetCurrPartLayer(EgtGetFirstPart(), m_DimensioningLayer)
-      If EgtSetCurrPartLayer(1, m_DimensioningLayer) = 0 Then
+      EgtSetCurrPartLayer(EgtGetFirstPart(), m_DimensioningLayer)
+      If EgtSetCurrPartLayer(1, m_DimensioningLayer) Then
          Map.refSceneManagerVM.GetController.ExecuteCommand(Controller.CMD.NEWLAYER)
          m_DimensioningLayer = EgtGetCurrLayer()
          'EgtSetColor(m_DimensioningLayer, "BLACK")