paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 01:48:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix for backspace in empty line. Textmode IDE

Browse Source
This commit is contained in:
Margers 2024-11-11 07:45:52 +00:00 committed by Michael Van Canneyt
parent a8520ad03e
commit e221096a02
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/ide/weditor.pas
View File

@ -5064,8 +5064,9 @@ begin
CP:=CurPos.X-1;
S:=GetLineText(CurPos.Y);
CI:=LinePosToCharIdx(CurPos.Y,CP);
if (s[ci]=TAB) {and (CharIdxToLinePos(Curpos.y,ci)=cp)} then
CP:=CharIdxToLinePos(CurPos.Y,CI);
if (ci>0) and (ci<=length(S)) then
if (s[ci]=TAB) {and (CharIdxToLinePos(Curpos.y,ci)=cp)} then
CP:=CharIdxToLinePos(CurPos.Y,CI);
if IsFlagSet(efBackspaceUnindents) then
begin
S:=GetDisplayText(CurPos.Y);