paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-16 20:49:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: unit dependencies: reduced updating tree while generating nodes

Browse Source 
git-svn-id: trunk@15137 -
This commit is contained in:
mattias 2008-05-14 15:00:00 +00:00
parent 4997713fae
commit 35793c2673
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/unitdependencies.pas
View File

@ -313,8 +313,13 @@ var
begin
UnitNode:=TUnitNode(Node.Data);
if UnitNode.HasChildren then begin
AllowExpansion:=true;
UnitNode.CreateGrandChildren;
UnitTreeView.BeginUpdate;
try
AllowExpansion:=true;
UnitNode.CreateGrandChildren;
finally
UnitTreeView.EndUpdate;
end;
end else begin
AllowExpansion:=false;
end;