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

SynEdit: fixed pas HL for uses block. Issue #0032976

Browse Source 
git-svn-id: trunk@57058 -
This commit is contained in:
martin 2018-01-11 23:33:03 +00:00
parent 91b5e9ace2
commit 742189d0ee
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/synhighlighterpas.pp
View File

@ -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];