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

IDE: codebrowser: showing hourglass cursor during treeview update

Browse Source 
git-svn-id: trunk@10824 -
This commit is contained in:
mattias 2007-03-28 19:20:52 +00:00
parent a46e0d0b54
commit 3dd033044f
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/codebrowser.pas
View File

@ -1920,6 +1920,7 @@ begin
DebugLn(['TCodeBrowserView.UpdateTreeView ShowPackages=',ShowPackages,' ShowUnits=',ShowUnits,' ShowIdentifiers=',ShowIdentifiers]);
BrowseTreeView.Cursor:=crHourGlass;
BrowseTreeView.BeginUpdate;
CodeToolBoss.ActivateWriteLock;
try
@ -1933,6 +1934,7 @@ begin
finally
CodeToolBoss.DeactivateWriteLock;
BrowseTreeView.EndUpdate;
BrowseTreeView.Cursor:=crDefault;
end;
VisiblePackages:=NewPackageCount;
VisibleUnits:=NewUnitCount;