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

SynEdit, fixed Line-Indent if trim-spaces uses "Position Only"

Browse Source 
git-svn-id: trunk@19672 -
This commit is contained in:
martin 2009-04-28 20:28:19 +00:00
parent ba06642516
commit ff3a210ee6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/synedit/synedit.pp
View File

@ -6000,7 +6000,8 @@ begin
if LogCaretXY.X > Len + 1 then if LogCaretXY.X > Len + 1 then
LogCaretXY.X := Len + 1; LogCaretXY.X := Len + 1;
FTheLinesView.EditLineBreak(LogCaretXY.X, LogCaretXY.Y); FTheLinesView.EditLineBreak(LogCaretXY.X, LogCaretXY.Y);
if (eoAutoIndent in fOptions) and (LogCaretXY.X > 1) then begin if (eoAutoIndent in fOptions) and ((LogCaretXY.X > 1) or (Len = 0)) then
begin
Caret := CaretXY; Caret := CaretXY;
Caret.Y := Caret.Y + 1; Caret.Y := Caret.Y + 1;
FTheLinesView.EditInsert(1, LogCaretXY.Y + 1, FTheLinesView.EditInsert(1, LogCaretXY.Y + 1,