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

codetools: class completion support for array read/write access modifiers

Browse Source 
git-svn-id: trunk@18129 -
This commit is contained in:
mattias 2009-01-05 10:27:02 +00:00
parent 5a187af2f3
commit 3a49b31485
2 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/codetools/codecompletiontool.pas
View File

@ -4361,7 +4361,10 @@ var
procedure ReadSimpleSpec(SpecWord, SpecParam: TPropPart);
// allowed after simple specifier like 'read':
// one semicolon or an <identifier> or an <identifier>.<identifier>
// one semicolon
// or an <identifier>
// or an <identifier>.<identifier>
// (only read, write: ) or an <identifier>[ordinal expression]
// or a specifier
begin
if Parts[SpecWord].StartPos>=1 then
@ -4381,6 +4384,13 @@ var
PartIsAtom[SpecParam]:=false;
Parts[SpecParam].EndPos:=CurPos.EndPos;
end;
if (SpecParam in [ppRead,ppWrite])
and (CurPos.Flag=cafEdgedBracketOpen) then begin
// array access
PartIsAtom[SpecParam]:=false;
ReadTilBracketClose(true);
ReadNextAtom;
end;
end;
var AccessParam, AccessParamPrefix, CleanAccessFunc, AccessFunc,

10
ide/lazarus.lpi
View File

@ -41,7 +41,7 @@
<PackageName Value="SynEdit"/>
</Item4>
</RequiredPackages>
<Units Count="63">
<Units Count="64">
<Unit0>
<Filename Value="lazarus.pp"/>
<IsPartOfProject Value="True"/>
@ -486,6 +486,14 @@
<ResourceBaseClass Value="Frame"/>
<UnitName Value="Compiler_Conditionals_Options"/>
</Unit62>
<Unit63>
<Filename Value="frames/options_compiler_buildmodes.pas"/>
<ComponentName Value="CompOptBuildModesFrame"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Frame"/>
<UnitName Value="options_compiler_buildmodes"/>
</Unit63>
</Units>
</ProjectOptions>
<CompilerOptions>