paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 19:58:13 +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 var
tfb: TPascalCodeFoldBlockType; tfb: TPascalCodeFoldBlockType;
begin begin
Inc(Run);
fTokenID := tkSymbol; fTokenID := tkSymbol;
tfb := TopPascalCodeFoldBlockType; tfb := TopPascalCodeFoldBlockType;
fStringLen := 1;
if tfb = cfbtUses then if tfb = cfbtUses then
EndPascalCodeFoldBlock; EndPascalCodeFoldBlock;
if (tfb = cfbtClass) and (rsAfterClass in fRange) then if (tfb = cfbtClass) and (rsAfterClass in fRange) then
EndPascalCodeFoldBlock(True); EndPascalCodeFoldBlock(True);
fStringLen:=0;
while (tfb in [cfbtIfThen,cfbtIfElse,cfbtForDo,cfbtWhileDo,cfbtWithDo]) do begin while (tfb in [cfbtIfThen,cfbtIfElse,cfbtForDo,cfbtWhileDo,cfbtWithDo]) do begin
EndPascalCodeFoldBlock(True); EndPascalCodeFoldBlock(True);
tfb := TopPascalCodeFoldBlockType; tfb := TopPascalCodeFoldBlockType;
end; end;
Inc(Run);
if (tfb = cfbtCase) then if (tfb = cfbtCase) then
fRange := fRange + [rsAtCaseLabel]; fRange := fRange + [rsAtCaseLabel];