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

codetools: added option to not search for overloads when cursor on definition

Browse Source 
git-svn-id: trunk@20262 -
This commit is contained in:
mattias 2009-05-27 12:31:36 +00:00
parent cd986dfe6c
commit f23aae7dab
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/finddeclarationtool.pas
View File

@ -531,7 +531,8 @@ type
TFindDeclarationListFlag = (
fdlfWithoutEmptyProperties, // omit properties without type and attributes
fdlfWithoutForwards // omit foward classes and procedures
fdlfWithoutForwards, // omit foward classes and procedures
fdlfIfStartIsDefinitionStop // omit overloads when start is a definition
);
TFindDeclarationListFlags = set of TFindDeclarationListFlag;
@ -3551,6 +3552,7 @@ var
OldPositions: TFPList;
NodeList: TFPList;
CleanPos: integer;
AtDefinition: Boolean;
procedure AddPos;
begin
@ -3606,8 +3608,11 @@ begin
NewTool:=Self;
NewNode:=BuildSubTreeAndFindDeepestNodeAtPos(CleanPos,true);
NewPos:=CursorPos;
if StartPositionAtDefinition then
AtDefinition:=StartPositionAtDefinition;
if AtDefinition then begin
AddPos;
if fdlfIfStartIsDefinitionStop in Flags then exit;
end;
CurCursorPos:=CursorPos;
CurTool:=Self;