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

IDE: code explorer: ignore syntax errors when retrieving node description

Browse Source 
git-svn-id: trunk@20140 -
This commit is contained in:
mattias 2009-05-23 10:12:48 +00:00
parent 602f48c153
commit 60faf70d14
1 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/codeexplorer.pas
View File

@ -42,8 +42,9 @@ uses
Classes, SysUtils, LCLProc, LCLType, LResources, Forms, Controls, Graphics,
Dialogs, Buttons, ComCtrls, Menus, LDockCtrl, AvgLvlTree, StdCtrls, ExtCtrls,
// CodeTools
BasicCodeTools, CodeToolManager, CodeAtom, CodeCache, CodeTree,
KeywordFuncLists, FindDeclarationTool, DirectivesTree, PascalParserTool,
BasicCodeTools, CustomCodeTool, CodeToolManager, CodeAtom, CodeCache,
CodeTree, KeywordFuncLists, FindDeclarationTool, DirectivesTree,
PascalParserTool,
// IDE Intf
LazIDEIntf, IDECommands, MenuIntf, SrcEditorIntf,
// IDE
@ -517,6 +518,8 @@ end;
function TCodeExplorerView.GetCodeNodeDescription(ACodeTool: TCodeTool;
CodeNode: TCodeTreeNode): string;
begin
Result:='?';
try
case CodeNode.Desc of
ctnUnit, ctnProgram, ctnLibrary, ctnPackage:
@ -544,6 +547,9 @@ begin
else
Result:=CodeNode.DescAsString;
end;
except
on E: ECodeToolError do ; // ignore syntax errors
end;
end;
function TCodeExplorerView.GetDirectiveNodeDescription(