paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-30 10:50:53 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: clean up

Browse Source 
git-svn-id: trunk@19244 -
This commit is contained in:
mattias 2009-04-06 11:12:35 +00:00
parent aab04330d5
commit 72183ac80c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synhighlighterpas.pp
View File

@ -2607,7 +2607,7 @@ function TSynPasSyn.GetDrawDivider(Index: integer): TSynDividerDrawConfigSetting
end; end;
var var
nxt, cur: TPascalCodeFoldBlockType; cur: TPascalCodeFoldBlockType;
CloseCnt, ClosedByNextLine, ClosedInLastLine: Integer; CloseCnt, ClosedByNextLine, ClosedInLastLine: Integer;
i, top, c: Integer; i, top, c: Integer;
t: TSynPasDividerDrawLocation; t: TSynPasDividerDrawLocation;
@ -2639,7 +2639,7 @@ begin
cur := TopPascalCodeFoldBlockType(i + 1); cur := TopPascalCodeFoldBlockType(i + 1);
while (i >= top) do begin while (i >= top) do begin
nxt := cur; // The "next higher" close node compared to current //nxt := cur; // The "next higher" close node compared to current
cur := TopPascalCodeFoldBlockType(i); cur := TopPascalCodeFoldBlockType(i);
Result := FDividerDrawConfig[pddlUses].TopSetting; //// xxxx Result := FDividerDrawConfig[pddlUses].TopSetting; //// xxxx
case cur of case cur of