proj inspect, selection lost after dbl click and if proj is DUB

src/ce_projinspect.lfm

@@ -30,6 +30,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
         BorderSpacing.Around = 2
         DefaultItemHeight = 16
         DragMode = dmAutomatic
+        HideSelection = False
         Images = imgList
         ReadOnly = True
         RightClickSelect = True
@@ -41,7 +42,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
         OnDeletion = TreeDeletion
         OnKeyDown = TreeKeyDown
         OnSelectionChanged = TreeSelectionChanged
-        Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoThemedDraw]
+        Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoThemedDraw]
         Items.Data = {
           F9FFFFFF020002000000000000000000000000000000FFFFFFFF000000000000
           0000000C000000536F757263652066696C6573010000000100000001000000FF

src/ce_projinspect.pas

@@ -333,7 +333,7 @@ begin
       TCEDubProject(fProject.getProject).updateSourcesList;
   end
   else TCEDubProject(fProject.getProject).updateSourcesList;
-  updateImperative;
+  //updateImperative;
 end;
 
 procedure TCEProjectInspectWidget.btnAddFileClick(Sender: TObject);
@@ -500,7 +500,10 @@ var
   conf: string;
   itm: TTreeNode;
   i,j: integer;
+  sel: string = '';
 begin
+  if Tree.Selected.isNotNil then
+    sel := Tree.Selected.GetTextPath;
   fConfNode.DeleteChildren;
   fFileNode.DeleteChildren;
 
@@ -533,6 +536,15 @@ begin
       itm.SelectedIndex:= 3;
     end;
   end;
+  if sel.isNotEmpty then
+  begin
+    itm := Tree.Items.FindNodeWithTextPath(sel);
+    if itm.isNotNil then
+    begin
+      itm.Selected := true;
+      itm.MakeVisible;
+    end;
+  end;
   Tree.EndUpdate;
 end;
 {$ENDREGION --------------------------------------------------------------------}

src/ce_widget.lfm

@@ -9,7 +9,7 @@ object CEWidget: TCEWidget
   ClientWidth = 332
   ShowHint = True
   ShowInTaskBar = stNever
-  LCLVersion = '1.6.0.4'
+  LCLVersion = '1.6.4.0'
   object Back: TPanel
     Left = 0
     Height = 121
@@ -48,6 +48,7 @@ object CEWidget: TCEWidget
       EdgeOuter = esNone
       Flat = False
       TabOrder = 1
+      Transparent = True
     end
   end
   object contextMenu: TPopupMenu