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

IDE: code explorer: fixed hiding unnamed constants

Browse Source 
git-svn-id: trunk@53496 -
This commit is contained in:
mattias 2016-11-30 23:24:38 +00:00
parent 9b0d88e504
commit fae72cb0a7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/codeexplorer.pas
View File

@ -1555,7 +1555,9 @@ begin
'''','#','0'..'9','$','%':
begin
// a constant
if (ObserverState.IgnoreConstLevel>=0)
if not FindUnnamedConstants then begin
// ignore
end else if (ObserverState.IgnoreConstLevel>=0)
and (ObserverState.IgnoreConstLevel>=ObserverState.StackPtr)
then begin
// ignore range
@ -2218,10 +2220,8 @@ begin
// start updating the CodeTreeView
CodeTreeview.BeginUpdate;
debugln(['TCodeExplorerView.RefreshCode BBB1 ========================================']);
if not CurFollowNode then
OldExpanded:=TTreeNodeExpandedState.Create(CodeTreeView,@OnExpandedStateGetNodeText);
debugln(['TCodeExplorerView.RefreshCode BBB2 ========================================']);
ClearCodeTreeView;