paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 17:59:22 +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; CurLine: TLineIdx;
hl: TSynCustomFoldHighlighter; hl: TSynCustomFoldHighlighter;
i, c, c1, l: Integer; i, c, c1, l: Integer;
NFilter: TSynFoldActions;
nd: TSynFoldNodeInfo;
begin begin
if HasCount and ((AnIndex >= Count - OpeningOnLineCount) or (AnIndex >= FEvaluationIndex)) then exit; if HasCount and ((AnIndex >= Count - OpeningOnLineCount) or (AnIndex >= FEvaluationIndex)) then exit;
assert(FEvaluationIndex > 0, 'TLazSynEditNestedFoldsList.InitLineInfoForIndex already finilhed'); assert(FEvaluationIndex > 0, 'TLazSynEditNestedFoldsList.InitLineInfoForIndex already finilhed');
@ -3102,8 +3100,6 @@ begin
end; end;
procedure TLazSynEditNestedFoldsList.InitCount(const AHighlighter: TSynCustomFoldHighlighter); procedure TLazSynEditNestedFoldsList.InitCount(const AHighlighter: TSynCustomFoldHighlighter);
var
i, j: Integer;
begin begin
FCount := AHighlighter.FoldBlockEndLevel(FLine - 1, FFoldGroup, FFoldFlags); FCount := AHighlighter.FoldBlockEndLevel(FLine - 1, FFoldGroup, FFoldFlags);
FEvaluationIndex := FCount; FEvaluationIndex := FCount;

2
components/synedit/synedithighlighterfoldbase.pas
View File

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