paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 19:43:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: identifier completion: fixed handling parse errors

Browse Source 
git-svn-id: trunk@26789 -
This commit is contained in:
mattias 2010-07-23 07:32:12 +00:00
parent 38be24eed7
commit 4d4105e798
1 changed files with 8 additions and 3 deletions

11
ide/sourceeditprocs.pas
View File

@ -36,8 +36,9 @@ interface
uses
Classes, SysUtils, LCLProc, LCLType, GraphType, Graphics, Controls, SynEdit,
SynEditHighlighter, SynRegExpr, SynCompletion, BasicCodeTools, CodeTree,
CodeAtom, CodeCache, SourceChanger, CodeToolManager, PascalParserTool,
KeywordFuncLists, FileProcs, IdentCompletionTool, PascalReaderTool, SourceLog,
CodeAtom, CodeCache, SourceChanger, CustomCodeTool, CodeToolManager,
PascalParserTool, KeywordFuncLists, FileProcs, IdentCompletionTool,
PascalReaderTool, SourceLog,
LazIDEIntf, TextTools, IDETextConverter, DialogProcs, MainIntf, EditorOptions,
IDEImagesIntf, CodeToolsOptions;
@ -399,7 +400,11 @@ begin
ctnObjCProtocol: s:=s+'objcprotocol';
ctnDispinterface: s:=s+'dispinterface';
end;
IdentItem.Tool.BuildSubTree(ANode);
try
IdentItem.Tool.BuildSubTree(ANode);
except
on ECodeToolError do ;
end;
SubNode:=IdentItem.Tool.FindInheritanceNode(ANode);
if SubNode<>nil then
s:=s+IdentItem.Tool.ExtractNode(SubNode,[]);