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

SynEdit: Improved backspace, with the new auto-indent "position only"

Browse Source 
git-svn-id: trunk@18244 -
This commit is contained in:
martin 2009-01-10 21:43:16 +00:00
parent 40ef04413d
commit c3f6bb62e5
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -6697,7 +6697,11 @@ begin
then begin then begin
// only move caret one column // only move caret one column
Helper := ' '; Helper := ' ';
bChangeScroll := not (eoScrollPastEol in fOptions);
Include(fOptions, eoScrollPastEol);
CaretX := CaretX - 1; CaretX := CaretX - 1;
if bChangeScroll then
Exclude(fOptions, eoScrollPastEol);
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
// behind EOL, there was no char to delete, this wa a simple cursor move, do not undo // behind EOL, there was no char to delete, this wa a simple cursor move, do not undo
Caret := CaretXY; Caret := CaretXY;