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

Debugger: Inspect Dlg, handle skObject, skInterface

Browse Source 
git-svn-id: trunk@62305 -
This commit is contained in:
martin 2019-11-27 01:52:42 +00:00
parent e5f3e33463
commit 06affdbb7a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
debugger/inspectdlg.pas
View File

@ -869,7 +869,7 @@ begin
Exit;
end;
case FDBGInfo.Kind of
skClass: InspectClass();
skClass, skObject, skInterface: InspectClass();
skRecord: InspectRecord();
skVariant: InspectVariant();
skEnum: InspectEnum;
@ -882,6 +882,10 @@ begin
skArray: InspectSimple();
skPointer: InspectPointer();
// skDecomposable: ;
else begin
Clear;
StatusBar1.SimpleText:=Format(lisInspectUnavailableError, [ShortenedExpression, FHumanReadable]);
end;
end;
end;