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

Debugger: Watches, re-add showing classname for objects

Browse Source
This commit is contained in:
Martin 2022-06-16 15:13:03 +02:00
parent 2c0a47c295
commit 1c9afcf9d5
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -174,7 +174,9 @@ begin
FldOwner := FldInfo.Owner;
vis := '';
if (ADispFormat = wdfStructure) and (FldOwner <> nil) and (FldOwner.DirectFieldCount > 0) then begin
if (ADispFormat = wdfStructure) and (FldOwner <> nil) and (FldOwner.DirectFieldCount > 0) and
(AResValue.StructType in [dstClass, dstInterface, dstObject]) // record has no inheritance
then begin
if (Length(Result) > 0) then
Result := Result + sep;
Result := Result + indent + '{' + FldOwner.TypeName + '}';
@ -204,6 +206,14 @@ begin
//Delete(Result, Length(Result), 1)
//Result := Result + sep + ')';
end;
tn := AResValue.TypeName;
if (tn <> '') and (ANestLvl=0) and
( (ADispFormat = wdfStructure) or
(AResValue.StructType in [dstClass, dstInterface])
)
then
Result := tn + Result;
end;
function TWatchResultPrinter.PrintProc(AResValue: TWatchResultData;