paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 05:20:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: code browser fixed checking procedure

Browse Source 
git-svn-id: trunk@26858 -
This commit is contained in:
mattias 2010-07-27 16:15:38 +00:00
parent c6dba477e5
commit 83ff33c8e7
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/codebrowser.pas
View File

@ -402,6 +402,13 @@ const
ProgressUpdateTreeViewStart=ProgressGetViewOptionsStart+ProgressGetViewOptionsSize;
ProgressUpdateTreeViewSize=1000;
ProgressTotal=ProgressUpdateTreeViewStart+ProgressUpdateTreeViewSize;
const
ProcDescFlags = [phpWithStart,phpWithParameterNames,
phpWithVarModifiers,phpWithResultType,phpWithoutSemicolon];
ProcIdentifierFlags = [phpWithoutClassKeyword,phpWithParameterNames,
phpWithoutSemicolon];
PropDescFlags = [phpWithoutClassKeyword,phpWithParameterNames,
phpWithVarModifiers,phpWithResultType];
function StringToCodeBrowserTextFilter(const s: string): TCodeBrowserTextFilter;
begin
@ -1880,12 +1887,6 @@ var
procedure GetNodeDescription(CTNode: TCodeTreeNode;
out Description, Identifier: string);
const
ProcDescFlags = [phpWithStart,phpWithParameterNames,
phpWithVarModifiers,phpWithResultType,phpWithoutSemicolon];
ProcIdentifierFlags = [phpWithoutClassKeyword,phpWithParameterNames,
phpWithoutSemicolon];
PropDescFlags = [phpWithoutClassKeyword,phpWithParameterNames,
phpWithVarModifiers,phpWithResultType];
NodeFlags = [];
var
Inheritance: String;
@ -2490,7 +2491,8 @@ begin
case CTNode.Desc of
ctnProcedure:
begin
if SysUtils.CompareText(Tool.ExtractProcName(CTNode,[]),Node.Identifier)<>0
if SysUtils.CompareText(Tool.ExtractProcHead(CTNode,ProcIdentifierFlags),
Node.Identifier)<>0
then
exit; // source has changed
Tool.MoveCursorToProcName(CTNode,true);