paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 10:39:53 +01:00
Code Issues Packages Projects Releases Wiki Activity

codetools: support static array helpers

Browse Source 
git-svn-id: trunk@51216 -
This commit is contained in:
ondrej 2016-01-06 19:53:50 +00:00
parent ea60c10a12
commit 16925fa4b4
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codetree.pas
View File

@ -199,7 +199,7 @@ const
[ctnProcedure]; [ctnProcedure];
AllPointContexts = AllClasses+AllSourceTypes+ AllPointContexts = AllClasses+AllSourceTypes+
[ctnEnumerationType,ctnInterface,ctnImplementation,ctnTypeType, [ctnEnumerationType,ctnInterface,ctnImplementation,ctnTypeType,
ctnUseUnitNamespace,ctnUseUnitClearName,ctnOpenArrayType]; ctnUseUnitNamespace,ctnUseUnitClearName,ctnRangedArrayType,ctnOpenArrayType];
// CodeTreeNodeSubDescriptors // CodeTreeNodeSubDescriptors

2
components/codetools/finddeclarationtool.pas
View File

@ -4331,7 +4331,7 @@ begin
// find class helper functions // find class helper functions
SearchInHelpersInTheEnd := False; SearchInHelpersInTheEnd := False;
if (fdfSearchInHelpers in Flags) if (fdfSearchInHelpers in Flags)
and (ContextNode.Desc in [ctnClass,ctnRecordType,ctnTypeType,ctnObjCClass,ctnEnumerationType,ctnOpenArrayType]) and (ContextNode.Desc in [ctnClass,ctnRecordType,ctnTypeType,ctnObjCClass,ctnEnumerationType,ctnRangedArrayType,ctnOpenArrayType])
and (ContextNode.Parent<>nil) and (ContextNode.Parent.Desc = ctnTypeDefinition) and (ContextNode.Parent<>nil) and (ContextNode.Parent.Desc = ctnTypeDefinition)
then begin then begin
if (fdfSearchInHelpersInTheEnd in Flags) then if (fdfSearchInHelpersInTheEnd in Flags) then