EgtCAM5 :

- aggiunta visualizzazione Estensioni caricate (Beam, Wall, Doors, Gunstock) con versione e direttorio di installazione.

Project/ProjectVM.vb

@@ -133,6 +133,38 @@ Public Class ProjectVM
             Dim nFlag As Integer = GetPrivateProfileInt( S_IMPORT, K_BTLFLAG, EIB_FL.NONE)
             EgtInitBeamMgr( nFlag)
          End If
+         ' Log di eventuali estensioni
+         EgtOutLog( "Extensions :")
+         Dim bExtensions As Boolean = False
+         If IniFile.IsActiveBeam() Then
+            bExtensions = True
+            Dim sVersion As String = "---"
+            IniFile.GetSpecialLuaVersion( IniFile.m_sBeamDirPath, sVersion)
+            Dim sOut As String = "Beam ver. " & sVersion & "   " & IniFile.m_sBeamDirPath
+            EgtOutLog( sOut)
+         End If
+         If IniFile.IsActiveWall() Then
+            bExtensions = True
+            Dim sVersion As String = "---"
+            IniFile.GetSpecialLuaVersion( IniFile.m_sWallDirPath, sVersion) 
+            Dim sOut As String = "Wall ver. " & sVersion & "   " & IniFile.m_sWallDirPath
+            EgtOutLog( sOut)
+         End If
+         If IniFile.IsActiveDoors() Then
+            bExtensions = True
+            Dim sVersion As String = "---"
+            IniFile.GetSpecialLuaVersion( IniFile.m_sDoorsDirPath, sVersion) 
+            Dim sOut As String = "Doors ver. " & sVersion & "   " & IniFile.m_sDoorsDirPath
+            EgtOutLog( sOut)
+         End If
+         If IniFile.IsActiveGunStock() Then
+            bExtensions = True
+            Dim sVersion As String = "---"
+            IniFile.GetSpecialLuaVersion( IniFile.m_sGunstockDirPath, sVersion) 
+            Dim sOut As String = "Gunstock ver. " & sVersion & "   " & IniFile.m_sGunstockDirPath
+            EgtOutLog( sOut)
+         End If
+         If Not bExtensions Then EgtOutLog( "---")
          ' Apro progetto vuoto
          Map.refTopCommandBarVM.NewCmd()
          ' Seleziono la macchina impostata nel file ini