paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 14:20:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Debugger: Fix inspect dialog. Allow double clicking members of old style objects.

Browse Source 
git-svn-id: trunk@62555 -
This commit is contained in:
martin 2020-01-14 17:44:23 +00:00
parent a1a3a98062
commit dee73b2218
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
debugger/inspectdlg.pas
View File

@ -226,7 +226,7 @@ begin
if (FDBGInfo = nil) or (FExpression = '') then exit; if (FDBGInfo = nil) or (FExpression = '') then exit;
if (FDBGInfo.Kind in [skClass, skRecord]) then begin if (FDBGInfo.Kind in [skClass, skRecord, skObject]) then begin
i := FGridData.Row; i := FGridData.Row;
if (i < 1) or (i >= FGridData.RowCount) then exit; if (i < 1) or (i >= FGridData.RowCount) then exit;
s := FGridData.Cells[1, i]; s := FGridData.Cells[1, i];