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

SynEdit, Pas Highlighter: Completed the list of Ifdef, ifopt, elseif directives

Browse Source 
git-svn-id: trunk@41047 -
This commit is contained in:
martin 2013-05-06 10:40:11 +00:00
parent c7de652f4a
commit cb29a62dfe
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/synedit/synhighlighterpas.pp
View File

@ -2507,13 +2507,23 @@ begin
inc(Run, 2);
fToIdent := Run;
KeyHash;
if KeyComp('ifdef') or KeyComp('ifndef') or KeyComp('if') or KeyComp('ifopt') then
if (fLine[Run] in ['i', 'I']) and
( KeyComp('if') or KeyComp('ifc') or KeyComp('ifdef') or KeyComp('ifndef') or
KeyComp('ifopt') )
then
StartDirectiveFoldBlock(cfbtIfDef)
else if KeyComp('endif') then
else
if ( (fLine[Run] in ['e', 'E']) and ( KeyComp('endif') or KeyComp('endc') ) ) or
KeyComp('ifend')
then
EndDirectiveFoldBlock(cfbtIfDef)
else if KeyComp('else') then
else
if (fLine[Run] in ['e', 'E']) and
( KeyComp('else') or KeyComp('elsec') or KeyComp('elseif') or KeyComp('elifc') )
then
EndStartDirectiveFoldBlock(cfbtIfDef)
else if KeyComp('region') then begin
else
if KeyComp('region') then begin
StartDirectiveFoldBlock(cfbtRegion);
if FCatchNodeInfo then
// Scan ahead