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

Fix for undo if chars are add in tab space

Browse Source
This commit is contained in:
Margers 2024-11-11 12:49:15 +00:00
parent 2045755945
commit d0c33bfa5d
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/ide/weditor.pas
View File

@ -3227,7 +3227,7 @@ end;
function TCustomCodeEditor.InsertFrom(Editor: PCustomCodeEditor): Boolean;
var OK: boolean;
CP,RX,RSX,LineDelta,LineCount: Sw_integer;
CP,CI,RX,RSX,LineDelta,LineCount: Sw_integer;
StartPos,DestPos,BPos,EPos: TPoint;
LineStartX,LineEndX: Sw_integer;
TabSize,CharIdxStart,CharIdxEnd: Sw_integer;
@ -3251,6 +3251,8 @@ begin
begin
if not (Clipboard=@Self) and IsFlagSet(efOverwriteBlocks) and InSelectionArea then
DelSelect; {delete selection before paste}
CI:=LinePosToCharIdx(CurPos.Y,CurPos.X);
CurPos.X:=CharIdxToLinePos(CurPos.Y,CI); {tab space adjustment}
StartPos:=CurPos; DestPos:=CurPos;
EPos:=CurPos;
VerticalBlock:=Editor^.IsFlagSet(efVerticalBlocks);
@ -3377,12 +3379,14 @@ begin
end;
function TCustomCodeEditor.InsertText(const S: sw_astring): Boolean;
var I: sw_integer;
var I,CI: sw_integer;
OldPos: TPoint;
HoldUndo : boolean;
WasAutoBrackets : boolean;
begin
Lock;
CI:=LinePosToCharIdx(CurPos.Y,CurPos.X);
CurPos.X:=CharIdxToLinePos(CurPos.Y,CI); {tab space adjustment}
OldPos:=CurPos;
HoldUndo:=GetStoreUndo;
WasAutoBrackets:=GetAutoBrackets;
@ -6150,6 +6154,7 @@ begin
exit;
end;
{$endif}
SP.X:=CharIdxToLinePos(CurPos.Y,CI); {actual changes are going to be here (tab space adjustment)}
if (CI>0) and (S[CI]=TAB) and not IsFlagSet(efUseTabCharacters) then
begin
if CI=1 then