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

SynEdit: Auto-Indent (if spaces after caret) could indent to much

Browse Source 
git-svn-id: trunk@18202 -
This commit is contained in:
martin 2009-01-07 23:33:04 +00:00
parent d3d5342fe6
commit df21d7be95
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -7024,7 +7024,7 @@ begin
if Len >= LogCaretXY.X then begin if Len >= LogCaretXY.X then begin
if LogCaretXY.X > 1 then begin if LogCaretXY.X > 1 then begin
// break line in two // break line in two
SpaceCount1 := LeftSpaces(Temp); SpaceCount1 := LeftSpaces(copy(Temp, 1, LogCaretXY.X-1));
Temp := Copy(LineText, 1, LogCaretXY.X - 1); Temp := Copy(LineText, 1, LogCaretXY.X - 1);
FTheLinesView.Insert(CaretY - 1, Temp); FTheLinesView.Insert(CaretY - 1, Temp);
Delete(Temp2, 1, LogCaretXY.X - 1); Delete(Temp2, 1, LogCaretXY.X - 1);
@ -10111,7 +10111,7 @@ begin
Result:=0; Result:=0;
if InsertPos.Y<1 then exit; if InsertPos.Y<1 then exit;
LastTextY:=InsertPos.Y; LastTextY:=InsertPos.Y;
Lines:=Editor.Lines; Lines:=Editor.RealLines;
if LastTextY>Lines.Count then if LastTextY>Lines.Count then
LastTextY:=Lines.Count; LastTextY:=Lines.Count;
while (LastTextY>0) do begin while (LastTextY>0) do begin