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

IDE: codebrowser: if there are only a few items, expand the whole tree

Browse Source 
git-svn-id: trunk@43892 -
This commit is contained in:
mattias 2014-02-05 10:46:49 +00:00
parent 551badbbf0
commit 2a8c03ce41
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codebrowser.pas
View File

@ -2311,6 +2311,7 @@ var
var var
lvl: TCodeBrowserLevel; lvl: TCodeBrowserLevel;
i: Integer;
begin begin
ShowPackages:=Options.HasLevel(cblPackages); ShowPackages:=Options.HasLevel(cblPackages);
ShowUnits:=Options.HasLevel(cblUnits); ShowUnits:=Options.HasLevel(cblUnits);
@ -2341,6 +2342,11 @@ begin
// create treeview nodes // create treeview nodes
AddTreeNodes(ViewRoot,nil); AddTreeNodes(ViewRoot,nil);
// if there are only a few items expand the whole tree
if BrowseTreeView.Items.Count<30 then
for i:=0 to BrowseTreeView.Items.TopLvlCount-1 do
BrowseTreeView.Items.TopLvlItems[i].Expand(true);
finally finally
CodeToolBoss.DeactivateWriteLock; CodeToolBoss.DeactivateWriteLock;
//DebugLn(['TCodeBrowserView.UpdateTreeView EndUpdate']); //DebugLn(['TCodeBrowserView.UpdateTreeView EndUpdate']);