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

SynEdit: PascalHighlighter, clean up some flags in case of parsing invalid sources

Browse Source
This commit is contained in:
Martin 2025-04-13 13:23:38 +02:00
parent 4712f8540d
commit 031101fb29
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synhighlighterpas.pp
View File

@ -1802,7 +1802,10 @@ begin
if ((fToIdent<2) or (fLine[fToIdent-1]<>'@'))
then begin
Result := tkKey;
fRange := fRange - [rsAsm, rsInClassHeader, rsInTypeHelper, rsInObjcProtocol, rsAfterClassMembers];
fRange := fRange - [rsAsm, rsInClassHeader, rsInTypeHelper, rsInObjcProtocol,
rsAfterClassMembers, rsProperty,
rsInProcHeader, rsInParamDeclaration,
rsSkipAllPasBlocks];
if FTokenState in [tsAfterExternal, tsAfterExternalName] then
FTokenState := tsNone;
PasCodeFoldRange.BracketNestLevel := 0; // Reset in case of partial code