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

SynEdit: Pas Highlighter, improved "stored" for property

Browse Source
This commit is contained in:
Martin 2023-03-09 11:10:57 +01:00
parent b8a9088638
commit 31d30d3fcf
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synhighlighterpas.pp
View File

@ -1751,9 +1751,12 @@ function TSynPasSyn.Func81: TtkTokenKind;
var
tbf: TPascalCodeFoldBlockType;
begin
if KeyComp('Stored') then
begin
if rsProperty in fRange then Result := tkKey else Result := tkIdentifier;
if (fRange * [rsProperty, rsAtPropertyOrReadWrite, rsAfterEqualOrColon] = [rsProperty]) and
(PasCodeFoldRange.BracketNestLevel = 0) and
KeyComp('Stored')
then begin
Result := tkKey;
fRange := fRange + [rsAtPropertyOrReadWrite] - [rsVarTypeInSpecification];
end
else if KeyComp('Interface') then begin
if (rsAfterEqual in fRange) and (PasCodeFoldRange.BracketNestLevel = 0)