- correzioni alla gestione dell'apertura dell'UC per la modifica delle paretine.

Panel/EditPanelVM.vb

@@ -40,7 +40,7 @@ Public Class EditPanelVM
          Return m_nIdPart
       End Get
       Set(value As Integer)
-         If m_nIdPart <> GDB_ID.NULL Then SceneCmd.DeselectAll()
+         SceneCmd.DeselectAll()
          m_nIdPart = value
          Stage = EditPanelStage.InsertNewParam
          ' devo capire che tipo di pezzo sto modificando
@@ -65,6 +65,7 @@ Public Class EditPanelVM
             End Select
          End If
          UpdateParameterListShown()
+         SelectPartOrPartsToEdit()
       End Set
    End Property
 
@@ -105,12 +106,14 @@ Public Class EditPanelVM
    Public Sub New()
       MyBase.New()
       Title = "Modifica Paretina".ToUpper()
+      LoadParamList()
+
       If Map.refSceneHostVM.m_nIdPart <> GDB_ID.NULL Then
          nIdPart = Map.refSceneHostVM.m_nIdPart
          Stage = EditPanelStage.InsertNewParam
       End If
 
-      LoadParamList()
+
       UpdatePanelInfoFromPart(m_nIdPart)
    End Sub
 
@@ -419,6 +422,7 @@ Public Class EditPanelVM
          Dim PartSolidSel As PartSolidM = GetPartSolid(nIdPart)
          PartSolidSel.SelectSinglePart()
       End If
+      EgtDraw()
    End Sub
 
 #End Region    ' Methods

SceneHost/MySceneHostVM.vb

@@ -1007,9 +1007,8 @@ Line1:
          End If
 
          If Map.refSceneButtonVM.IsTgBtnChecked(EGT_EDIT_PANEL) Then
-            Dim PartSolidId As Integer = nPartId
-            If sName = "SOLID" Then EgtGetInfo(nPartId, "Parent", PartSolidId)
-            DirectCast(Map.refSceneButtonVM.m_EditPanelUC.DataContext, EditPanelVM).nIdPart = PartSolidId
+            Dim PartSolidSel As PartSolidM = SolidManagerM.GetPartSolid(nPartId)
+            DirectCast(Map.refSceneButtonVM.m_EditPanelUC.DataContext, EditPanelVM).nIdPart = PartSolidSel.PartId
          End If
 
          ' selezione semplice
@@ -1119,12 +1118,7 @@ Line1:
             ' WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING 
             ' WARNING WARNING WARNING WARNING WARNING WARNING  ' questo controllo è stato tolto per poter selezionare gli oggetti importati nel vme e quindi non presenti nel nesting
             'If bSelected Then
-            If Map.refSceneButtonVM.IsTgBtnChecked(EGT_EDIT_PANEL) Then
-               DirectCast(Map.refSceneButtonVM.m_EditPanelUC.DataContext, EditPanelVM).SelectPartOrPartsToEdit()
-            Else
-               PartSolidIdToSel.SelectPart()
-            End If
-
+            PartSolidIdToSel.SelectPart()
             'End If
             ' Se deselezione da eseguire
          ElseIf m_nIdToDesel <> GDB_ID.NULL Then