paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-26 05:21:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix smart unindent obeys read-only

Browse Source 
git-svn-id: trunk@22686 -
This commit is contained in:
martin 2009-11-19 23:54:52 +00:00
parent fa76b5032d
commit 776f474483
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/synedit/synbeautifier.pas
View File

@ -233,6 +233,7 @@ begin
if (Command = ecDeleteLastChar) and if (Command = ecDeleteLastChar) and
(FAutoIndent) and (FAutoIndent) and
(ACaret.CharPos > 1) and (ACaret.CharPos > 1) and
(not TSynEdit(FCurrentEditor).ReadOnly) and
( (not TSynEdit(FCurrentEditor).SelAvail) or ( (not TSynEdit(FCurrentEditor).SelAvail) or
(eoPersistentBlock in TSynEdit(FCurrentEditor).Options2) ) and (eoPersistentBlock in TSynEdit(FCurrentEditor).Options2) ) and
(GetIndentForLine(FCurrentEditor, ACaret.LineText, True) = ACaret.CharPos - 1) (GetIndentForLine(FCurrentEditor, ACaret.LineText, True) = ACaret.CharPos - 1)