From fe1ae6eae235b7b16ab54da9343c9dcc85d3838b Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 18 Jun 2013 19:05:56 +0000
Subject: [PATCH] cody: units deps: no expand all for selected units

git-svn-id: trunk@41763 -
---
 components/codetools/ide/codyunitdepwnd.lfm |  1 +
 components/codetools/ide/codyunitdepwnd.pas | 11 +++++++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/components/codetools/ide/codyunitdepwnd.lfm b/components/codetools/ide/codyunitdepwnd.lfm
index dc7b9b44b7..d8b053c315 100644
--- a/components/codetools/ide/codyunitdepwnd.lfm
+++ b/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
diff --git a/components/codetools/ide/codyunitdepwnd.pas b/components/codetools/ide/codyunitdepwnd.pas
index 63c1223cfb..5d153df3df 100644
--- a/components/codetools/ide/codyunitdepwnd.pas
+++ b/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;