From 742189d0ee746bfcb9fb13e5827bf1607d3ed175 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Thu, 11 Jan 2018 23:33:03 +0000
Subject: [PATCH] SynEdit: fixed pas HL for uses block. Issue #0032976

git-svn-id: trunk@57058 -
---
 components/synedit/synhighlighterpas.pp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/synedit/synhighlighterpas.pp b/components/synedit/synhighlighterpas.pp
index 4869be96f3..d7ba9204e4 100644
--- a/components/synedit/synhighlighterpas.pp
+++ b/components/synedit/synhighlighterpas.pp
@@ -3011,22 +3011,23 @@ procedure TSynPasSyn.SemicolonProc;
 var
   tfb: TPascalCodeFoldBlockType;
 begin
-  Inc(Run);
   fTokenID := tkSymbol;
   tfb := TopPascalCodeFoldBlockType;
 
+  fStringLen := 1;
   if tfb = cfbtUses then
     EndPascalCodeFoldBlock;
 
   if (tfb = cfbtClass) and (rsAfterClass in fRange) then
     EndPascalCodeFoldBlock(True);
 
-  fStringLen:=0;
   while (tfb in [cfbtIfThen,cfbtIfElse,cfbtForDo,cfbtWhileDo,cfbtWithDo]) do begin
     EndPascalCodeFoldBlock(True);
     tfb := TopPascalCodeFoldBlockType;
   end;
 
+  Inc(Run);
+
   if (tfb = cfbtCase) then
     fRange := fRange + [rsAtCaseLabel];