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

IdeDebugger: fix expanding array (locals dlg). Take low-bound into account. Issue #41073

Browse Source
This commit is contained in:
Martin 2024-08-15 23:30:25 +02:00
parent c8f30b1459
commit 5d8a93d6e7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7554,7 +7554,7 @@ begin
TryStrToInt64(DisplayName, i) and
(i >= ParentVal.FValue.LowBound) and (i < ParentVal.FValue.Count)
then begin
ParentVal.FValue.SetSelectedIndex(i);
ParentVal.FValue.SetSelectedIndex(i-ParentVal.FValue.LowBound);
// TODO: mark this as a copy / or don't store it, then no copy is needed
FValue := ParentVal.FValue.SelectedEntry.CreateCopy;
Result := True;