codetools: class completion: ignore method bodies of sub classes, bug #20066

git-svn-id: trunk@32069 -
This commit is contained in:
mattias 2011-08-27 10:04:48 +00:00
parent 5ad32f98ca
commit 0288156d40
2 changed files with 5 additions and 5 deletions

View File

@ -65,7 +65,7 @@ type
function FindJumpPointInProcNode(ProcNode: TCodeTreeNode;
out NewPos: TCodeXYPosition; out NewTopLine: integer): boolean;
function GatherProcNodes(StartNode: TCodeTreeNode;
Attr: TProcHeadAttributes; const UpperClassName: string): TAVLTree;
Attr: TProcHeadAttributes; const FilterClassName: string): TAVLTree;
function FindFirstDifferenceNode(SearchForNodes, SearchInNodes: TAVLTree;
var DiffTxtPos: integer): TAVLTreeNode;
function JumpToMethod(const ProcHead: string; Attr: TProcHeadAttributes;
@ -765,7 +765,7 @@ begin
end;
function TMethodJumpingCodeTool.GatherProcNodes(StartNode: TCodeTreeNode;
Attr: TProcHeadAttributes; const UpperClassName: string): TAVLTree;
Attr: TProcHeadAttributes; const FilterClassName: string): TAVLTree;
// create a tree of TCodeTreeNodeExtension
var CurProcName: string;
ANode: TCodeTreeNode;
@ -786,9 +786,9 @@ begin
cmp:=true;
if (phpOnlyWithClassname in Attr) then begin
CurClassName:=ExtractClassNameOfProcNode(ANode,true);
//DebugLn('[TMethodJumpingCodeTool.GatherProcNodes] B2 "',CurClassName,'" =? ',UpperClassName);
//DebugLn('[TMethodJumpingCodeTool.GatherProcNodes] B2 "',CurClassName,'" =? ',FilterClassName);
if CompareIdentifiers(PChar(UpperClassName),PChar(CurClassName))<>0 then
if CompareText(FilterClassName,CurClassName)<>0 then
cmp:=false;
end;
if cmp and (phpIgnoreMethods in Attr) then begin

View File

@ -2566,7 +2566,7 @@ function TPascalReaderTool.FindCommentInFront(const StartPos: integer;
SearchInParentNode, WithCommentBounds, CaseSensitive,
IgnoreSpaces, CompareOnlyStart: boolean;
out CommentStart, CommentEnd: integer): boolean;
// searches a comment in front.
// searches a comment in front of StartPos starting with CommentText.
var
FoundStartPos: integer;
FoundEndPos: integer;