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

SynEdit: Fix Highlight Begin-End with tabs or multi byte chars on the line (was not using Physical Pos for Markup)

Browse Source 
git-svn-id: trunk@18634 -
This commit is contained in:
martin 2009-02-11 00:54:04 +00:00
parent e2de214146
commit 1d315d84be
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/synedit/syneditmarkupwordgroup.pp
View File

@ -127,7 +127,21 @@ begin
Word3.Y, Word3.X, Word3. X2, Word3.Y, Word3.X, Word3. X2,
Word2.Y, Word2.X, Word2. X2 Word2.Y, Word2.X, Word2. X2
) then ) then
begin
if Word1.Y > 0 then begin
Word1.X := TSynEdit(SynEdit).LogicalToPhysicalPos(Point(Word1.X, Word1.Y)).X;
Word1.X2 := TSynEdit(SynEdit).LogicalToPhysicalPos(Point(Word1.X2, Word1.Y)).X;
end;
if Word2.Y > 0 then begin
Word2.X := TSynEdit(SynEdit).LogicalToPhysicalPos(Point(Word2.X, Word2.Y)).X;
Word2.X2 := TSynEdit(SynEdit).LogicalToPhysicalPos(Point(Word2.X2, Word2.Y)).X;
end;
if Word3.Y > 0 then begin
Word3.X := TSynEdit(SynEdit).LogicalToPhysicalPos(Point(Word3.X, Word3.Y)).X;
Word3.X2 := TSynEdit(SynEdit).LogicalToPhysicalPos(Point(Word3.X2, Word3.Y)).X;
end;
exit; exit;
end;
// In Case GetWordTriplet did set them // In Case GetWordTriplet did set them
Word1.Y := -1; Word1.Y := -1;