EgtCAM5 :

- Migliorie varie.
2016-07-10 11:34:07 +00:00
parent ec2f7a38ef
commit f8b17066de
41 changed files with 1706 additions and 282 deletions
@@ -321,8 +321,8 @@ Namespace EgtCAM5
               Else
                  sText = sTitle + " " + nId.ToString
               End If
-               Dim CurrColor As Color3d
-               EgtGetCalcColor(nGroupId, CurrColor)
+               Dim CurrColor As New Color3d(0, 0, 0, 0)
+               EgtGetColor(nId, CurrColor)
               Dim sImage As String = TypeToImageInObjTree(nType, nDepth)
               Dim CurrNod As LayerTreeViewItem = New LayerTreeViewItem(nId, sText, sImage, CurrColor)
               CurrNodColl.Add(CurrNod)