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

synedit: support folding for dispinterfaces

Browse Source 
git-svn-id: trunk@23540 -
This commit is contained in:
paul 2010-01-23 17:20:07 +00:00
parent 90d11eb2a2
commit 1bc6b10b9e
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/synedit/synhighlighterpas.pp
View File

@ -1721,7 +1721,17 @@ end;
function TSynPasSyn.Func129: TtkTokenKind;
begin
if KeyComp('Dispinterface') then Result := tkKey else Result := tkIdentifier;
if KeyComp('Dispinterface') then
begin
Result := tkKey;
if (rsAfterEqual in fRange) and (PasCodeFoldRange.BracketNestLevel = 0) then
begin
fRange := fRange + [rsAtClass];
StartPascalCodeFoldBlock(cfbtClass);
end;
end
else
Result := tkIdentifier;
end;
function TSynPasSyn.Func130: TtkTokenKind;