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

SynEdit: Markup and more paint-token-breaker for future bidi support

Browse Source 
git-svn-id: trunk@39007 -
This commit is contained in:
martin 2012-10-08 22:26:52 +00:00
parent 5ad6f2f6fb
commit a73a625629
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -642,8 +642,8 @@ begin
if MarkupInfo.IsEnabled then begin if MarkupInfo.IsEnabled then begin
ac := Cells.GroupCell[CellGroupForArea, 0]; ac := Cells.GroupCell[CellGroupForArea, 0];
if (ac <> nil) and if (ac <> nil) and
( ((ac.LogStart.y = aRow) and (ac.LogStart.x <= aStartCol.Physical)) or (ac.LogStart.y < aRow)) and ( ((ac.LogStart.y = aRow) and (ac.LogStart.x <= aStartCol.Logical)) or (ac.LogStart.y < aRow)) and
( ((ac.LogEnd.y = aRow) and (ac.LogEnd.x > aStartCol.Physical)) or (ac.LogEnd.y > aRow)) ( ((ac.LogEnd.y = aRow) and (ac.LogEnd.x > aStartCol.Logical)) or (ac.LogEnd.y > aRow))
then then
Result := MarkupInfo; Result := MarkupInfo;
end; end;
@ -660,14 +660,14 @@ begin
if MarkupInfo.IsEnabled then begin if MarkupInfo.IsEnabled then begin
ac := Cells.GroupCell[CellGroupForArea, 0]; ac := Cells.GroupCell[CellGroupForArea, 0];
if ac <> nil then begin if ac <> nil then begin
if (ac.LogStart.y = aRow) and (ac.LogStart.x > aStartCol.Physical) and if (ac.LogStart.y = aRow) and (ac.LogStart.x > aStartCol.Logical) and
( (ac.LogStart.x < ANextPhys) or (ANextPhys < 0) ) ( (ac.LogStart.x < ANextLog) or (ANextLog < 0) )
then then
ANextPhys := ac.LogStart.x; ANextLog := ac.LogStart.x;
if (ac.LogEnd.y = aRow) and (ac.LogEnd.x > aStartCol.Physical) and if (ac.LogEnd.y = aRow) and (ac.LogEnd.x > aStartCol.Logical) and
( (ac.LogEnd.x < ANextPhys) or (ANextPhys < 0) ) ( (ac.LogEnd.x < ANextLog) or (ANextLog < 0) )
then then
ANextPhys := ac.LogEnd.x; ANextLog := ac.LogEnd.x;
end; end;
end; end;
end; end;