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

SynEdit: refactor

Browse Source 
git-svn-id: trunk@34241 -
This commit is contained in:
martin 2011-12-17 11:18:04 +00:00
parent b08de46fb5
commit ae11c87ef7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/synedit.pp
View File

@ -3649,8 +3649,8 @@ var
else
Attr := nil;
repeat
MarkupInfo := fMarkupManager.GetMarkupAttributeAtRowCol(FFoldedLinesView.TextIndex[CurLine]+1, NextPos);
NextPos := fMarkupManager.GetNextMarkupColAfterRowCol(FFoldedLinesView.TextIndex[CurLine]+1, NextPos);
MarkupInfo := fMarkupManager.GetMarkupAttributeAtRowCol(CurTextIndex+1, NextPos);
NextPos := fMarkupManager.GetNextMarkupColAfterRowCol(CurTextIndex+1, NextPos);
if Assigned(Attr) then
begin
@ -3906,7 +3906,7 @@ var
// Calculate Token Sublen for current Markup
NextPhysPos := fMarkupManager.GetNextMarkupColAfterRowCol
(FFoldedLinesView.TextIndex[CurLine]+1, PhysicalStartPos);
(CurTextIndex+1, PhysicalStartPos);
if NextPhysPos < 1
then SubCharLen := TokenCharLen
else SubCharLen := NextPhysPos - PhysicalStartPos;
@ -3924,7 +3924,7 @@ var
FPaintLineColor2.CurrentEndX := PhysicalEndPos;
// Calculate Markup
fMarkupManager.MergeMarkupAttributeAtRowCol(FFoldedLinesView.TextIndex[CurLine]+1,
fMarkupManager.MergeMarkupAttributeAtRowCol(CurTextIndex+1,
PhysicalStartPos, PhysicalEndPos, FPaintLineColor2);
// Deal with equal colors