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

synedit: not adding spaces if eoScrollPastEOL on line break, bug #11745

Browse Source 
git-svn-id: trunk@15875 -
This commit is contained in:
mattias 2008-07-26 16:13:56 +00:00
parent cbc57806d7
commit c7b7a0b503
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -8184,7 +8184,7 @@ begin
end;
Lines.Insert(CaretY, '');
if Command = ecLineBreak then begin
if SpaceCount2 > 0 then
if (SpaceCount2 > 0) and (not (eoScrollPastEol in Options)) then
Lines[CaretY] := StringOfChar(' ', SpaceCount2);
CaretXY := Point(SpaceCount2 + 1, CaretY + 1);
end;