cody: units deps: no expand all for selected units

git-svn-id: trunk@41763 -

components/codetools/ide/codyunitdepwnd.lfm

@@ -359,6 +359,7 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
     end
   end
   object UnitsTVPopupMenu: TPopupMenu
+    OnPopup = UnitsTVPopupMenuPopup
     left = 120
     top = 193
     object UnitsTVCopyFilenameMenuItem: TMenuItem

components/codetools/ide/codyunitdepwnd.pas

@@ -32,8 +32,6 @@
       - mark units with implementation uses section
     - selected units
       - expand node: show connected units
-      - collapse node: free child nodes
-      - text search with highlight, next, previous
     - resourcestrings
 }
 unit CodyUnitDepWnd;
@@ -166,6 +164,7 @@ type
     procedure UnitsTVCollapseAllMenuItemClick(Sender: TObject);
     procedure UnitsTVCopyFilenameMenuItemClick(Sender: TObject);
     procedure UnitsTVExpandAllMenuItemClick(Sender: TObject);
+    procedure UnitsTVPopupMenuPopup(Sender: TObject);
   private
     FCurrentUnit: TUGUnit;
     FIdleConnected: boolean;
@@ -637,6 +636,14 @@ begin
   TV.EndUpdate;
 end;
 
+procedure TUnitDependenciesWindow.UnitsTVPopupMenuPopup(Sender: TObject);
+var
+  TV: TTreeView;
+begin
+  TV:=Sender as TTreeView;
+  UnitsTVExpandAllMenuItem.Visible:=TV=AllUnitsTreeView;
+end;
+
 procedure TUnitDependenciesWindow.SetIdleConnected(AValue: boolean);
 begin
   if FIdleConnected=AValue then Exit;