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

SynEdit: Folding, fix last check-in for "foo = class of bar;"

Browse Source 
git-svn-id: trunk@18015 -
This commit is contained in:
martin 2009-01-01 18:11:35 +00:00
parent ee56753484
commit 57b43172d7
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synhighlighterpas.pp
View File

@ -730,7 +730,15 @@ end;
function TSynPasSyn.Func21: TtkTokenKind;
begin
if KeyComp('Of') then Result := tkKey else Result := tkIdentifier;
if KeyComp('Of') then begin
Result := tkKey;
if (rsAfterClass in fRange) and (TopPascalCodeFoldBlockType = cfbtClass)
then begin
// Accidental start of block // End at next semicolon (usually same line)
CodeFoldRange.Top.BlockType := Pointer(PtrInt(cfbtUses));
end;
end
else Result := tkIdentifier;
end;
function TSynPasSyn.Func23: TtkTokenKind;