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

SynEdit: Syncro/Template-edit, fix adjusting work area, if it ends exactly at end of last cell. Fix adjusting points on line insert (exactly at point)

Browse Source 
git-svn-id: trunk@60063 -
This commit is contained in:
martin 2019-01-12 17:48:45 +00:00
parent 33c6cbeb45
commit cf72a12b68
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -962,7 +962,7 @@ var
if aLineBrkCnt > 0 then begin if aLineBrkCnt > 0 then begin
(* Lines Inserted *) (* Lines Inserted *)
if aPoint.y >= aLinePos then begin if aPoint.y >= aLinePos then begin
if (aPoint.y = aLinePos) and (aPoint.x > Pos.x) then if (aPoint.y = aLinePos) and (aPoint.x >= Pos.x) then
Result.x := Result.x - Pos.x + 1; Result.x := Result.x - Pos.x + 1;
Result.y := Result.y + aLineBrkCnt; Result.y := Result.y + aLineBrkCnt;
end; end;
@ -1003,7 +1003,7 @@ begin
if (a > 0) then if (a > 0) then
CurCell.LogStart := AdjustPoint(CurCell.LogStart, chg); CurCell.LogStart := AdjustPoint(CurCell.LogStart, chg);
a := CompareCarets(Pos, CurCell.LogEnd); a := CompareCarets(Pos, CurCell.LogEnd);
if (a > 0) or ((a = 0) and ((i = FCurrentCell) or edit)) then if (a > 0) or ((a = 0) and ((i = FCurrentCell) or (CurCell.Group = -1) or edit)) then
CurCell.LogEnd := AdjustPoint(CurCell.LogEnd, chg); CurCell.LogEnd := AdjustPoint(CurCell.LogEnd, chg);
if chg then if chg then
Cells[i] := CurCell; Cells[i] := CurCell;