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

IDE, Debugger: improved display of watches (keep one space, if stripping multiline)

Browse Source 
git-svn-id: trunk@44888 -
This commit is contained in:
martin 2014-05-02 13:13:39 +00:00
parent f8bf660267
commit bc4c3ea47a
1 changed files with 5 additions and 2 deletions

7
debugger/watchesdlg.pp
View File

@ -802,8 +802,11 @@ procedure TWatchesDlg.UpdateItem(const AItem: TListItem; const AWatch: TIdeWatch
for j := 1 to Length(AValue) do begin
if (AValue[j]=#13) or (AValue[j]=#10) then begin
NewLine:=true;
end else if Avalue[j]=#32 then begin
if not NewLine then begin
inc(ow);
Result[ow]:=#32; // insert one space instead of new line
end
else if Avalue[j] in [#9,#32] then begin
if not NewLine then begin // strip leading spaces after new line
inc(ow);
Result[ow]:=#32;
end;