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

hide class node in codeexplorer

Browse Source 
git-svn-id: trunk@8312 -
This commit is contained in:
mattias 2005-12-14 10:50:52 +00:00
parent c6f54982a3
commit c17ae7dae6
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/codeexplorer.pas
View File

@ -436,6 +436,11 @@ begin
ShowNode:=false;
ShowChilds:=false;
end;
// don't show class node (the type node is already shown)
if (CodeNode.Desc in [ctnClass,ctnClassInterface]) then begin
ShowNode:=false;
ShowChilds:=true;
end;
// don't show keyword nodes
if CodeNode.Desc in [ctnIdentifier,ctnRangedArrayType,
@ -512,6 +517,8 @@ begin
Exclude(FFlags,cevRefreshNeeded);
Include(FFlags,cevRefresing);
FilterEdit.Text:=lisCEFilter;
// get the codetool with the updated codetree
ACodeTool:=nil;