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

SynEdit: Syncron-edit mode, fixed caret position after line break

Browse Source 
git-svn-id: trunk@20926 -
This commit is contained in:
martin 2009-07-22 20:23:44 +00:00
parent f87647590c
commit 2112f6e3fa
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/synpluginsyncronizededitbase.pp
View File

@ -839,9 +839,10 @@ begin
X2 := X2 + FCells[i].LogStart.X;
if aLineBrkCnt = -1 then begin
ViewedTextBuffer.EditLineJoin(Y2);
if (CaretPos.y = Y2 + 1) then begin
if (CaretPos.y > Y2) then begin
dec(CaretPos.y);
inc(CaretPos.x, X2 - 1);
if (CaretPos.y = Y2) then
inc(CaretPos.x, X2 - 1);
end;
end
else if aLineBrkCnt < -1 then begin
@ -851,6 +852,8 @@ begin
end
else if aLineBrkCnt = 1 then begin
ViewedTextBuffer.EditLineBreak(X2, Y2);
if (CaretPos.y > Y2) then
inc(CaretPos.y);
if (CaretPos.y = Y2) and (CaretPos.x > X2) then begin
inc(CaretPos.y);
dec(CaretPos.x, X2 - 1);