paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 05:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: support for cppclass

Browse Source 
git-svn-id: trunk@22785 -
This commit is contained in:
paul 2009-11-26 06:55:44 +00:00
parent eba9f81e8c
commit 543add952b
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/synedit/synhighlighterpas.pp
View File

@ -1485,12 +1485,23 @@ function TSynPasSyn.Func89: TtkTokenKind;
end;
begin
Result := tkIdentifier;
if KeyComp('CppClass') then
begin
Result := tkKey;
if (rsAfterEqual in fRange) and (PasCodeFoldRange.BracketNestLevel = 0) then
begin
fRange := fRange + [rsAtClass];
StartPascalCodeFoldBlock(cfbtClass);
end;
end
else
Result := tkIdentifier;
// Structural Scan / Quick
if FIsInNextToEOL and not FCatchNodeInfo then
exit;
// Scanning for display / Look ahead
if KeyComp('strict') then begin
if KeyComp('strict') then
begin
if (TopPascalCodeFoldBlockType in [cfbtClass, cfbtClassSection]) then
if ScanForClassSection then
Result := tkKey;