فهرست منبع

Backspace Tab character correctly.

Margers 1 سال پیش
والد
کامیت
ca0dad1ce1
1فایلهای تغییر یافته به همراه2 افزوده شده و 2 حذف شده
  1. 2 2
      packages/ide/weditor.pas

+ 2 - 2
packages/ide/weditor.pas

@@ -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);