From 57b43172d79a10d86aa57f606a6b44758dc20dc7 Mon Sep 17 00:00:00 2001 From: martin Date: Thu, 1 Jan 2009 18:11:35 +0000 Subject: [PATCH] SynEdit: Folding, fix last check-in for "foo = class of bar;" git-svn-id: trunk@18015 - --- components/synedit/synhighlighterpas.pp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp index 1a74d0fc55..129b272754 100644 --- a/components/synedit/synhighlighterpas.pp +++ b/components/synedit/synhighlighterpas.pp @@ -730,7 +730,15 @@ end; function TSynPasSyn.Func21: TtkTokenKind; begin - if KeyComp('Of') then Result := tkKey else Result := tkIdentifier; + if KeyComp('Of') then begin + Result := tkKey; + if (rsAfterClass in fRange) and (TopPascalCodeFoldBlockType = cfbtClass) + then begin + // Accidental start of block // End at next semicolon (usually same line) + CodeFoldRange.Top.BlockType := Pointer(PtrInt(cfbtUses)); + end; + end + else Result := tkIdentifier; end; function TSynPasSyn.Func23: TtkTokenKind;