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

fixed finddeclaration: with context flag bug

Browse Source 
git-svn-id: trunk@3143 -
This commit is contained in:
mattias 2002-08-18 16:49:55 +00:00
parent ef26f3b4e6
commit 82870643ca
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/codetools/codecompletiontool.pas
View File

@ -78,7 +78,7 @@ type
procedure SetCodeCompleteClassNode(const AClassNode: TCodeTreeNode); procedure SetCodeCompleteClassNode(const AClassNode: TCodeTreeNode);
procedure SetCodeCompleteSrcChgCache(const AValue: TSourceChangeCache); procedure SetCodeCompleteSrcChgCache(const AValue: TSourceChangeCache);
function OnTopLvlIdentifierFound(Params: TFindDeclarationParams; function OnTopLvlIdentifierFound(Params: TFindDeclarationParams;
FoundContext: TFindContext): TIdentifierFoundResult; const FoundContext: TFindContext): TIdentifierFoundResult;
protected protected
function ProcExistsInCodeCompleteClass(const NameAndParams: string): boolean; function ProcExistsInCodeCompleteClass(const NameAndParams: string): boolean;
function VarExistsInCodeCompleteClass(const UpperName: string): boolean; function VarExistsInCodeCompleteClass(const UpperName: string): boolean;
@ -174,7 +174,7 @@ begin
end; end;
function TCodeCompletionCodeTool.OnTopLvlIdentifierFound( function TCodeCompletionCodeTool.OnTopLvlIdentifierFound(
Params: TFindDeclarationParams; FoundContext: TFindContext Params: TFindDeclarationParams; const FoundContext: TFindContext
): TIdentifierFoundResult; ): TIdentifierFoundResult;
var TrimmedIdentifier: string; var TrimmedIdentifier: string;
begin begin
@ -516,7 +516,7 @@ function TCodeCompletionCodeTool.AddLocalVariable(
var NewPos: TCodeXYPosition; var NewPos: TCodeXYPosition;
var NewTopLine: integer; SourceChangeCache: TSourceChangeCache): boolean; var NewTopLine: integer; SourceChangeCache: TSourceChangeCache): boolean;
var var
CursorNode, ParentNode, BeginNode, VarSectionNode, VarNode: TCodeTreeNode; CursorNode, BeginNode, VarSectionNode, VarNode: TCodeTreeNode;
Indent, InsertPos: integer; Indent, InsertPos: integer;
InsertTxt: string; InsertTxt: string;
OldCodePos: TCodePosition; OldCodePos: TCodePosition;
@ -537,7 +537,6 @@ begin
writeln('TCodeCompletionCodeTool.AddLocalVariable - Not in Begin Block'); writeln('TCodeCompletionCodeTool.AddLocalVariable - Not in Begin Block');
exit; exit;
end; end;
ParentNode:=BeginNode.Parent;
//writeln('TCodeCompletionCodeTool.AddLocalVariable C '); //writeln('TCodeCompletionCodeTool.AddLocalVariable C ');