paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 19:39:18 +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; ShowNode:=false;
ShowChilds:=false; ShowChilds:=false;
end; 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 // don't show keyword nodes
if CodeNode.Desc in [ctnIdentifier,ctnRangedArrayType, if CodeNode.Desc in [ctnIdentifier,ctnRangedArrayType,
@ -513,6 +518,8 @@ begin
Include(FFlags,cevRefresing); Include(FFlags,cevRefresing);
FilterEdit.Text:=lisCEFilter;
// get the codetool with the updated codetree // get the codetool with the updated codetree
ACodeTool:=nil; ACodeTool:=nil;
if Assigned(OnGetCodeTree) then if Assigned(OnGetCodeTree) then