paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 10:58:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: debugger: fixed reversed output

Browse Source 
git-svn-id: trunk@59611 -
This commit is contained in:
mattias 2018-11-20 16:43:23 +00:00
parent 910d2f1319
commit faeb5f30ec
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/pseudoterminaldlg.pp
View File

@ -618,8 +618,8 @@ var
i, j: integer;
begin
SetLength(result, Length(str));
j:=1;
Result:=str;
j:=length(result)+1;
for i := Length(str) downto 1 do
begin
case str[i] of
@ -630,14 +630,10 @@ var
// #$7f,
// #$80..#$ff,
begin
ReplaceSubstring(Result,j,length(dot),dot); (* GTK2 really doesn't like seeing this *)
inc(j,length(dot));
continue;
ReplaceSubstring(Result,j,1,dot); (* GTK2 really doesn't like seeing this *)
end;
otherwise
result[j] := str[i];
end;
inc(j);
dec(j);
end;
end { widen } ;