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

Debugger: Watches, fix drag/drop new index

Browse Source
This commit is contained in:
Martin 2022-06-16 12:33:08 +02:00
parent 2e08d4c01a
commit f5984e214f
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/watchesdlg.pp
View File

@ -520,8 +520,11 @@ begin
if Target <> nil then begin
ATargetWatch := TIdeWatch(tvWatches.NodeItem[Target]);
assert(ATargetWatch <> nil, 'TWatchesDlg.tvWatchesDragDrop: ATargetWatch <> nil');
if ATargetWatch <> nil then
NewIdx := ATargetWatch.Index+1;
if ATargetWatch <> nil then begin
NewIdx := ATargetWatch.Index;
if NewIdx < AWatch.Index then
inc(NewIdx);
end;
end;
AWatch.Index := NewIdx;
end;