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

SynEdit: Prevent auto-unindent (on backspace) if a selection exists. Selection must be deleted instead.

Browse Source 
git-svn-id: trunk@21681 -
This commit is contained in:
martin 2009-09-13 10:25:47 +00:00
parent 732549fe81
commit 50b14ade3c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synbeautifier.pas
View File

@ -146,6 +146,7 @@ type
end; end;
implementation implementation
uses SynEdit;
{ TSynCustomBeautifier } { TSynCustomBeautifier }
@ -220,6 +221,8 @@ begin
if (Command = ecDeleteLastChar) and if (Command = ecDeleteLastChar) and
(FAutoIndent) and (FAutoIndent) and
(ACaret.CharPos > 1) and (ACaret.CharPos > 1) and
( (not TSynEdit(FCurrentEditor).SelAvail) or
(eoPersistentBlock in TSynEdit(FCurrentEditor).Options2) ) and
(GetCurrentIndent(FCurrentEditor, ACaret.LineText, True) = ACaret.CharPos - 1) (GetCurrentIndent(FCurrentEditor, ACaret.LineText, True) = ACaret.CharPos - 1)
then begin then begin
UnIndentLine(ACaret, x); UnIndentLine(ACaret, x);