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

SynEdit: fixed an issue with deleting if past-Eol, padding was sometimes omitted

Browse Source 
git-svn-id: trunk@21060 -
This commit is contained in:
martin 2009-08-01 18:01:17 +00:00
parent 45d83017bb
commit c008588230
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syneditpointclasses.pas
View File

@ -848,12 +848,12 @@ var
end;
if BE.Y > BB.Y then begin
l := length(FLines[BB.Y - 1]);
if BB.X > l + 1 then BB.X := l + 1;
BE.X := BE.X + l;
FLines.EditLineJoin(BB.Y);
BE.X := BE.X + BB.X - 1;
FLines.EditLineJoin(BB.Y, StringOfChar(' ', Max(0, BB.X - (l+1))));
BE.Y := BB.Y;
end;
FLines.EditDelete(BB.X, BB.Y, BE.X - BB.X);
if BE.X <> BB.X then
FLines.EditDelete(BB.X, BB.Y, BE.X - BB.X);
end;
FInternalCaret.LineBytePos := BB;
end;