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

SynEdit: Ifdef Markup: clean up

Browse Source 
git-svn-id: trunk@41189 -
This commit is contained in:
martin 2013-05-14 14:56:37 +00:00
parent 062c0899c3
commit 76bf70d6c4
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/syneditmarkupifdef.pp
View File

@ -2001,7 +2001,7 @@ var
( (ALineOffs = 0) or (ALineOffs = ANodeForLine.LastEntryEndLineOffs) ) ( (ALineOffs = 0) or (ALineOffs = ANodeForLine.LastEntryEndLineOffs) )
then begin then begin
// Does match exactly, keep as is // Does match exactly, keep as is
DebugLn(['++++ KEEPING NODE ++++ ', ALine, ' ', dbgs(AType), ': ', ALogStart, ' - ', ALogEnd]); //DebugLn(['++++ KEEPING NODE ++++ ', ALine, ' ', dbgs(AType), ': ', ALogStart, ' - ', ALogEnd]);
if not LineNeedsReq then if not LineNeedsReq then
LineNeedsReq := Result.NeedsRequesting; LineNeedsReq := Result.NeedsRequesting;
if i > NodesAddedCnt then begin if i > NodesAddedCnt then begin
@ -2543,7 +2543,6 @@ var
else else
Match.EndPoint := point(1, LastLine+1); Match.EndPoint := point(1, LastLine+1);
debugln(['MATCH AT ', dbgs(Match.StartPoint), ' ', dbgs(Match.EndPoint)]);
// empty match does not highlight // empty match does not highlight
if ComparePoints(Match.StartPoint, Match.EndPoint) = 0 then if ComparePoints(Match.StartPoint, Match.EndPoint) = 0 then
exit; exit;
@ -2552,7 +2551,6 @@ debugln(['MATCH AT ', dbgs(Match.StartPoint), ' ', dbgs(Match.EndPoint)]);
if LastMatchIdx >= Matches.Count then begin if LastMatchIdx >= Matches.Count then begin
Matches.Match[LastMatchIdx] := Match; Matches.Match[LastMatchIdx] := Match;
DebugLn(['!!!!!!! Invalidate ', Match.StartPoint.y, ' - ', Match.EndPoint.y]);
InvalidateSynLines(Match.StartPoint.y, Match.EndPoint.y); InvalidateSynLines(Match.StartPoint.y, Match.EndPoint.y);
exit; exit;
end; end;
@ -2570,13 +2568,9 @@ debugln(['MATCH AT ', dbgs(Match.StartPoint), ' ', dbgs(Match.EndPoint)]);
if ComparePoints(OldMatch.StartPoint, Match.EndPoint) >= 0 then if ComparePoints(OldMatch.StartPoint, Match.EndPoint) >= 0 then
Matches.Insert(LastMatchIdx, 1) Matches.Insert(LastMatchIdx, 1)
else else
begin
InvalidateSynLines(OldMatch.StartPoint.y, OldMatch.EndPoint.y);; InvalidateSynLines(OldMatch.StartPoint.y, OldMatch.EndPoint.y);;
DebugLn(['!!!!!!! Invalidate ', Match.StartPoint.y, ' - ', Match.EndPoint.y]);
end;
Matches.Match[LastMatchIdx] := Match; Matches.Match[LastMatchIdx] := Match;
DebugLn(['!!!!!!! Invalidate ', Match.StartPoint.y, ' - ', Match.EndPoint.y]);
InvalidateSynLines(Match.StartPoint.y, Match.EndPoint.y); InvalidateSynLines(Match.StartPoint.y, Match.EndPoint.y);
end; end;
@ -2726,7 +2720,6 @@ XXXCurTree := FIfDefTree; try
// delete remaining matchdata // delete remaining matchdata
while Matches.Count - 1 > LastMatchIdx do begin while Matches.Count - 1 > LastMatchIdx do begin
m := Matches.Match[Matches.Count - 1]; m := Matches.Match[Matches.Count - 1];
DebugLn(['!!!!!!! Invalidate ', m.StartPoint.y, ' - ', m.EndPoint.y]);
if (m.EndPoint.y >= TopLine) and (m.StartPoint.y <= LastLine) then if (m.EndPoint.y >= TopLine) and (m.StartPoint.y <= LastLine) then
InvalidateSynLines(m.StartPoint.y, m.EndPoint.y); InvalidateSynLines(m.StartPoint.y, m.EndPoint.y);
Matches.Delete(Matches.Count - 1); Matches.Delete(Matches.Count - 1);