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

SynEdit: fix "paste as column", don't move caret-x, if last pasted line is empty

Browse Source
This commit is contained in:
Martin 2025-02-23 16:44:58 +01:00
parent 75d96cf0ea
commit faccb609a2
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syneditpointclasses.pas
View File

@ -2389,7 +2389,9 @@ var
SetLength(Str, P - Start); SetLength(Str, P - Start);
Move(Start^, Str[1], P - Start); Move(Start^, Str[1], P - Start);
FLines.EditInsert(FInternalCaret.BytePos, FInternalCaret.LinePos, Str); FLines.EditInsert(FInternalCaret.BytePos, FInternalCaret.LinePos, Str);
end; end
else
Str := '';
if p^ in [#10,#13] then begin if p^ in [#10,#13] then begin
if (p[1] in [#10,#13]) and (p[1]<>p^) then if (p[1] in [#10,#13]) and (p[1]<>p^) then
inc(p,2) inc(p,2)