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

synedit: highlight compilerproc modifier

Browse Source 
git-svn-id: trunk@18303 -
This commit is contained in:
paul 2009-01-16 02:21:04 +00:00
parent f9ef877f9e
commit 047bd064e5
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/synhighlighterpas.pp
View File

@ -1379,17 +1379,21 @@ end;
function TSynPasSyn.Func143: TtkTokenKind;
begin
if KeyComp('Destructor') then begin
if not(rsAfterEqual in fRange) then begin
if KeyComp('Destructor') then
begin
if not(rsAfterEqual in fRange) then
begin
TSynPasSynRange(CodeFoldRange).BracketNestLevel := 0; // Reset in case of partial code
if TopPascalCodeFoldBlockType=cfbtVarType then EndCodeFoldBlockLastLine;
if TopPascalCodeFoldBlockType = cfbtVarType then EndCodeFoldBlockLastLine;
if not (rsInterface in fRange) and
not(TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection])
then
not(TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) then
StartPascalCodeFoldBlock(cfbtProcedure);
end;
Result := tkKey;
end else
if KeyComp('compilerproc') then // fpc modifier
Result := tkKey
else
Result := tkIdentifier;
end;