paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 06:59:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

cody: units deps: no expand all for selected units

Browse Source 
git-svn-id: trunk@41763 -
This commit is contained in:
mattias 2013-06-18 19:05:56 +00:00
parent 46fc6c7b38
commit fe1ae6eae2
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/ide/codyunitdepwnd.lfm
View File

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

11
components/codetools/ide/codyunitdepwnd.pas
View File

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