paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 20:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Debugger, InspectDlg: fix showing strings under fpdebug / fix missing update, when dlg is re-opened with same expression.

Browse Source 
git-svn-id: trunk@65118 -
This commit is contained in:
martin 2021-05-19 13:43:20 +00:00
parent f37ae1b3d2
commit 65fe745451
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
debugger/inspectdlg.pas
View File

@ -89,7 +89,7 @@ type
FDBGInfo: TDBGType;
FGridData: TStringGrid;
FGridMethods: TStringGrid;
FUpdateLock, FUpdateNeeded: Boolean;
FUpdateLock, FUpdateNeeded, FExpressionWasEvaluated: Boolean;
FTestUpdateLock: Boolean;
FRowClicked: Integer;
FHistory: TStringList;
@ -851,7 +851,7 @@ begin
btnBackward.Enabled := FHistoryIndex > 0;
btnForward.Enabled := FHistoryIndex < FHistory.Count - 1;
if (FExpression=FHistory[FHistoryIndex]) then
if (FExpression=FHistory[FHistoryIndex]) and FExpressionWasEvaluated then
exit;
FExpression:=FHistory[FHistoryIndex];
@ -863,6 +863,7 @@ procedure TIDEInspectDlg.EvaluateCallback(Sender: TObject; ASuccess: Boolean;
ResultText: String; ResultDBGType: TDBGType);
begin
FUpdateLock := False;
FExpressionWasEvaluated := True;
FHumanReadable := ResultText;
FDBGInfo := ResultDBGType;
@ -887,6 +888,7 @@ begin
skCardinal, skBoolean, skChar, skFloat: InspectSimple();
skArray: InspectSimple();
skPointer: InspectPointer();
skString, skAnsiString, skWideString: InspectSimple;
// skDecomposable: ;
else begin
Clear;
@ -899,6 +901,7 @@ procedure TIDEInspectDlg.UpdateData;
var
Opts: TDBGEvaluateFlags;
begin
FExpressionWasEvaluated := False;
if DebugBoss.State in [dsRun, dsStop, dsIdle] then begin
// No request can be running
FUpdateLock := False;