paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 11:59:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger, IDE: clear new lines for errors, and status text. Related to 5f0317b72e

Browse Source
This commit is contained in:
Martin 2023-03-21 18:29:18 +01:00
parent 73f0e0ea68
commit 73bbf37840
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/packages/idedebugger/idedebuggerwatchresprinter.pas
View File

@ -385,7 +385,11 @@ begin
Result := '';
case AResValue.ValueKind of
rdkError:
begin
Result := 'Error: ' + AResValue.AsString;
if rpfClearMultiLine in FFormatFlags then
Result := ClearMultiline(Result);
end;
rdkUnknown:
Result := 'Error: Unknown';
rdkPrePrinted: begin

2
ide/packages/idedebugger/localsdlg.pp
View File

@ -844,7 +844,7 @@ var
begin
ResData := AWatchAbleResult.ResultData;
if ResData = nil then
s := AWatchAbleResult.Value
s := ClearMultiline(AWatchAbleResult.Value)
else
s := FLocalsDlg.FWatchPrinter.PrintWatchValue(ResData, wdfDefault);
TreeView.NodeText[AVNode, 0] := TIdeLocalsValue(AWatchAble).DisplayName;

2
ide/packages/idedebugger/watchesdlg.pp
View File

@ -1383,7 +1383,7 @@ begin
(AWatchAbleResult.TypeInfo.Attributes * [saArray, saDynArray] <> []) and
(AWatchAbleResult.TypeInfo.Len >= 0)
then TreeView.NodeText[AVNode, COL_WATCH_VALUE-1] := Format(drsLen, [AWatchAbleResult.TypeInfo.Len]) + AWatchAbleResult.Value
else TreeView.NodeText[AVNode, COL_WATCH_VALUE-1] := AWatchAbleResult.Value;
else TreeView.NodeText[AVNode, COL_WATCH_VALUE-1] := ClearMultiline(AWatchAbleResult.Value);
end;
end
else