paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-08 20:24:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

Backspace Tab character correctly.

Browse Source
This commit is contained in:
Margers 2024-10-09 13:14:15 +00:00 committed by Michael Van Canneyt
parent f259ca5e40
commit ca0dad1ce1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/ide/weditor.pas
View File

@ -4906,8 +4906,8 @@ 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-1)+1;
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);