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

SynEdit, Highlighter: "type x=interface" was not recognized as fold-able structure / "default" keyword for properties in such structures where not highlighted; issue #14153

Browse Source 
git-svn-id: trunk@20873 -
This commit is contained in:
martin 2009-07-16 20:17:32 +00:00
parent b5d019c838
commit 42e7f62664
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/synhighlighterpas.pp
View File

@ -1314,6 +1314,12 @@ begin
if rsProperty in fRange then Result := tkKey else Result := tkIdentifier;
end else
if KeyComp('Interface') then begin
if (rsAfterEqual in fRange) and (PasCodeFoldRange.BracketNestLevel = 0)
then begin
fRange := fRange + [rsAtClass];
StartPascalCodeFoldBlock(cfbtClass);
end
else
if not(rsAfterEqual in fRange) and
(fRange * [rsInterface, rsImplementation] = []) then
begin