paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-05 01:41:35 +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 SetCodeCompleteSrcChgCache(const AValue: TSourceChangeCache);
function OnTopLvlIdentifierFound(Params: TFindDeclarationParams;
FoundContext: TFindContext): TIdentifierFoundResult;
const FoundContext: TFindContext): TIdentifierFoundResult;
protected
function ProcExistsInCodeCompleteClass(const NameAndParams: string): boolean;
function VarExistsInCodeCompleteClass(const UpperName: string): boolean;
@ -174,7 +174,7 @@ begin
end;
function TCodeCompletionCodeTool.OnTopLvlIdentifierFound(
Params: TFindDeclarationParams; FoundContext: TFindContext
Params: TFindDeclarationParams; const FoundContext: TFindContext
): TIdentifierFoundResult;
var TrimmedIdentifier: string;
begin
@ -516,7 +516,7 @@ function TCodeCompletionCodeTool.AddLocalVariable(
var NewPos: TCodeXYPosition;
var NewTopLine: integer; SourceChangeCache: TSourceChangeCache): boolean;
var
CursorNode, ParentNode, BeginNode, VarSectionNode, VarNode: TCodeTreeNode;
CursorNode, BeginNode, VarSectionNode, VarNode: TCodeTreeNode;
Indent, InsertPos: integer;
InsertTxt: string;
OldCodePos: TCodePosition;
@ -537,7 +537,6 @@ begin
writeln('TCodeCompletionCodeTool.AddLocalVariable - Not in Begin Block');
exit;
end;
ParentNode:=BeginNode.Parent;
//writeln('TCodeCompletionCodeTool.AddLocalVariable C ');