paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 03:58:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

synedit: clean up

Browse Source 
git-svn-id: trunk@38100 -
This commit is contained in:
mattias 2012-08-01 09:11:26 +00:00
parent 93a55c46a9
commit 07c5091ba9
2 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditfoldedview.pp
View File

@ -3032,8 +3032,6 @@ var
CurLine: TLineIdx;
hl: TSynCustomFoldHighlighter;
i, c, c1, l: Integer;
NFilter: TSynFoldActions;
nd: TSynFoldNodeInfo;
begin
if HasCount and ((AnIndex >= Count - OpeningOnLineCount) or (AnIndex >= FEvaluationIndex)) then exit;
assert(FEvaluationIndex > 0, 'TLazSynEditNestedFoldsList.InitLineInfoForIndex already finilhed');
@ -3102,8 +3100,6 @@ begin
end;
procedure TLazSynEditNestedFoldsList.InitCount(const AHighlighter: TSynCustomFoldHighlighter);
var
i, j: Integer;
begin
FCount := AHighlighter.FoldBlockEndLevel(FLine - 1, FFoldGroup, FFoldFlags);
FEvaluationIndex := FCount;

2
components/synedit/synedithighlighterfoldbase.pas
View File

@ -518,8 +518,6 @@ begin
end;
procedure TLazSynFoldNodeInfoList.Clear;
var
c: Integer;
begin
ClearFilter;
ClearData;